Kayan Yazı
09.05.2010 14:14
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.
———
Geri