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

repeat

ch:=readkey; ich:=ord(ch)-48;

until+ (ich>=1) and (ich<=num);

menusel:=ich;

end;

procedure viewparam;

var i:integer;

begin

gotoxy(1,1);

line80('=');

writeln('Year: 2006; Course: 2; Groupe: FT-24; Student: Lubichenko Oleg; Project # 1');

line80('-');

writeln('Current parameter''s');

for i:=1 to numpar do

writeln(mas_ip[i]:10,' = ',mas_znp[i]:10);

end;

procedure pr_ps;

begin

clrscr;

write('Setup Parameters');

f_cont;

end;

procedure pr_tabl;

begin

clrscr;

write('Print tables');

f_cont;

end;

procedure pr_graf;