Курсовая работа: Разработка программных продуктов

{_Опережающее описание процедуры чтения записей файла_}

procedure CHT;

FORWARD;

{_Создание типизированного файла}

procedure SOZ;

begin

Writeln(fr,'Sozdanie file');

assign(f,'d:\psoz.dat');

rewrite(F); {открыть F для создания файла}

ZF ('d:\pSOZ.dat'); {вызов ZF для создания файла}

close(F); {закрыть F}

write(FR, #10#13,'Posle sozdania file: ');

CHT;

end;

{Подсчет среднего размера оклада}

Procedure a;

Var s,sr:real; {сумма, средний размер оклада}

Begin

Assign(FI,'d:\psoz.dat'); {связь Fi с физическим файлом}

Reset(Fi);Reset(f); {открыть файлы для чтения}

seek(f,0); {ставим указатель на первую позицию}

s:=0;

sr:=0;

Repeat

read(f,z); {чтение данных}

s:=s+z.oklad; {подсчет суммы}

until eof(f);

sr:=s/n; {подсчет среднего}

Writeln(FR);