Лабораторный практикум по программированию на языке Паскаль. Найханова Л.В - 112 стр.

       ClrScr;                          { очистка экрана цветом фона }
       repeat
       { Рисуются случайные окна }
               x := Succ( Random(80));  { выбор случайной координаты Х }
               y := Succ( Random(25));  { выбор случайной координаты Y }
               Window(x, y, x + Random(10),
               y + Random(8));
               TextBackground( Random(16)); { установка случайного цвета окна}
               ClrScr;                  { очистка окна текущим цветом фона }
       until KeyPressed;
End.
15.3. Основные принципы ввода информации
Во-первых, при вводе информации рекомендуется выполнять ее контроль (диагностику).
Это необходимо для обнаружения ошибок, допущенных при вводе. Если не разработана ПП
обработки таких ошибок, то произойдет программное прерывание по вводу-выводу, и
выполнение программы будет прервано.
Во-вторых, ввод любого данного должен сопровождаться комментарием. Комментарий
должен быть кратким, однозначным и недвусмысленным.
В-третьих, рекомендуется на экране дисплея создавать "окна ввода" (например, в виде
таблицы при вводе массива).
Рассмотрим один из видов контроля данных.
Самый простой способ проверки ввода заключается в использовании оператора IF ... THEN.
Если при вводе обнаружены ошибки, выводится диагностическое сообщение, и
пользователю предлагается повторить ввод.
Пример.
Рrogram IOTest;
Uses Crt;
Var
      A : array[1..10] of integer;
      i : byte;
      Key : char;
begin
      {$I-}
      WriteLn('По окончанию ввода нажмите клавишу ');
      WriteLn('Для ввода нового значения - клавишу ');
      i:= 1;
      { цикл по вводу значений массива A }
      Repeat
             Write('Введите значение переменной А: ');
             Readln(A[i]);
             { контроль ошибки ввода-вывода }
             if IOResult <> 0 then
                    WriteLn('Введена не цифра. Повторите ввод значения.')
             else begin
                    WriteLn('A[',i:2,'] = ', A[i]);
                    i:= i + 1;
                    if i > 10 then WriteLn('Массив заполнен. Нажмите ');
             end;
             Key := Readkey
      Until Key = #27; { #27 - код клавиши  }
      {$I+}
End.

                                                                                  112