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. Введите все данные из файла в форме таблицы. Программными средствами определите, у какого преподавателя самая большая нагрузка и введите эти данные на экран.
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.
Эти обе задачи взаимосвязаны. Буду очень благодарна, если кто-то поможет.
Сообщение отредактировано: Lapp -