Использовать подпрограммы – удобно и выгодно!

Обычный способ создания окон

В Pascal для создания на экране видимого окна удобно использовать 4 команды вместе

Window (X1,Y1,X2,Y2);
Textcolor (ct);
Textbackground (cbt);
Clrscr;

Команда Window (X1,Y1,X2,Y2); задает размеры и положение окна
Команда Textcolor (ct); задает цвет текста в этом окне
Textbackground (cbt); задает цвет фона (заливки) окна
Clrscr; – очищает окно и заливает его цветом cbt
В результате на экране получается окно заданного цвета.

Что делать, если на экране необходимо создать несколько окон?
Ответ прост – надо просто повторить эти 4 команды столько раз, сколько нужно окон. Указав для каждого окна свои координаты и цвета текста.фона.

Program Okno1;
Uses crt;
BEGIN
          TextBackGround (0);  {первоначальная очистка экрана}
          clrscr;                     {и заливка чёрным цветом}

          Window (10,6,40,17);
          TextBackGround(red);  {эти 4 команды создают окно}
          TextColor (green);       {красного цвета с зеленым текстом}
          clrscr;

          Window (50,6,70,17);
          TextBackGround(Yellow);  {эти 4 команды создают окно}
          TextColor (blue);             {желтого цвета с голубым текстом}
          clrscr;
END.

Все просто, только программа достаточно сильно увеличивается в размерах:)

Использование подпрограммы для создания окон

Теперь разберем другой подход – использовать подпрограмму!
Оформим создание окна как отдельную подпрограмму

Procedure Windows (X1,Y1,X2,y2,ct,cbt:integer);
    Begin
          Window (X1,Y1,X2,Y2);
          Textcolor (ct);
          Textbackground (cbt);
          Clrscr;
    End;

Теперь в основной программе можно создавать сколько угодно окон всего одной командой

Program Okno2;
Uses crt;
Procedure Windows (X1,Y1,X2,y2,ct,cbt:integer);
    Begin
        Window (X1,Y1,X2,y2);
        Textcolor (ct);
        Textbackground (cbt);
        Clrscr;
    End;
BEGIN
    Windows (2,2,60,20,3,4);
    Windows (4,3,40,12,5,11);
END.

Related posts:

1. Как создавать окна в текстовом режиме работы монитора
2. Оператор цикла
3. Как написать простую линейную программу на языке Pascal
4. Оператор ветвления в языке Pascal (дополнительная информация)
5. Оператор ветвления в языке Pascal