Учебное пособие: Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета

clrscr;

write('Output curves');

f_cont;

end;

procedure pr_vf;

begin

clrscr;

write('Output to files');

f_cont;

end;

procedure pr_exit;

begin

clrscr;

write('Output to file of config''s');

f_cont;

end;

procedure pr_nz;

var

i: integer;

s:string;

begin

for i:=1 to numpar do

begin

str(i,s);

mas_ip[i]:='Par_'+s;

mas_znp[i]:=s;

end;

end;

begin