Описать структуру "Спортсмен" - PascalABC.NET

Формулировка задачи:

Функции 1. Ввод данных (ввод данных с клавиатуры, чтение данных с файла [предусмотреть запись данных в файл, чтение данных из файла]). 2. Обработка данных (добавление и удаление записей) 3. Поиск информации 4. Вывод упорядоченной информации (вывод результатов) 5. Выход из программы. Структура элемента массива спортсмен: фамилия, страна, год рождения, результат (в баллах), физические данные – рост, вес. Определить: ─ средний рост и вес спортсменов заданной страны; ─ найти лучшего спортсмена заданной страны; ─ список спортсменов заданного возраста с результатом, не хуже заданного. Добавлено через 1 минуту Также нужно использовать процедуры

Код к задаче: «Описать структуру "Спортсмен" - PascalABC.NET»

textual
program Federal_Athletics;
uses crt;
Const MAX_Athletes = 100;
 
type
Athlete = record
Number:byte; Last_Name:string[20]; Country:string[20]; AGE_OF:integer; Score:integer; Growth:130..220; Weight:30..140;
 
end;
List_of_Athletes = array[1..MAX_Athletes] of Athlete;
 
var
a:List_of_Athletes; l:file of Athlete; i,j,n:byte; g:integer;
 
//
 
Procedure Enterface;
begin TextBackGround( White ); TextColor( Black );
clrscr; end;
 
//
 
Procedure WriteFromKeyboard(a:list_of_athletes; i:byte);
var s:byte; n:byte;
begin
i:= 0; J:= 0; 
repeat
inc(j); 
clrscr; 
inc(i);
write('  Номер : '); readln(a[i].number);
write('  Фамилия: '); readln(a[i].Last_Name);
write('  Страна: '); readln(a[i].Country);
write('  Рост(130..220): '); readln(a[i].Growth);
write('  Вес(30..140): '); readln(a[i].Weight);
write('  Возраст: '); readln(a[i].AGE_OF);
write('  Результат: '); readln(a[i].Score); writeln;
writeln(' Выход: - "1"'); 
writeln(' Продолжить: - "2" затем "ВВОД"');
readln(s); 
until s=1; 
assign(l, 'Athlete.dat'); 
rewrite(l); 
for i := 1 to n do 
write(l, A[i]); 
close(l); 
end;
 
//
 
Procedure Process(A:List_Of_Athletes; i:byte); //нужно A[i].Score,Growth,Weight,Country,Age_OF,Last_Name)
var gr,wg:real; max,res,age:integer; s1:string;  bol:boolean; m,k:byte;
begin 
write(' Страна: '); readln(s1);
write(' Результат: '); readln(res);
write(' Возраст: '); readln(age); 
writeln;
gr:=0; wg:=0; m:=0; max:=a[1].Score; k:=1; 
bol:= true;
for i:= 1 to Max_Athletes do 
if a[i].Country = s1 then 
begin 
inc(m);
gr:= gr + a[i].Growth; 
wg:= wg + a[i].Weight;
if a[i].Score>max 
then 
begin 
max:=a[i].Score; 
k:=i; 
end;     
if (a[i].AGE_OF=age) and (a[i].Score>=res) then 
begin
writeln('   Cписок спортсменов данного возраста с результатом, не хуже данного: ':69,a[i].Last_Name);
bol:= false; 
end; 
end;
if bol then 
writeln('   Спортсменов данного возраста с результатом, не хуже данного не найдено.');   
writeln('   Средний рост спортсменов ',s1,': ',gr/m:0:3);
writeln('   Средний вес спортсменов ',s1,': ',wg/m:0:3);
writeln('   Лучший спортсмен ',s1,': ',a[k].Last_Name);
readln;
end;
 
//
 
Procedure Output;
var i:byte;
begin
write('Введите кол-во записей');
readln(i); j:=i;
writeln('№':3,'Фамилия':10,'Страна':14,'Рост':6,'Вес':6,'Возраст':11,'Результат':11);
for i:=1 to j  do
writeln(i:3,a[i].Last_Name:10,a[i].Country:14,a[i].Growth:6,a[i].Weight:6,a[i].AGE_OF:11,a[i].Score:11);
end;
 
//
 
procedure add(n:byte); 
var 
i: integer;
begin 
Write('Введите количество атлетов которое хотите добавить: '); 
readln(n); 
Writeln('Ввод данных...'); 
for i := 1 to n do 
begin 
write('  Номер : '); readln(a[i].number);
write('  Фамилия: '); readln(a[i].Last_Name);
write('  Страна: '); readln(a[i].Country);
write('  Рост(130..220): '); readln(a[i].Growth);
write('  Вес(30..140): '); readln(a[i].Weight);
write('  Возраст: '); readln(a[i].AGE_OF);
write('  Результат: '); readln(a[i].Score); writeln;
end;
assign(l, 'Athlete.dat'); 
rewrite(l); 
for i := 1 to n do 
write(l, A[i]); 
close(l); 
end;
 
//
 
procedure scan; 
 
begin 
assign(l, 'Athlete.dat'); 
reset(l); 
i := 0; 
while not Eof(l) do 
begin 
i := i + 1; 
read(l,a[i]); 
end; 
close(l); 
writeln(i);
readln;
end;
 
//scan,add,process,WriteFromKeyboard,Output
 
begin
Enterface;
assign(l,'Athlete.dat');
rewrite(l);
writeln('Введите 1 для того чтобы записать в файл числа с клавиатуры');
writeln('Введите 2 для того чтобы считать с файл и выполнить вычисление');
writeln('Введите 3 для того чтобы считать с клавиатуры и выполнить вычисление');
writeln('Вывод данных с файла: 4');
write('Введите 5 для того чтобы добавить записи в файл');
writeln('для окончания "ВВОД"'); readln(g);
repeat
if g=1 then begin WriteFromKeyboard(A,i); end;
if g=2 then begin scan; process(a,i); end;
if g=3 then begin WriteFromKeyboard(a,i); process(a,i); end;
if g=4 then begin scan; Output; end;
if g=5 then begin add(n); end;
until g=6;
end.

5   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ