ВУЗ:
Составители:
136
Ниже приведен листинг программы для решения рассматриваемой
задачи (на языке программирования Pascal)
uses crt;
const mf=500;
eps=1e-5;
type
vector=array[1..mf] of real;
var {раздел описания переменных, которые мы будем использовать в
программе}
i, j, k, N : integer;
T, Tn, Ts, alfa, beta : vector;
ai, bi, ci, fi, max : real;
a1, lamda1, ro1, c1 : real;
a2, lamda2, ro2, c2 : real;
T0, Tfr, Tc, h, tau : real;
Qfr, w, L, t_end, time : real;
f, f1, g : text;
begin
clrscr;
{с клавиатуры вводим все необходимые входные параметры}
Writeln('Введите количество пространственных узлов, N');
Readln(N);
Writeln('Введите окончание по времени, t_end');
Readln(t_end);
Writeln('Введите глубину
грунта, L');
Readln(L);
Writeln('Введите коэффициент теплопроводн
ости промерзшей зоны
грунта, lamda1');
Readln(lamda1);
Writeln('Введите плотность промерзшей зоны грунта, ro1');
Readln(ro1);
Writeln('Введите теплоемкость промерзшей зоны грунта, c1');
Readln(c1);
Writeln('Введите коэффициент теплопроводности талой зоны грунта,
lamda2');
Readln(lamda2);
Writeln('Введите плотность талой зоны грунта, ro2');
Readln(ro2);
Writeln('Введите теплоемкость талой зоны грунта, c2');
Readln(c2);
Страницы
- « первая
- ‹ предыдущая
- …
- 134
- 135
- 136
- 137
- 138
- …
- следующая ›
- последняя »