Предмет: Информатика,
автор: Surreal
Помогите создать программу на паскаль:
Разработать
программу в соответствии со своим вариантом: создать структуру типа «запись», выполнить
обработку данных.
14. Дан массив записей,
содержащий сведения о лекциях:
- предмет;
- фамилию
и преподавателя;
- шифр
группы;
- номер аудитории;
- день
недели;
- номер
пары.
Ответы
Автор ответа:
0
type
teach = record
firstName, lastName: string;
end;
lecture = record
teacher: teach;
subject: string;
shifr, auditoria, day, para: integer;
constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer);
begin
teacher.firstName := teachFirstName;
teacher.lastName := teachLastName;
subject := subject_;
shifr := shifr_; auditoria := auditoria_; day := day_; para := para_;
end;
end;
var
a: array [1..2] of lecture;
begin
for i: byte := 1 to 2 do
begin
a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7);
end;
end.
teach = record
firstName, lastName: string;
end;
lecture = record
teacher: teach;
subject: string;
shifr, auditoria, day, para: integer;
constructor create(teachFirstName, teachLastName, subject_: string; shifr_, auditoria_, day_, para_: integer);
begin
teacher.firstName := teachFirstName;
teacher.lastName := teachLastName;
subject := subject_;
shifr := shifr_; auditoria := auditoria_; day := day_; para := para_;
end;
end;
var
a: array [1..2] of lecture;
begin
for i: byte := 1 to 2 do
begin
a[i] := new lecture('Ололош' , 'Джигурдович', 'Джигурдоведение', 2, 5, 6, 7);
end;
end.
Похожие вопросы
Предмет: История,
автор: krutdanik4
Предмет: Русский язык,
автор: polinasheina
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: danyaermakov
Предмет: Химия,
автор: megaabaydullin