Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 64 стр.

     write('I0=');
     readln(I0);
     if I0=92 then GB7000;
     if I0=94 then goto 1;
   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(' моделирование на основе планирования экспериментов.');
                                                                          64