Андрей_1993

Составил программу в Pascal ABC по блок-схеме. Создал файл ввода и вывода. Программа рабочая, но в файле вывода выдает те же цифры, которые вводятся в файле DAT. Подскажите в чем проблема? Заранее благодарю)

program diplom;
var f1,f2:text;
t_k0,t_g0,t_kk,w_0f,d,p_u,H_z,dH,dt,t_kj,t_kn,t,t_ g,dt_g,c_k,c_g,k_v,dt_k,H:real;
i,j,k,it,n:integer;
begin
assign(f1,'diplom.dat');
assign(f2,'diplom_1.res');
reset(f1);
rewrite(f2);
readln(f1,t_k0,t_g0,t_kk,w_0f,d,p_u,H_z,dH,dt);
n:=round(H_z/dH);
for j:=1 to n do
begin
t_kj:=t_k0;
end;
i:=0;
repeat
i:=i+1;
t:=dt*i;
t_g:=t_g0;
dt_g:=0;
writeln(f2,'t=',t:5:2);
for j:=1 to n do
begin
c_k:=0.59+(3.43*1e-3)*t_kj-(2.57*1e-6)*sqr(t_kj)+(8.18*1e-10)*exp(ln(t_kj)*3);
c_g:=1.312+(2.93*1e-4)*t_g;
end;
for k:=1 to it do
begin
k_v:=0.025*exp(ln(w_0f)*0.9)*exp(ln(t_g+0.5*dt_g+2 73)*0.3)/exp(ln(d)*0.75);
dt_k:=k_v*(t_kj-t_g-0.5*dt_g)*dt/(p_u*c_k+0.5*k_v*dt);
dt_g:=k_v*(t_kj-t_g-0.5*dt_k)*dH/(w_0f*c_g+0.5*k_v*dH);
end;
t_kj:=t_kj-dt_k;
t_g:=t_g+dt_g;
H:=dH*j;
writeln(f2,'H= ' ,H:6:5,'t_kj= ' ,t_kj:6:5, 't_g= ', t_g:6:5);
until t_kn<=t_kk;
close(f1);
close(f2);
end.

Миниатюры

   

Vladimir_S

Выложите, пожалуйста, формулировку задания - без этого трудновато.
И да, прикрепите или просто скопируйте в пост текст входного файла.

Андрей_1993

Мое задание не имеет четкой формулировки. Мне необходимо рассчитать процесс охлаждения кокса в Установке сухого тушения кокса на ЭВМ. Я прикрепил теоретический материал, где расписаны формулы и ручной расчет температур. Программа, написанная по блок-схеме должна работать так же, как и ручной расчет.

Файл с входными данными не прикрепляется, он в блокноте, я напишу здесь:

1000 180 250 0.644 0.065 450 7.9 0.15 120

Где:

1000 - начальная температура раскаленного кокса

180 - температура инертного газа, которым охлаждается кокс в установке

250 - конечная температура кокса после охлаждения

0.644 - фиктивная скорость газа через слой засыпки кокса в камере тушения

450 - насыпная плотность кокса

7.9 - высота слоя кокса в камере тушения

0.15 - высота элементарного слоя коксовой загрузки, принятая в расчета (указана в теории как "дельта H")

120 - элементарный интервал времени, также указанный в теоретических расчетах

Данные в файле ввода соответствуют readln(f1,t_k0,t_g0,t_kk,w_0f,d,p_u,H_z,dH,dt); каждый параметр расписан выше соответственно

Миниатюры

         

   

Vladimir_S

Прикрепляется, если ему либо дать расширение .txt, либо сохранить в Word'е в виде *.doc (*.docx), либо в Zip-архиве. Ну ладно, сойдет и так.
К сожалению, быстро не получится - нужно изучить представленный труд по расчету охлаждения кокса.

Vladimir_S

М-да... Еще даже не начав разбираться в вопросах остывания кокса, а просто глядя на программу, вижу кое-где полную бредятину.
Это вот что такое, скажите на милость?
Вы хоть представляете себе, что делает этот цикл? Объясняю: он n раз повторяет одну и ту же операцию - присвоение скалярной переменной t_kj значения скалярной переменной t_k0. И в чем глубинно-потаенный смысл этой ахинеи?
Догадываюсь, что имелось в виду. Видимо, следовало:
1. Оценить самое максимально-возможное значение величины n. Обозначим ее Nmax. Ее задать в виде константы:
2. Переменную t_k задать в виде массива:
3. Цикл присвоения исходных значений элементам массива записать так:И это, я чувствую, только начало. В циклах вычисления c_k и c_g я опять вижу всё то же многократное повторение одной и той же операции.
Ладно, будем дальше разбираться.
А Вы, сударь, учите пока работу с массивами - тут у Вас явный пробел.

Андрей_1993

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

Vladimir_S

Литературы и в бумаге, и в Сети по тому же Паскалю - море. А как самоучка, дам Вам один совет - практика, практика и еще раз практика! Ставьте для себя задачки, пишите программы, отлаживайте (конечно, параллельно с чтением книжек и пособий).

Андрей_1993

Дело в том что я не программист, но моя специальность требует от меня знаний базовых языков, умение их использовать для математического моделирования процессов и аппаратов химической технологии. В прошлых семестрах с программированием более менее справлялся. В данный момент у меня дипломирование, куда входит раздел расчета на ЭВМ. С теор расчетами технологии, чертежами и т.д... у меня проблем нету, но вот с программой явные неполадки. Сегодня приходил к консультанту насчет программы, но он сказал мне идти самому разбираться с программой..

Vladimir_S

Я тоже. Я физик-экспериментатор.И правильно. Так оно надежнее. Если есть время и желание - быстро научитесь, тем более уж Вам, инженеру-расчетчику, грех не расщелкать такую школьную ерундистику, как основы ЯП, в шесть секунд.
Успехов!

P.S. Я тоже еще с Вашей программой повожусь - но когда время будет. Возни тут, чувствую, много.

Андрей_1993

Спасибо на добром слове)