Сформировать файл, имеющий следующую структуру type спортсмен=record.
Program Num1; Uses CRT; Const MAX = 5; Type sportsman = record Fml: String; Cnt: String; Rst: 150..220; Ves: 100..300; God: Integer; Rez: Integer; End; Var a: Array[1..MAX] of sportsman; i: Byte; f1: file of sportsman; s: String; mx: sportsman; j: Integer; Begin Assign(f1, 'DATA.DAT'); ReWrite(f1); {Создаем образы спортсменов и сохряняем в файл} For i := 1 to MAX do Begin ClrScr; Write(i,'-ый спортсмен',#13#10); Write('Фамилия: '); Readln(a[i].Fml); Write('Страна: '); Readln(a[i].Cnt); Write('Рост: '); Readln(a[i].Rst); Write('Вес: '); Readln(a[i].Ves); Write('Год рождения: '); Readln(a[i].God); Write('Результат: '); Readln(a[i].Rez); Write(f1, a[i]); End; Close(f1);
{Определяем вес спортсмена данной страны} ClrScr; Write('Введите страну: '); Readln(s); For i := 1 to MAX do Begin If (a[i].Cnt = s) then Writeln(a[i].Fml,' - ',a[i].Ves); End;
{Определяем лучшего спортсмена данной страны} mx := a[1]; Write(#13#10,'Введите страну: '); Readln(s); For i := 1 to MAX do Begin If (a[i].Cnt = s) then If (a[i].Rez > mx.Rez) then mx := a[i]; End; Writeln('Лучший спортсмен страны ',s,' - ',mx.Fml,#13#10);
{Список спортсменов данного возраста не хуже данного} Write('Введите год рождения: '); Readln(j); For i := 1 to MAX do Begin If (a[i].God = j) then Writeln(a[i].Fml); End; ReadKey; End.
