Продукция фабрики перевозится на автомобиле в течении времени А=6 часов, температура продукции Т=ТО+(Т1-ТО)ЕХР(-KSA/V), при Т1=70б ТО=18 (градусов Цельсия). Площадь поверхности бетона S=0,776 м2, V=0,056 м3, коэффициент К=0,00448. Напечатать падения температуры продукции в процессе перевозки через 0,25 часа. Дать заголовок: «Таблицы температуры». Составить алгоритм и программу решения задачи — Pascal(Паскаль)

const a = 6;
      t0 = 18;
      t1 = 706;
      s = 0.776;
      v = 0.056;
      k = 0.00448;

var t, t2 :real;
begin
t := t0 + (t1-t0)*exp(-(k*s*a)/v);
t2 := ( 6.25* (t0+(t1-t0)*exp(-(k*s*(a+0.25))/v))) / 6;
writeln(t2-t:10:4);
end.

Похожие записи/страницы:

Leave a Comment

+ 54 = 56