Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 171 стр.

 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(tnv5_1,tnv5_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(tnv5_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.');
   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;
      GB2480(A1,B1,J1,V1);

                                    171