Программа в паскале "эффект матрицы". заменить символы на 0 и 1 и сделать их не голубыми,а зелеными на черном фоне. uses crt; var s,i,x,y,d,n: integer; r: real; begin clrscr; textbackground(black); x: =1; y: =1; textcolor(green); writeln(' нажмите любую '); readkey; clrscr; repeat textattr: =1; r: =48; while r< =128 do r: =r+0.001; randomize; n: =random(9); for i: =1 to n do begin d: =random(70); if d< 10 then d: =10; gotoxy(x,y); write(chr(d)); y: =y+1; if y=25 then y: =1; end; x: =random(80); if x> =80 then x: =1; writeln; writeln; until keypressed; textattr: =145; gotoxy(32,12); writeln('г¬'); gotoxy(32,13); writeln('¦ до встречи ¦'); gotoxy(32,14); writeln('l-'); readln; end.
Чтобы были 0 и 1 замени фрагмент
for I:=1 to N do
begin
d:=random(3);
gotoxy(x,y);
if d<2 then write(d) else write(' ');
на моей машине работает очень быстро. Чтобы замедлить, увеличь число 128 (я ставил 12800) в строке
while r<=128 do