Программа в Паскале "Эффект матрицы".Помогите заменить символы на 0 и 1 и сделать их не голубыми,а зелеными на черном фоне.Uses crt; var s,i,x,y,D,n: integer; r: real; begin clrscr; textbackground(black);x:=1; y:=1; ...
Программа в Паскале "Эффект матрицы".Помогите заменить символы на 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.
Гость
Ответ(ы) на вопрос:
ГостьУбери (или закомментируй) строку 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
Не нашли ответ?
Похожие вопросы