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

16667
знаков
0
таблиц
0
изображений

Содержание

Техническое задание на курсовой проект

Постановка задачи

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

Блок-схемы

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

Исследование температурных полей

Исследование средней температуры

Исследование потока тепла на границе

Разбор практических примеров

Выводы


Техническое задание на курсовой проект

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

Созданная диалоговая компьютерная программа, должна иметь возможность рассчитывать для момента времени (изложенного в варианте задания):

- температурное поле;

- удельный расход тепла;

- тепловой поток на поверхности рассматриваемого тела.

Компьютерная программа должна иметь возможность:

отображать результаты в табличном виде;

отображать результаты в графическом виде (семейство кривых) на экране компьютера;

сохранять полученные результаты во внешних файлах.

Требования к расчетам, полученным с помощью программы:

выбор параметров расчета должен осуществляться на основе базы данных теплофизических параметров;

результаты расчета представляются в размерном и безразмерном видах

2. Постановка задачи

Задача для проведения теплофизического расчета с помощью программы написанной на языке Pascal


Вариант 20

Температурное поле внутри полого цилиндра при смешанных граничных условиях второго и третьего рода при qv=0; b=R/R1=(R2-R1)/R1=k-1; k=R2/R1>1 и тепловом потоке на внутренней поверхности трубы - экспоненциально убывающей функции f1=exp(-PdF0); f2=T0 определяется по формуле:

R=R2-R1

где

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

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

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...');

ch:=readkey;

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(' | ')

end;

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;

begin

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

clrscr;

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.


Информация о работе «Разработка компьютерной программы на языке Паскаль для проведения простого теплофизического расчета»
Раздел: Информатика, программирование
Количество знаков с пробелами: 16667
Количество таблиц: 0
Количество изображений: 0

0 комментариев


Наверх