Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 01.05.2012
Сообщений: 83
1

Программа, которая по нажатию клавиши r или к рисует красный прямоугольник, а по нажатию q или й завершает работу

03.10.2012, 21:38. Показов 1246. Ответов 1
Метки нет (Все метки)

по нажатию клавиши r или к рисует красный прямоугольник, а по нажатию q или й завершает работу.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
program fg;
uses crt, GraphABC;
var  c: char;
begin
writeln('для рисования прямоугольника нажмите r или к, для выхода из программы й или q');
c:=ReadKey;
SetWindowSize(700,260);
if (c=#114) or (c=#234) then  begin
setPenColor(clBlack); setBrushColor(clRed);
rectangle(60,100,200,160) ; end
else if (c=#113) or (c=#233)  then ClearWindow(clWhite);
end.
Проверьте,пожалуйста, я всё ли правильно написала
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.10.2012, 21:38
Ответы с готовыми решениями:

Добавление текстбоксов по нажатию клавиши и удаление по нажатию другой кнопки
Всем доброго времени суток. Хотел попросить помощи в написании следующего кода. Кое что набросал,...

По нажатию на комбинацию клавиш заблокировать работу клавиши
Здравствуйте, возможна ли блокировка клавиш на c#? в инете никакой инфы нет

Как завершить работу программы по нажатию клавиши?
Как это сделать в pascal?

графика. красный круг передвигается по нажатию клавиш
В произвольном месте экрана появляется красный круг. он передвигается по нажатию клавиш управления...

__________________
1
Почетный модератор
7957 / 3928 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
04.10.2012, 12:08 2
Julia33, все правильно =) но осмелюсь предложить 11 строчку перемисать так
Pascal
1
else if (c=#113) or (c=#233)  then CloseWindow;
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.10.2012, 12:08

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Выпадающий список или меню по нажатию button
Здравствуйте. Мне нужно реализовать два списка, которые появляются по нажатию кнопки(см скриншот)....

Показать или скрыть надпись по нажатию на кнопку
Создайте и оформите проект, содержащий на форме Надпись, показывающий по нажатию командной кнопки...

Действие по нажатию клавиатуры или сочетанию клавиш
Возможно-ли реализовать какое-либо действие по нажатию на клавиши клавиатуры, желательно, если...

По нажатию на button отобразить диск или папку
Как сделать так, чтобы по нажатию на button отобразить в компоненте webBrowser определенный...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.