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

   1: until I0=94;
      end;{GB7000}
procedure tablF9;
 begin
   writeln('Значения F7 для 5% уровня знач-ти');
   writeln('┌───┬───────────────────────────┐');
   writeln('│ │            F9         │');
   writeln('│F8 ├────┬─────┬─────┬─────┬────┤');
   writeln('│ │ 1 │ 3 │ 7 │ 15 │ 31 │');
   writeln('├───┼────┼─────┼─────┼─────┼────┤');
   writeln('│ 2 │19.0│19.16│19.36│19.42│9.46│');
   writeln('├───┼────┼─────┼─────┼─────┼────┤');
   writeln('│ 3 │9.55│ 9.28│ 8.88│ 8.71│8.62│');
   writeln('├───┼────┼─────┼─────┼─────┼────┤');
   writeln('│ 4 │6.94│ 6.59│ 6.09│ 5.87│5.74│');
   writeln('├───┼────┼─────┼─────┼─────┼────┤');
   writeln('│ 5 │5.79│ 5.41│ 4.88│ 4.64│4.5 │');
   writeln('├───┼────┼─────┼─────┼─────┼────┤');
   writeln('│ 6 │5.14│ 4.76│ 4.21│ 3.96│3.81│');
   writeln('└───┴────┴─────┴─────┴─────┴────┘');
 end;
procedure OUT_Z_B;
 begin
    writeln(F0,'Расчетные показатели Z(J) до анализа B(J)');
    writeln('Расчетные показатели 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,'├────┼──────────┼──────────┼──────────┤');
      writeln(F0,'│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│',
      (Y[J]-Z[J]):10,'│');
      writeln('│ ',J:2,' │',Y[J]:10,'│',Z[J]:10,'│',
      (Y[J]-Z[J]):10,'│');
     end;
   writeln(F0,'└────┴──────────┴──────────┴──────────┘');
 end;
{========================Основная программа=======================}
begin
1: for J:=1 to 25 do writeln;
   writeln(' Программа на языке Турбо-Паскаль состоит из двух');
   writeln(' файлов tpgl1_1, tpl1_2(tnv4_1,tnv4_2). Математическое');
   writeln(' моделирование на основе планирования экспериментов.');
   writeln('     Переложение с языка Бейсик программ GGL3,NV1.');
   writeln('           Разработка Черного А.А.');
   writeln('       Author Chernyy Anatoly Alekseevech.');
   writeln(' Введите имя файла для вывода resultant (без расширения)');
   readln(NAME);
   Assign(F0, (NAME+'.dat'));
   Rewrite(F0);
   writeln(F0,' Выполнение программы математического моделирования');
   writeln(F0,' tpgl1_1(tnv4_1). Программа на языке Турбо-Паскаль,');
   writeln(F0,'          X=2, X=4, X=8, _X=16_, X=32.');
   writeln('            X=2, X=4, X=8, _X=16_, X=32.');
   writeln(F0,'      Author Chernyy Anatoly Alekseevech.');




                                          125