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

ClrScr;                                      { процедура очистки экрана цветом фона}
{ ............................................................................................................ }
{ организация внутреннего окна и вывод в нем вспомогательной
 информации }
Window(10,3, 70,22);                        { координаты левого угла окна - (10,3)
                                            координаты правого угла окна - (70,22)}
TextBackGround(Cyan); { установка цвета фона окна - бирюзового}
ClrScr;
GotoXY(10,2);
Write('По окончанию ввода нажмите клавишу ');
GotoXY(10,3);
Write('Для ввода нового значения - клавишу ');
{ .............................................................................................................}
{ организация вложенного окна, используемого для образования
 рамки и вывода названия окна }
Window(20,7, 60,19);
TextBackGround(15);                         { установка белого цвета рамки }
ClrScr;
TextColor(Red);                 { установка красного цвета символов }
GotoXY(15,1);
Write('Окно ввода');

{ ............................................................................................................. }
{ организация второго вложенного окна, предназначенного для
  ввода информации }
Window(22,8, 58,18);
TextBackGround(Cyan);
ClrScr;
TextColor(White);
{ вывод в окне наименований вводимых данных }
For i:= 1 to 5 do
begin
  GotoXY(5,2*i); Write(i:1,'.',NameDat[i]);
  GotoXY(21,2*i); Write(': ');
end;
{ непосредственный ввод данных }
i:= 1;
Repeat
  GotoXY(23, 2); Readln(Stud[i].Fam);
  GotoXY(23, 4); Readln(Stud[i].Name);
  GotoXY(23, 6); Readln(Stud[i].Otch);
  { ввод значения года рождения и проверка его на не цифру }
  {$I-}
  Flag:= False;
  repeat
    GotoXY(23, 8); Readln(Stud[i].GodR);
    TestData(NameDat[i], Flag);                                     { вызов процедуры диагностики }
  until Flag;
  {$I-}
  GotoXY(23, 10); Readln(Stud[i].NGrup);
  i:= i + 1;
  { Диагностика: исчерпано ли место в ОП, отведенное под массив Stud }

                                                                                                                    115