|
Poslao: 23 Jan 2012 14:59
|
offline
- Pridružio: 07 Apr 2011
- Poruke: 88
|
Ovako,napravio sam program koji ispisuje brojeve i slova (fazon kao u matriksu),samo neznam kako da obojim slova da mi budu zelena.Zna li neko kako da namestim to ?
|
|
|
|
|
Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
|
|
|
Poslao: 23 Jan 2012 16:43
|
offline
- dr_Bora
- Anti Malware Fighter
Rank 2
- Pridružio: 24 Jul 2007
- Poruke: 12280
- Gde živiš: Höganäs, SE
|
TextColor();
[Link mogu videti samo ulogovani korisnici]
|
|
|
|
|
|
|
Poslao: 23 Jan 2012 17:51
|
offline
- Pridružio: 07 Apr 2011
- Poruke: 88
|
Da,ali mi sada ne ispisuje brojeve brzo,nego samo ispise krajnji broj....ja stavim ovako :
for a:=1 to 6000 do
TextColor(Green);
write(a);
I on mi ispise samo 6000 zalenom bojom,a kad skinem text color onda radi normalno,samo beli brojevi
|
|
|
|
|
|
|
Poslao: 23 Jan 2012 18:05
|
offline
- dr_Bora
- Anti Malware Fighter
Rank 2
- Pridružio: 24 Jul 2007
- Poruke: 12280
- Gde živiš: Höganäs, SE
|
Program radi to što si mu rekao: 6000 puta postavi boju teksta na zelenu i jednom ispiše a.
Uses Crt;
Var a : integer;
Begin
For a:=1 To 6000 Do
begin
TextColor(Green);
Write(a);
end;
End.
Uses Crt;
Var a : integer;
Begin
TextColor(Green);
For a:=1 To 6000 Do Write(a);
End.
|
|
|
|
|
|
|
Poslao: 23 Jan 2012 18:11
|
offline
- Pridružio: 07 Apr 2011
- Poruke: 88
|
Ah,da,zaboravio sam da stavim opet begin posto ima 2 naredbe,hvala  samo ne treba write('a') nego samo write(a),zato sto bi u slucaju sa navodnicima 6000 puta ispisalo slovo a,sve u svemu hvala
|
|
|
|
|
|
