tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Другие предметы
Написать систему ниспадающего
Написать систему ниспадающего меню, которая в зависимости от выбора пользователя выводит на экран: красит экран в белый (программа Паскаль)
luicaliber
2 16.04.2019 23:00
11
Ответы
sereg1525
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Другие предметы
evaava098
21.04.2020 19:31
Чему посвятил свою жизнь Андрей Рублёв?...
ponomareva1947
02.12.2020 16:52
Сочинение сочинение на тему zamon va biz...
математик215
02.12.2020 16:51
Приведите аргументы, доказывающие, что банковская система РФ относится к рыночному типу...
deniska3955v
02.12.2020 16:51
Напишите сочинение Мен севген шаир(мой любимый писатель)на крымско татарском языке с переводом очень...
Adil0071
02.12.2020 16:36
Упражнения на разные группы мышц...
поварешка1
25.09.2019 02:40
Решить пример надо: вычислите: (3/7-16/21)*2 1/7+(11/15+0,3): 12 2/5...
azharabikenova
25.09.2019 02:40
Вмоскве на красной площади стоит памятник,,гражданину минину и князю . россия напиши почему можно сказать,что это памятник народу–победителю в освободительной войне против...
craisler320
25.09.2019 02:40
Сочинение на тему путешествие с ветра...
Zarishka1312
25.09.2019 02:40
Лыжники предполагали прибыть к месту назначения через шесть суток, на тёплой погоды заметила их движения, вместо ниже сочного перехода 52 км они стали делать 39 км. за...
вика6010
25.09.2019 02:40
1)напешите -рассуждение на тему чудеса в нашей жизни(по мативам рассказа в.в. набокова рождество) 2) ответьте на вопрос одного из персонажей рассказа в.тендрякова что...
Популярные вопросы
Аккумулятор, эдс которого 6 в и внутреннее сопротивление 0,1 ом питает...
1
7. що було характерним для українського політичного руху в галичині...
3
Заряды двух одинаковых маленьких металлических шариков -4 нкл и 20...
3
Розв яжiть нерiвнiсть 2х+3/ 3 - х+1/ 4 -1...
3
кавказкие пленики отношение героев к окружающем...
2
Какое сочетание слов не является словосочетанием? а) в течение дня;...
2
1.напишите уравнения реакций в молекулярной и ионно-молекулярной формах,...
2
Как я отношусь к поступку маши троекуровой? из дубровского...
1
Решите примеры : 12,3*6 ; 34,7*3 ; 43,6*6....
2
Хелп 8. які форми соціального протесту були найбільш поширені на західноукраїнських...
2
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.