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

Procedure d;

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.premi9; {подсчет суммы}

until eof(f);

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

Writeln(FR);

Writeln(FR,'Summa premiy ',sr:8:2); {вывод результата}

end;

{Поиск по любому сочетанию двух поисковых признаков}

Procedure poisk;

Label MK;

var pfio:string[30]; poklad:real;

begin

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

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

Repeat

Read(FI,pfio,poklad); {ввод требуемых данных}

WRITELN(FR,'Naiti v baze svedenia lud9h s fio = ',pfio,' i okladom ',poklad:6:2);

pfio:=filtr(pfio);

IF (pfio=' ')AND(poklad=0) THEN

BEGIN {анализ наличия требуемых данных}