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

 - приведенная температура

 - приведенная координата

d – коэффициент Предводителева

3. Основа тела программы

program Program_Oleg;

uses crt;

const

numpar=10;

numfo=10;

numx=21;

type

tmenuarr = array[1..9] of string[20];

var

mas_ip: array[1..numpar] of string;

mas_znp: array[1..numpar] of string;

mas_rpar: array[1..numpar] of string;

mas_otpole: array[1..numx] of real;

mas_pole: array[1..numfo,1..numx] of real;

mas_xrteplo: array[1..numfo] of real;

mas_ptep: array[1..numfo] of real;

mas_fur:array[1..numfo] of real;

amenu1: tmenuarr;

nmenu1: integer;

procedure f_cont;

var ch: char;

begin

writeln;

writeln;

writeln('Press any key to continue...');