Программа на Turbo Pascal

15 ноября 2009

Пишем заставку для компьютера в стиле кинотрилогии Matrix. Подобную программу можно написать на любом языке программирования, для понимания основ. program MatrixZastavka;
uses crt;
var A:array[1..50,1..50] of integer;
x,h,q,p,i,j: integer;
begin
textcolor(2);
randomize;
for i:=1 to 50 do
for j:=1 to 50 do
A[i,j]:=random(2);
clrscr;
x:=0;
while x=0 do
begin
for i:=1 to 50 do
begin
for j:=1 to 50 do
write(a[i,j]:4);
writeln;
end;
end;
end.

RSS-комментарии

Оставьте свой отзыв

Подписаться, не комментируя