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

' Vivod zarplati ',

'_________________________________________________________',

'| fio | oklada | premi9 | nalog | Itogo |',

'|________________________|_______|________|________|________|' );

Var

Z:STR; {запись со сведениями о зарплате}

{для сортировки}

z1,z2:STR;

k:integer;

ok:boolean;

i,j:BYTE ; { неоходимы для огранизации циклов}

str1:STR;

FI, {файл для исходных данных}

FR:text; {файл для результатов}

f:FL; {типизированный файл}

{Вывод шапки таблицы}

PROCEDURE SH;

Begin

Writeln(FR);

FOR I:=1 TO 5 DO Writeln(FR,C[i]);

END;

{Опережающее описание функции}

FUNCTION FILTR(STR:ST1):st1;

FORWARD;

{Вывод одной строки таблицы}

PROCEDURE P;

BEGIN

WITH Z DO

Writeln(FR,'| ',fio:15,' | ',oklad:10:2,' | ',premi9:10:2,' | ',nalog:10:2,' | ',itogo:10:2,' |');