Ч2 ИПР1 В5 / ИПР1

{5. Информация об участниках спортивных соревнований содержит
название команды, ФИО игрока, возраст.
Вывести информацию о спортсменах, возраст которых не достиг 18 лет.

В программе предусмотреть сохранение вводимых данных в
типизированный файл и возможность чтения из ранее сохраненного
типизированного файла. Результаты выводить на экран и в текстовый файл.}

program IPW_1;
uses crt;
type
Tsport = record
Fteam:string[15];// Название команды
Fname_1:string[30]; // Ф
Fname_2:string[30]; // И
Fname_3:string[30]; // 0
Fdate:double; // Возраст
end;

Var
Mas:array [1..20] of Tsport;
f:text;
Zap:Tsport;
n:integer;
v:integer;

procedure vvod; // Ввод данных в текстовый файл
var
i:integer;
begin
Assign(f,'IPW1.txt');
Rewrite(f);
writeln;
writeln('Введите количество записей:');
readln(n);
for i:=1 to n do
begin
writeln('Введите ',i,' запись');
writeln('Введите название команды:');
readln(Zap.Fteam);
writeln('Введите фамилию игрока:');
readln(Zap.Fname_1);
writeln('Введите имя игрока:');
readln(Zap.Fname_2);
writeln('Введите отчество игрока:');
readln(Zap.Fname_3);
writeln('Введите возраст участника:');
readln(Zap.Fdate);
writeln;
writeln(f,i,' ',Zap.Fteam,' ',Zap.Fname_1,' ',Zap.Fname_2,' ',Zap.Fname_3,' ',Zap.Fdate);
end;
close(f);
end;

procedure reading; // Чтение текстового файла и вывод значений на экран
var i:integer;
s:string;
begin
assign(f,'IPW1.txt');
reset(f);
writeln;
writeln(' ______________________________________________________________________');
writeln('| № | Команда | Фамилия | Имя | Отчество | Возраст |');
writeln('|______________________________________________________________________|');
while not (eof(f)) do
begin
readln(f,s); // Считываем строку
s:=trim(s)+' '; // Убираем пробелы
while pos(' ',s)>0 do // Удаляем лишние пробелы
delete(s,pos(' ',s),1);
i:=strtoint(copy(s,1,pos(' ',s)-1)); // Номер
delete(s,1,pos(' ',s));
mas[i].Fteam:=copy(s,1,pos(' ',s)-1); // Название команды
delete(s,1,pos(' ',s));
mas[i].Fname_1:=copy(s,1,pos(' ',s)-1); // Фамилия
delete(s,1,pos(' ',s));
mas[i].Fname_2:=copy(s,1,pos(' ',s)-1); // Имя
delete(s,1,pos(' ',s));
mas[i].Fname_3:=copy(s,1,pos(' ',s)-1); // Отчество
delete(s,1,pos(' ',s));
mas[i].Fdate:=strtoint(copy(s,1,pos(' ',s)-1)); // Возраст
writeln('|',i:3,'|',mas[i].Fteam:13,'|',mas[i].Fname_1:13,'|',mas[i].Fname_2:13,'|',mas[i].Fname_3:14,'|',mas[i].Fdate:9,'|');
end;
writeln(' ______________________________________________________________________');
writeln;
close(f);
end;

procedure eighteen; // Поиск совершеннолетних
var i,p,r:integer;
s:string;
begin

// Чтение файла для заполнения переменных
assign(f,'IPW1.txt');
reset(f);
while not (eof(f)) do
begin
readln(f,s);//читаем строку
s:=trim(s)+' ';//убираем пробелы
while pos(' ',s)>0 do//удалим лишние пробелы
delete(s,pos(' ',s),1);
i:=strtoint(copy(s,1,pos(' ',s)-1));//номер
delete(s,1,pos(' ',s));//удалим
mas[i].Fteam:=copy(s,1,pos(' ',s)-1);//название команды
delete(s,1,pos(' ',s));//удалим
mas[i].Fname_1:=copy(s,1,pos(' ',s)-1);// Фамилия
delete(s,1,pos(' ',s));//удалим
mas[i].Fname_2:=copy(s,1,pos(' ',s)-1);// Имя
delete(s,1,pos(' ',s));//удалим
mas[i].Fname_3:=copy(s,1,pos(' ',s)-1);// Отчество
delete(s,1,pos(' ',s));//удалим
mas[i].Fdate:=strtoint(copy(s,1,pos(' ',s)-1));// возраст
end;

// Сортировка по возрасту 18 лет
writeln;
p:=0;
for r:=1 to i do
if mas[r].Fdate<18 then
begin
p:=p+1;
if p=1 then
begin
writeln(' ______________________________________________________________________');
writeln('| № | Команда | Фамилия | Имя | Отчество | НЕТ 18! |');
writeln('|______________________________________________________________________|');
end;
writeln('|',r:3,'|',mas[r].Fteam:13,'|',mas[r].Fname_1:13,'|',mas[r].Fname_2:13,'|',mas[r].Fname_3:14,'|',mas[r].Fdate:9,'|');
end;

if p>0 then
begin
writeln(' _____________________________________________________________________ ');
writeln;
end;

if p=0 then
begin
writeln(' _____________________________________________________________________ ');
writeln('| Всем участникам 18 лет или больше! |');
writeln(' _____________________________________________________________________ ');
writeln;
end;
close(f);
end;

begin
Writeln('1 - Ввод данных в текстовый файл;');
Writeln('2 - Чтение данных с текстового файла;');
Writeln('3 - Вывод участников младше 18 лет;');
Writeln('4+ - Выход;');
readln(v);
while v<4 do
begin
case v of
1:vvod;
2:reading;
3:eighteen;
end;
Writeln('1 - Ввод данных в текстовый файл;');
Writeln('2 - Чтение данных с текстового файла;');
Writeln('3 - Вывод участников младше 18 лет;');
Writeln('4+ - Выход;');
readln(v);
end;
end.