Алгоритмические языки и программирование. Часть 3. Модули в Турбо Паскале. Игошина Л.В. - 16 стр.

                                                                           16




              clrscr; gotoxy(10,4);
              writeln(' Режим со40 - 40 х 25 '); readkey;
              normvideo;
              textmode(pred_mode); {Восстановление режима 80 х 25 - со80}
              clrscr;    gotoxy(30,12);
               writeln(' Режим co80'); readkey;
             {Следующий цикл рисует множество окон различных размеров и
               цвета фона - цикл продолжается до нажатия клавиши }
         repeat
           X := Random(10);      Y := Random(5);
           Window(X, Y, X + Random(70), Y + Random(20));
          delay(200);
          TextBackground(Random(7)); { In random colors }      ClrScr;
        until KeyPressed;
      {Восстановление стандартных установок текстового режима}
         textcolor(7);textbackground(0);    window(1,1,80,25);
         clrscr;     readkey;    gotoXY(20,12);
         writeln(' Восстановлены стандартные установки'); readkey;
      End.
      В модуле Crt имеются еще три процедуры, которые могут оказаться
полезными при разработке текстовых редакторов или прокрутки содержимого
экрана вверх и вииз.
      ClrEOL - стирает часть строки от текущего положения курсора до правой
границы окна (или экрана). Курсор при этом не меняет своих координат.
      InsLine - вставляет пустую строку и сдвигает строку с курсором и все
расположенные под ней вниз на одну строку - самая нижняя исчезает с экрана.
      DelLine - удаляет строку в которой находится курсор и подтягивает вверх
все нижерасположенные строки.


                       Лабораторная работа № 3.2 (16)

        Разработка программ с использованием процедур и функций модуля
                                     CRT

      Цель работы:
1. Изучение процедур и функций модуля Crt.
2. Разработка программ с использованием модуля Crt.

                                 Варианты заданий

                                Вариант 1

1. Открыть окно с координатами х1=10, y1=5, x2=70, y2=20.
2. Окрасить его в синий цвет.
                                                                           16