Форум АНТИЧАТ - Help please with Pascal

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

29.05.2007, 02:47

valiko

Участник форума

Регистрация: 28.01.2007

Сообщений: 153

Провел на форуме:
1237085

Репутация: 452

Цитата:

Сообщение от _-[A.M.D]HiM@S-_

6. Разработать программу, которая при нажатии клавиши F9 выводит на экран текстовое окно. При нажатой клавиши ? сдвигается влево левая рамка окна, при нажатии ? вправо правая рамка окна, при нажатии ? - вниз нижняя рамка окна, при нажатии ? - вверх верхняя рамка окна.

Код:

Uses CRT;
var
x1,x2,y1,y2: integer; {координаты левого верхнего (x1,y1) и правого нижнего (x2,y2) углов окна} 
c,s:char;

begin
 TextBackground(Black);
 clrscr;
 writeln('Нажмите F9 для создания текстового окна');
 s:= readkey;
 if s=#0 then s:=readkey;
 if s=#67 then {F9}
 begin
 clrscr;
 x1:=10; x2:=20; y1:=10; y2:=20;
{Создаем окно - желтые символы на синем фоне}
 Window(x1,y1,x2,y2);
 TextBackground(Blue);
 TextColor(Yellow);
 clrscr;

 repeat
  c := readkey;
  case c of
   #72:y1:=y1-1; {вверх}
   #75:x1:=x1-1; {влево}
   #80:y2:=y2+1; {вниз}
   #77:x2:=x2+1; {вправо}
  end;
writeln (ord(c));
  Window(x1,y1,x2,y2);
  clrscr;
 until c=#27 {выход по Esc}
  end;
end.