Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Женечка5551
14.02.2021 06:25 •
Другие предметы
Написать систему ниспадающего меню, которая в зависимости от выбора пользователя выводит на экран: красит экран в белый (программа Паскаль)
Показать ответ
Ответ:
дитма
16.04.2019 23:00
USES Graph, Crt;
VAR
Dr, Md, M, X, Y, I : INTEGER; Ch:CHAR;
BEGIN
Dr:=Detect;
InitGraph(Dr,Md,'c:\tp7\bgi'); IF GraphResult<>0 then HALT(1);
REPEAT
SetBkColor(1); SetColor(6); SetTextStyle(0,0,2);
ClearDevice;
{ Вывод меню }
OutTextXY(50,140,'Пробел - Красим экран');
OutTextXY(50,170,'Стрелка вверх - Столбик поднимается');
OutTextXY(50,200,'Стрелка вниз - Столбик опускается');
OutTextXY(50,230,'ESC - Выход');
REPEAT
Ch:=ReadKey; {разветвление программы по нажатию клавиши}
CASE Ch OF
#32:Begin { Красим экран }
ClearDevice;
SetBkColor(0); SetFillStyle(1,15);
Bar(0,0,GetMaxX div 2,GetMaxY);
SetFillStyle(1,0);
Bar(GetMaxX div 2,0,GetMaxX,GetMaxY);
OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
#72:Begin { Ртутный столбик поднимается }
ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
X:=GetMaxX div 2; Y:=GetMaxY div 2;
Rectangle(X,Y,X+40,GetMaxY-20);
FOR I:=1 TO120 DO Begin
SetColor(4); SetLineStyle(0,0,3);
Line(X,GetMaxY-20-I,X+40,GetMaxY-20-i);
Delay(250);
End;
OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
#80:Begin { Ртутный столбик опускается }
ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
X:=GetMaxX div 2; Y:=GetMaxY div 2;
Rectangle(x,y,x+40,GetMaxY-20);
SetFillStyle(1,4);
Bar(x,GetMaxY-140,x+40,GetMaxY-20);
FOR I:=1 TO 117 DO Begin
SetColor(1); SetLineStyle(0,0,3);
Line(x+1,GetMaxY-140+i,x+39,GetMaxY-140+i);
Delay(250);
End;
SetColor(4); OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
End;
UNTIL (Ch=#83) or (Ch=#27);
UNTIL (Ch=#27);
CloseGraph;
END.
0,0
(0 оценок)
Популярные вопросы: Другие предметы
Инга1702
27.10.2021 05:44
Моховидные растения,их строение,особенности и размножение...
maksliifeoy85jo
13.04.2022 10:57
5. Создай новое изобретение, принцип работы которого основан на магнетизме. Нарисуй и назови его части. Объясни, как оно ра-ботает. Поделись своим изобретением в классе.КТО...
sev200684
30.04.2020 23:40
Чтобы подготовить учащихся, на уроках в 6-м классе вы предлагаете задачи разного уровня сложности. Однако большинство избегает задания со «звездочкой» и выбирает базовый...
abidat1122
13.12.2020 15:40
ГЛАВА V. СЕМЬЯ И ЗДОРОВЬЕ ТЕМЫ 24-25. ПРИНЦИПЫ ХОРОШЕГО ВОСПИТАНИЯВопросы и задания для размышления1. Какие качества, характеризующие умных детей, вы знаете? Что мыимеем...
didlok
11.06.2021 10:50
5. Хто з герояў твора парушыў клятву і ўзяў у палон князя? 6. Каму належаць наступныя словы: “... вось гэтая Эльза прымушае мяне гаварыць па — іхняму.. Б’е мяне... ,...
СвятаяИра
16.02.2022 15:07
Зробіть висновки щодо важливості правильно і швидко діяти в разі отримання повідомлення про евукуацію....
stikmanov
21.09.2022 20:46
Это мой интерес это Djuice магазине Я хочу себе Lamborghini или хочу ещё или...
ЯумамыМолодец666
30.04.2020 14:33
3. Отметь верные высказывания. Гладкие поверхности хорошо отражают свет, а шероховатые – хуже. Не все тела отражать свет в большей или меньшей сте- пени. Размер тени...
evstratenko001
01.03.2023 14:52
2. Дополни высказывания, зачеркни неверное, • Свет движется по (прямой, косой) линии, • Изменение направления луча, возникающее на границе двух сред, назы- вается (отражение,...
маруська62
23.06.2020 23:50
Определите сумму налога на доходы физических лиц сотрудника. Сотрудник организации, резидент РФ, имеющий двух несовершеннолетних детей, за отчетный год получил следующие...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
VAR
Dr, Md, M, X, Y, I : INTEGER; Ch:CHAR;
BEGIN
Dr:=Detect;
InitGraph(Dr,Md,'c:\tp7\bgi'); IF GraphResult<>0 then HALT(1);
REPEAT
SetBkColor(1); SetColor(6); SetTextStyle(0,0,2);
ClearDevice;
{ Вывод меню }
OutTextXY(50,140,'Пробел - Красим экран');
OutTextXY(50,170,'Стрелка вверх - Столбик поднимается');
OutTextXY(50,200,'Стрелка вниз - Столбик опускается');
OutTextXY(50,230,'ESC - Выход');
REPEAT
Ch:=ReadKey; {разветвление программы по нажатию клавиши}
CASE Ch OF
#32:Begin { Красим экран }
ClearDevice;
SetBkColor(0); SetFillStyle(1,15);
Bar(0,0,GetMaxX div 2,GetMaxY);
SetFillStyle(1,0);
Bar(GetMaxX div 2,0,GetMaxX,GetMaxY);
OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
#72:Begin { Ртутный столбик поднимается }
ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
X:=GetMaxX div 2; Y:=GetMaxY div 2;
Rectangle(X,Y,X+40,GetMaxY-20);
FOR I:=1 TO120 DO Begin
SetColor(4); SetLineStyle(0,0,3);
Line(X,GetMaxY-20-I,X+40,GetMaxY-20-i);
Delay(250);
End;
OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
#80:Begin { Ртутный столбик опускается }
ClearDevice; SetLineStyle(0,0,1); SetBkColor(1); SetColor(4);
X:=GetMaxX div 2; Y:=GetMaxY div 2;
Rectangle(x,y,x+40,GetMaxY-20);
SetFillStyle(1,4);
Bar(x,GetMaxY-140,x+40,GetMaxY-20);
FOR I:=1 TO 117 DO Begin
SetColor(1); SetLineStyle(0,0,3);
Line(x+1,GetMaxY-140+i,x+39,GetMaxY-140+i);
Delay(250);
End;
SetColor(4); OutTextXY(70,GetMaxY-25,'Нажмите DEL');
End;
End;
UNTIL (Ch=#83) or (Ch=#27);
UNTIL (Ch=#27);
CloseGraph;
END.