Пожалуйста, помогите найти ошибки и исправить программы.

@Catherine1989 · Регистрация: 22.03.2011

Author24 — интернет-сервис помощи студентам

1. Введите в типизированный файл учебную нагрузку на 8 преподавателей (ФИО, количество недель, нагрузка). С помощью Random выработайте количество недель из диапазона 1..16, среднее количество часов занятий в неделю из диапазона 1..30 и общее количество часов (нагрузка). ФИО обозначьте одной буквой.

Pascal

Program KEA17;
Type SchoolJob=Record
FIO: String[3];
Kolned:Integer;
Srznach:Byte;
Nagruzka:Byte;
End;
Var FP1:File of SchoolJob;
PP1:SchoolJob;
I:Byte;
Begin
Randomize;
Assign (FP1, 'D:/KEA.017');
ReWrite (FP1);
For I:=1 To 8 Do Begin
ReadLn(PP1.FIO);
PP1.Kolned:=Random(16)+1;
PP1.Srznach:=Random(30)+1;
PP1.Nagruzka:=PP1.Kolned*PP1.Srznach;
End;
Close(FP1);
End.

2. Введите все данные из файла в форме таблицы. Программными средствами определите, у какого преподавателя самая большая нагрузка и введите эти данные на экран.

Pascal

Program KEA17;
Type SchoolJob=Record
FIO: String[3];
Kolned:Integer;
Srznach:Byte;
Nagruzka:Byte;
End;
Var FP2:File of SchoolJob;
PP2:SchoolJob;
I:Byte;
Begin
Randomize;
Assign (FP2, 'D:/KEA.017');
Reset (FP2);
WriteLn ('FIO Kolned Srznach Nagruzka');
For I:=1 To 8 Do Begin
Read(FP2,PP2);
WriteLn(PP2.FIO,PP2.Kolned,PP2.Srznach,PP2.Nagruzka);
PP2.Kolned:=Random(16)+1;
PP2.Srznach:=Random(30)+1;
PP2.Nagruzka:=PP2.Kolned*PP2.Srznach;
End;
ReadLn;
Close(FP2);
End.

Эти обе задачи взаимосвязаны. Буду очень благодарна, если кто-то поможет.

	24.10.2011, 11:37