Программа с завязкой на стрелки клавиатуры

[Svetlanka]

Программа с завязкой на стрелки клавиатуры

Разработать программу, которая при нажатии клавиши <F9> выводит на экран текстовое окно. При нажатии клавиши <←> сдвигается влево левая рамка окна, при нажатии <→> вправо правая рамка окна, при нажатии <↓> вниз нижняя рамка окна, при нажатии <↑> вверх верхняя рамка окна.

 

[AlexZir]

Какой язык программирования?

 

[AlexZir]

Будем считать, что ЯП - Pascal . Решение может быть следующим:

uses crt;
var x1,y1,x2,y2,k:integer;
    c:char;
    flag:boolean;
begin
TextBackground(black);
clrscr;
TextBackground(blue);
x1:=30;
y1:=10;
x2:=50;
y2:=13;
window(x1,y1,x2,y2); {определяем окно с начальными координатами}
clrscr; {инициализируем текстовое окно с очисткой экрана}
flag:=false;
repeat {цикл изменения размеров}
c:=readkey;
if c=chr(0) then c:=readkey; {игнорируем управляющий символ}
k:=ord(c); {определяем код введенного символа}
if k=67 then flag:=true; {нажатие клавиши F9}
if flag then begin
case k of
72: if y1>1 then y1:=y1-1 else y1:=1; {стрелка вверх}
80: if y2<25 then y2:=y2+1 else y2:=25; {стрелка вниз}
75: if x1>1 then x1:=x1-1 else x1:=1; {стрелка влево}
77: if x2<80 then x2:=x2+1 else x2:=80; {стрелка вправо}
end;
window(x1,y1,x2,y2); {определяем окно с текущими координатами}
TextBackground(blue); {определяем цвет фона}
clrscr; {инициализируем текстовое окно с очисткой экрана}
writeln('Test text Test text Test text'); {выводим контрольную фразу в новое текстовое окно}
end;
until c=chr(13); {отрабатываем нажатие Enter}
end.

Сначала инициализируем текстовый режим и заливаем фон черным цветом. потом задаем начальные координаты окна вывода и рисуем его синим цветом. Далее заводим цикл для управления размерами окна. Выход из цикла с последующим завершением программы - по нажатию Enter. Отрабатываются также нажатия клавиш управления курсором и F9. При нажатии стрелки изменяется соответствующая координата, предусмотрено ограничение на изменение координаты, чтобы не вызвать зависания.

 

[Svetlanka]

Спасибо, все верно. только почему при нажатии левой стрелки рамка сдвигается вправо, а при нажатии правой влево??

 

[AlexZir]

Не знаю, как у вас, но у меня все нормально работает. Попробуйте на своем компьютере в листинге 75 и 77 код местами поменять.

 

[Svetlanka]

поменяла. теперь все как надо.!

 

[AlexZir]

Рад за вас!