Basit Olarak Bİ DÖngÜ Bu GeliŞtirin Mesela...
Burda Renkli Sayi Veyazilar Var Herhangi Bi Tusa Basinca Hizlaniyo ..sanki Araba YariŞi Ama DeĞİl Tabİ
Uses Crt;
Var
A:array[1..100,1..100] Of Integer;
I,s1:integer;
J:integer;
Begin
Repeat
Clrscr;
For I:=1 To 100 Do
Begin
Repeat
Delay(200);
Textcolor(i);
Gotoxy(i+1,i);
Writeln(i);
For J:=1 To 1000 Do Begin
Gotoxy(j-1,j);
Textcolor(j);
Writeln(j,'merhabaaaaaaaaaaaaaaaaaaa');
For S1:=1 To 1000 Do Begin
Textcolor(s1);
Gotoxy(s1+12,1);
Writeln(s1,'by Gokhan Aygun<<<<< Www.van.gen.tr<<<<<<');
End;
Delay(10);
End;
Until Keypressed;
End;
Readln;
Until Keypressed;
End.
Bu 1.si Alin GelİŞtİrİn Bunu