Составить программу, выводящую на экран расписание учителя (номер урока, время начала урока, класс, предмет, номер кабинета) — Pascal(Паскаль)

Program zap_11;

Uses Crt;

Const
  n = 6;

Type
  rasp = record
    k, k1: byte;
    Vrem, klas, pred: string[20];
  end;

Var
  a: array [1 .. n] of rasp;
  i: byte;

BEGIN
  ClrScr;
  for i := 1 to n do
    with a[i] do
    begin
      Writeln('Введите номер урока ');
      Readln(k);
      Writeln(' Время начала урока');
      Readln(Vrem);
      Writeln('Класс');
      Readln(klas);
      Writeln('Предмет');
      Readln(pred);
      Writeln('N кабинета');
      Readln(k1);
    End;
  Writeln('Расписание занятий');
  for i := 1 to n do
    with a[i] do
      Writeln(k, ’ ‘, Vrem, ’ ‘, klas, ' ', pred, ' ', k1);
  Readln;

end.

Leave a Comment

74 − = 71