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

👇

Ответ:

katrin05069

23.10.2020

Убери (или закомментируй) строку 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

4,5(57 оценок)

Открыть все ответы

Ответ:

olafff9461

23.10.2020

Больше мороки чем сложности...

Type int=100..999;
Var x:int;
Begin
readln(x);
case (x div 100) of
1:write('Сто ');
2:write('Двести ');
3:write('Триста ');
4:write('Четыреста ');
5:write('Пятьсот ');
6:write('Шестьсот ');
7:write('Семьсот ');
8:write('Восемьсот ');
9:write('Девятьсот ');
end;
if ((x mod 100) div 10)=1 then
case (x mod 10) of
0:write('десять ');
1:write('одиннадцать ');
2:write('двенадцать ');
     3:write('тринадцать ');
     4:write('четырнадцать ');
   5:write('пятнадцать ');
   6:write('шестнадцать ');
     7:write('семнадцать ');
   8:write('восемнадцать ');
   9:write('девятнадцать ');
   end
else
begin
  case ((x mod 100) div 10) of
  2:write('двадцать ');
     3:write('тридцать ');
      4:write('сорок ');
      5:write('пятьдесят ');
    6:write('шестьдесят ');
      7:write('семьдесят ');
      8:write('восемьдесят ');
    9:write('девяносто ');
end;
case (x mod 10) of
1:write('один');
2:write('два');
     3:write('три');
      4:write('четыре');
      5:write('пять');
    6:write('шесть');
      7:write('семь');
      8:write('восемь');
    9:write('девять');
end;
end;
End.

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

Ответ:

Lisica99

23.10.2020

ответ:Давайте посмотрим их возможности.

F1 – кнопка вызова справки системы, если вы находитесь на рабочем столе. Она же вызывает в активной программе.

F2 – можно переименовать файл или папку, которая выделена. Это работает и на рабочем столе, и в проводнике.

F3 – кнопка активирует поиск в проводнике. Это также работает на рабочем столе.

F4 – в проводнике открывает адресную строку. В сочетании с клавишей ALT закрывает используемое окно программы или на рабочем столе вызывает окно завершения работы Windows.

Фото автора rawpixel.com на Pexels

обновить активное окно. Особенно это удобно делать в браузере, когда надо обновить страницу открытого сайта. В Word открывает раздел «найти и заменить», с которой вы быстро перейдёте на нужную страницу.

F6 – в большой части она применяется в браузере. Нажав, вы сразу перемещаетесь в адресную строку.

F7 – при работе в одной из офисных приложений Microsoft, делает проверку правописания.

F8 – её основное предназначение – это при загрузке Windows открывает список режимов включения операционной системы.

F9 – происходит обновление Word. Если же вы в Outlook, то примете или же отправите почту.

F10 – в проводнике открывает панель инструментов. В сочетании с Shift работает как правая кнопка мышки.

F11 – в браузере переходит в полноэкранный режим и выходит из неё.

F12 – открывает окно «сохранить как …» в Word.

4,6(16 оценок)

Это интересно:

Компьютеры-и-электроника

12.03.2020

Как запустить компьютер с командной строки: Руководство по запуску ОС без использования графического интерфейса...