Моделирование технологических процессов. Колесникова Н.В - 29 стр.

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

                                   τ = τ под.об + τ коп + τ вар


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

     На основании алгоритма описанного выше разработана программа
расчета продолжительности тепловой обработки на языке Turbo Pascal для
ЭВМ IBM PC:
    Program Meat;
      Var Wk, Dk, j, L, To, Tck, Tn, a, Tk, W, d, Ts, Tc, xck, x, Bik, F0, Tps, F1,
mn, mm, mp, Tpk, F2, mk, T1, T2, xc, xv, Bi, F3, T3, Tv, F4, mv, T4, T5, m : real;

                                           Begin
      writeln(′Введите исходные данные:′);
      write(′Скорость движения греющей среды при копчении (м/с) = ′);
      readln(Wk);
      write(′Влажность воздуха при копчении (кг/кг) = ′);
      readln(Dk);
      write(′Коэффициент теплопроводности(Вт/(м*К))= ′);
      readln(j);
      write(′Коэффициент температуропроводности(м2/ч)= ′);
      readln(a);
      write(′Минимальное расстояние от центра продукта до поверхности(м) =
′);
      readln(L);
      write(′Начальную температуру продукта (С) = ′);
      readln(TO);
      write(′Температуру среды при копчении (С) = ′);
      readln(Tck);
      write(′Температуру поверхности продукта в конце подсушки (С) = ′);
      readln(Tn);
      write(′Температуру в центре продукта в конце копчения (С) = ′);
      readln(Tk);
      write(′Скорость движения греющей среды при варке (м/с) = ′);
      readln(W);
      write(′Влажность воздуха при варке (кг/кг) = ′);
      readln(d);
      write(′Температуру среды при варке (С) = ′);