Кодирование программы. Текст программы помимо тела, соответствующего матрице операций, должен содержать объявления файлов и структур данных

Текст программы помимо тела, соответствующего матрице операций, должен содержать объявления файлов и структур данных. Для решения данной задачи используются не все поля записей основного и справочных файлов, однако необходимо отвести память для размещения входных записей. Должны быть объявлены и выходные файлы. Кроме того, должны быть объявлены поля управления, печати, итогов и т.п. Некоторые из этих переменных были определены при разметке диаграмм структур данных и заполнении матрицы операций, другие же могут определиться при детализации действий из матрицы операций, например, в связи с формированием ключей для обращения к файлам справочникам.

Текст программы приводится на рис.15. Таким образом из рассмотренного примера видно, что использование языка Паскаль в сочетании с методологиями проектирования программ по структурам данных может обеспечить высокую эффективность реализации процедур обработки экономической информации.

type tn=record

a:string[2];

b:string[2];

h:string[3];

c:string[4];

e:string[10];

k:integer

End;

tr=record

c:string[4];

m:string[30];

g:byte

End;

top=record

e:string[10];

p:word;

ei:string[2]

End;

tp=record

a:string[2];

x:string[25];

ph:string[7];

End;

var fn:file of tn; zn:tn;

fo:file of top; zo:top;

fr:file of tr; zr:tr;

fp:file of tp; zp:tp;

v1,v2,v3:text;

s0,sa,sb,sc,kod,chi:integer;

f:boolean;

a1,b1,bp:string[2];

c1:string[4];

nd:string;

ch:char;

Begin

write('имя осн.файла='); readln(nd);