Составьте программу на паскале. составить ведомость, включающую сведения об аудитории: номер аудитории, этаж, предназначение аудитории (лекции, лабораторные занятия). дополнить список ещё одной аудитории.
// 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.
// Внимание! Если программа не работает, обновите версию!
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,лабораторные)