Написать систему ниспадающего меню, которая в зависимости от выбора пользователя выводит на экран: красит экран в белый (программа Паскаль)

147

437

Посмотреть ответы 2

Ответы на вопрос:

Ananasabricos

Другие предметы

4,8(90 оценок)

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.

makrona123

Другие предметы

4,4(20 оценок)

ответ:Определе́ние, дефини́ция (лат. definitio — предел, граница) — предложение описывающее смысл слова или фразы; логическая операция, раскрывающая (приписывающая) сущность имени посредством выделения принадлежности к определённому понятию (родовому понятию, генусу, классу) и указание отличительной особенности имени в том классе, в котором оно определено (видовое отличие). Таким образом, определение состоит из родового понятия и видового отличия, или определителя (дифферента).

Согласно Бочарову В. А. и Маркину В. И определение это логическая процедура, состоящая в придании строго фиксированного смысла языковым выражениям (терминам языка). [1]

Термин, над которым проводится операция дефиниции, называется дефидентом (Dfd

Объяснение:100%

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Другие предметы

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.