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

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(nw3_1,nw3_2,nw3_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 (nw3_1). (Программа на языке Турбо-Паскаль).');
    writeln(F0,' Autor Chernyy Anatoly Alekseevech');
    writeln('_X=3_,X=9_,_X=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;
       KK6[J]:=0; KK7[J]:=0; J7[J]:=0; J8[J]:=0;
       JJ9[J]:=0;
      end;
   VV_DAN;
   if X=0 then goto 2;
   PR_MOD;
 3:writeln('----------<Меню 1>------------');
   writeln('Если I0=6, то переход в начало');
   writeln('Если I0=7, то продолжение и');
   writeln('ввод величин показателей Y(J)');
   write('I0='); readln(I0);
   if I0=6 then goto 1;
   writeln('Ввод величин показателей Y(J)');



                                                49