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

menuinit;

pr_nz;

viewparam;

repeat

nmenu1:=menusel(amenu1,5,'Main');

case nmenu1 of

1: pr_ps;

2: pr_tabl;

3: pr_graf;

4: pr_vf;

5: pr_exit;

end;

viewparam;

until nmenu1=5;

end.

4. Блок- схемы

Упрощенная блок-схема:

Данная блок-схема отображает основные действия, которые может воспроизводить программа.

Детальная блок-схема:

Данная блок-схема отображает алгоритм действия программы.

5. Расчет основных параметров

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

function exp0(x:real):real;

begin

if x<-20.0 then

exp0:=0.0e0

else

exp0:=exp(x);

end;