Программа в паскале "эффект матрицы". заменить символы на 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.

284

478

Посмотреть ответы 2

Ответы на вопрос:

gels5344Inetka

Информатика

4,7(95 оценок)

Убери (или закомментируй) строку textattr: =1; после repeat чтобы были 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