Курсовая работа: Разработка информационно-поисковой системы "Результаты соревнований" на языке программирования Паскаль

Рисунок 2.2.2- Блок-схема 2

2.3 Практическая часть выполнения задачи на языке программирования Паскаль

programzadacha; {название программы}

usescrt; {подкличение модуля crt}

type mass=record

fio:string; {Фамилия}

ych:string; {учреждение}

stil:string; {стильплавания}

voz:integer; {возраст}

rez:real; {результат}

end;

var

chi:mass; {имееттип mass}

ch,ch1:array[1..25] of mass;

f:file of mass;

i,m,j,k,n,nom:integer;

filename:string; {дляименифайла}

procedure sozdanie; {процедурасоздания}

var

q:integer;

begin

clrscr;

writeln('vvedite imya faila:'); {вводименифайла}

readln(Filename);

assign(f,Filename);

rewrite(f);

Writeln ('vvedite kolichestvo zapisei'); {вводимколичествозаписей}

Readln (n);