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

end;

{Поиск сотрудников с премией > 1000 рублей}

Procedure c1;

Begin

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

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

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

Writeln(FR);

Writeln(fr,#10#13,'Svedenia o sotrudnikah s premiey bolshe 1000 rub: ');

sh;

Repeat

read(f,z); {чтение записей}

if z.premi9>1000 then P;

until eof(f);

end;

{Поиск зарплаты < 3000 рублей}

Procedure b1;

Begin

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

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

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

Writeln(FR);

Writeln(fr,#10#13,'Svedenia o sotrudnikah s okladom menshe 3000 rub: ');

sh;

Repeat

read(f,z); {чтение записей}

if z.oklad<3000 then P;

until eof(f);

end;