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

    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). Математическое');
    writeln('моделирование на основе планирования экспериментов.');
    writeln('     Переложение с языка Бейсик программы GGL3.');
    writeln('              Разработка Черного А.А.');
    writeln('Введите имя файла для вывода отчета (без расширения)');
    readln(NAME);
    Assign(F0, (NAME+'.dat'));
    Rewrite(F0);

    writeln(F0,'Выполнение программы математического моделирования');
    writeln(F0,' tpgl1_1. (Программа на языке Турбо-Паскаль).');
    writeln('X=2,4,8,16,32');
    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;
  case X of
  2: begin
       vvod21;

                                      15