Question

Составьте программу на Паскале.
Составить ведомость, включающую сведения об аудитории: номер аудитории, этаж, предназначение аудитории (лекции, лабораторные занятия). Дополнить список ещё одной аудитории.

Answer 1

// PascalABC.NET 3.2, сборка 1449 от 23.05.2017
// Внимание! Если программа не работает, обновите версию!

type
  Предназначение=(лекции,лабораторные);
  Ведомость=record
    аудитория:integer;
    этаж:integer;
    назначение:Предназначение;
  public
    constructor Create(pa,pe:integer;pn:Предназначение);
    begin
      аудитория:=pa;
      этаж:=pe;
      назначение:=pn
    end;
  end;

begin
  var Вед:=new List<Ведомость>;
  Вед+=new Ведомость(132,1,лекции);
  Вед+=new Ведомость(204,2,лабораторные);
  Вед.Println(NewLine)
end.

Результат
(132,1,лекции)
(204,2,лабораторные)