Планы проведения экспериментов и компьютерные программы эффективного математического моделирования на языках Бейсик и Турбо Паскаль. Черный А.А. - 490 стр.

       writeln(F0,'Коэффициенты ортогонализации');
       writeln('V1=',V1,' U1=',U1,' Q1=',Q1);
       writeln(F0,'V1=',V1,' U1=',U1,' Q1=',Q1);
       VVOD32;
       GB3660(A2,E2,B2,J2,O2,V2,U2,Q2);
       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(w6_1,w6_2,w6_3). Математическое');
    writeln('моделирование на основе планирования экспериментов.');
    writeln('       Переложение с языка Бейсик программы GGN3.');
    writeln('            Разработка Черного А.А.');
    writeln('       Autor Chernyy Anatoly Alekseevech');
    writeln('Введите имя файла для вывода resultant (без расширения)');
    readln(NAME);
    Assign(F0, (NAME+'.dat'));
    Rewrite(F0);
    writeln(F0,'Выполнение программы математического моделирования');
    writeln(F0,' tpg3_1(w6_1). (Программа на языке Турбо-Паскаль).');
    writeln(F0,'      Autor Chernyy Anatoly Alekseevech');
    writeln('_X=4_, _X=5_, _X=20_');
    writeln('X=3,_X=4_,_X=5_,X=9,X=12,X=15,X=16,_X=20_,X=25,X=27');
    J:=0;X:=0;F3:=0;F4:=0;H3:=0;H4:=0;




                                            490