profil

program matrix

poleca 85% 132 głosów

Treść
Grafika
Filmy
Komentarze

program matrix;
uses CRT;
var k,i,m:integer;
begin
clrscr;
textcolor(lightgreen);
repeat
m:=random(80);
For i:=1 to 25 do
begin
gotoXY(m+1,i);
k:=random(10);
write(k);
delay(10);
end;
until keypressed;
end.

Czy tekst był przydatny? Tak Nie