Теория и практика эффективного математического моделирования. Черный А.А. - 346 стр.

         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V2=',V2,' U2=',U2,' Q2=',Q2);
         writeln(F0,'V2=',V2,' U2=',U2,' Q2=',Q2);
         VVOD33;
         GB3660(A3,E3,B3,J3,O3,V3,U3,Q3);
         writeln('Коэффициенты ортогонализации');
         writeln(F0,'Коэффициенты ортогонализации');
         writeln('V3=',V3,' U3=',U3,' Q3=',Q3);
         writeln(F0,'V3=',V3,' U3=',U3,' Q3=',Q3);
       end;
    end;{case}
  end;{VV_DAN}
procedure OUT_Z_B;
   begin
   writeln('Расчетные показатели Z(J) до анализа B(J)');
   writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
   writeln(F0,'┌────┬────────────────────────────────┐');
   writeln(F0,'│     │            Значение            │');
   writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
   writeln(F0,'│     │   Y(J)   │   Z(J)   │ Y(J)-Z(J)│');
   for J:=1 to X do
         begin
           writeln(F0,'├────┼──────────┼──────────┼──────────┤');
           write(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│');
           writeln(F0,(Y[J]-Z[J]):10,'│');
           write('│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│');
           writeln((Y[J]-Z[J]):10,'│');
         end;
           writeln(F0,'└────┴──────────┴──────────┴──────────┘');
  end;
{================================================================
                      Основная программа
=================================================================}
 begin
 1: for J:=1 to 25 do writeln;
    writeln(' Программа на языке Турбо-Паскаль состоит из трех');
    writeln(' файлов (tpg3_1, tpg3_2, tpg3_3). Математическое');
    writeln('моделирование на основе планирования экспериментов.');
    writeln('     Переложение с языка Бейсик программы GGN3.');
    writeln('              Разработка Черного А.А.');
    writeln('Введите имя файла для вывода отчета (без расширения)');
    readln(NAME);
    Assign(F0, (NAME+'.dat'));
    Rewrite(F0);
    writeln(F0,'Выполнение программы математического моделирования');
    writeln(F0,'     tpg3_1. (Программа на языке Турбо-Паскаль).');
    writeln('X=3,4,5,9,12,15,16,20,25,27');
    J:=0;X:=0;F3:=0;F4:=0;H3:=0;H4:=0;
    L3:=0;L4:=0;K3:=0;K4:=0;K5:=0;
    K7:=0;K8:=0;K0:=0;X0:=0;Y0:=0;J5:=0;
    J6:=0;J9:=0;S:=0;
    writeln('Если X=0, то выход из программы');
    write('X=');readln(X);
    writeln(F0,'X=',X);
    for J:=1 to X do
      begin
        F[J]:=0; H[J]:=0; L[J]:=0; Z[J]:=0; KK5[J]:=0;




                                    346