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

clrscr;

end;

procedure menuinit;

begin

amenu1[1]:='Parameters';

amenu1[2]:='Tables';

amenu1[3]:='Curves';

amenu1[4]:='Files';

amenu1[5]:='Quit';

end;

procedure line80(s: char);

var i:integer;

begin

for i:=1 to 80 do write(s);

end;

function menusel(menu:tmenuarr;num:integer;namemenu:string):integer;

var

i,ich: integer;

ch: char;

begin

gotoxy(1,23);

line80('-');

gotoxy(1,24);

write(namemenu,'> ');

for i:=1 to num do

begin

HighVideo;write(i:1);NormVideo;

write('. ',menu[i]);

if (i<>num) then write(' | ')