Kayan Yazı

Sabit bir metni ekranda kaydıran Pascal programı.

DELPHI:
1.uses crt;
2.var
3. i,j,k,n:integer;
4. a,c:string;
5.Begin
6. clrscr;
7. repeat
8.   randomize;
9.   n:=random(16);
10.   c:='SAKLA SAMANI CURUSUN';
11.   clrscr;
12.   gotoxy(30,12);write(c);delay(290);
13.   for j:=1 to 20 do
14.   for i:=1 to 20 do
15.   begin
16.     c[i]:=c[i+1];
17.     delay(5);
18.     textcolor(n);
19.     gotoxy(30,12);
20.     write(c);
21.     gotoxy(74,24);
22.     write('Renk ',n);
23.   end;
24. until keypressed;
25. readln;
26.End.