Вопрос по информатике:
Программа в Паскале "Эффект матрицы".Помогите заменить символы на 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.
- 14.12.2016 21:11
- Информатика
- remove_red_eye 9899
- thumb_up 15
Ответы и объяснения 1
Убери (или закомментируй) строку 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
- 15.12.2016 10:46
- thumb_up 31
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.