Assign(fn,nd);

write('имя файла раб.='); readln(nd);

Assign(fr,nd);

write('имя файла опер.='); readln(nd);

Assign(fo,nd);

write('имя файла подр.='); readln(nd);

Assign(fp,nd);

assign(v1,'v1'); rewrite(v1);

assign(v2,'v2'); rewrite(v2);

assign(v3,'v3'); rewrite(v3);

writeln(v1,' Ведомость 1');

writeln(v1,' Цех Участок Таб.номер ',

Начислено');

writeln(v2,' Ведомость 2');

writeln(v3,' Ведомость 3');

writeln(v3,' Цех Название ',

Начислено');

s0:=0; f:=true;

Reset(fn); read(fn,zn);

Reset(fp); reset(fr);

While f do

Begin

a1:=zn.a; sa:=0;

zp.x:=' '; val(a1,chi,kod);

Seek(fp,chi-1); read(fp,zp);

writeln(v2,'Цех ',a1:3,' ',zp.x:25);

writeln(v2,'Участок Т.ном. ФИО',

' Начислено');

while f and(a1=zn.a) do

Begin

b1:=zn.b; bp:=b1; sb:=0;

while f and(a1=zn.a)and(b1=zn.b) do

Begin

c1:=zn.c; sc:=0;

zr.m:=' '; val(c1,chi,kod);

Seek(fr,chi-1); read(fr,zr);

while f and(a1=zn.a)and(b1=zn.b)and

(c1=zn.c) do

Begin

reset(fo); zo.p:=0;

Repeat

Read(fo,zo);

until eof(fo) or (zn.e=zo.e);

Close(fo);

sc:=sc+zo.p*zn.k;

If not eof(fn) then read(fn,zn)

else f:=false;

End;

writeln(v1,a1:5,b1:8,c1:10,sc:10);

writeln(v2,bp:5,c1:7,' ',zr.m:30,

sc:3);

bp:='';

sb:=sb+sc;

End;

writeln(v1,' по участку',

sb:5);

writeln(v2,' ',

'по участку', sb:5);

sa:=sa+sb;

End;

writeln(v1,' по цеху',

sa:5);

writeln(v2,' ',

' по цеху', sa:5);

writeln(v3, a1:6,zp.x:30,sa:5);

s0:=s0+sa;

End;

writeln(v1,' ',

'всего',s0:5);

writeln(v2,' ',

' всего',s0:5);

Close(v1); close(v2); close(v3); close(fn);

End.

Рис.15 Текст программы.

Вопросы к главе 6.

1. Как можно описать файлы?

2. Какие типы файлов существуют в Турбо Паскале?

3. Как организовать прямой доступ к типизированным файлам?

4. Особенности работы с типизированными файлами.

5. Особенности работы с текстовыми файлами.

6. Особенности работы с нетипизированными файлами.

7. Основные стандартные процедуры и функции для работы с типизированными файлами.

8. Основные стандартные процедуры и функции для работы с нетипизированными файлами.

9. Основные стандартные процедуры и функции для работы с текстовыми файлами.

10. Общий алгоритм создания файла.

11. Общий алгоритм обработки файла.