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

writeln(F0,'Табличный F-критерий F7=',F7);
case X of
 3: GB4390;
 4: GB4400;
 5: GB4420;
 9: GB4450;
 12:GB4490;
 15:GB4530;
 16:GB4580;
 20:GB4630;
 25:GB4690;
 27:GB4770;
 else goto 2;
end;
writeln('Расчетные величины показателя');
writeln('Z(J) после анализа B(J)');
writeln(F0,'Расчетные величины показателя');
writeln(F0,'Z(J) после анализа B(J)');
for J:=1 to X do
 begin
   writeln('Z(',J,')=',Z[J]);
   writeln(F0,'Z(',J,')=',Z[J]);
 end;
SS:=0;
for J:=1 to X do
 SS:=SS+(Z[J]-Y[J])*(Z[J]-Y[J]);
 F6:=SS/(F9*U9);
 writeln('Расчетная величина F-критерия F6=',F6);
 writeln(F0,'Расчетная величина F-критерия F6=',F6);
 if F6<=F7 then
   begin
     writeln('Адекватно, так как F6<=F7');
     writeln(F0,'Адекватно, так как F6<=F7');
   end;
 if F6>F7 then
   begin
     writeln('Неадекватно, так как F6>F7');
     writeln(F0,'Неадекватно, так как F6>F7');
   end;
  if X=3 then
   begin
     writeln(F0,'X=3. System, 1.1 - 1.3, finish 1.3.');
     writeln(F0,'1.1.','A1=',A1,'Z(1)=',Z[1]);
     writeln(F0,'1.2.','E1=',E1,'Z(3)=',Z[3]);
     writeln(F0,'1.3.','B1=',B1,'Z(2)=',Z[2]);
   end;
  if X=9 then
   begin
     writeln(F0,'X=9. System, 1.1 - 6.3, finish 6.3.');
     writeln(F0,'1.1.','A2=',A2,'A1=',A1,'Z(1)=',Z[1]);
     writeln(F0,'1.2.','A2=',A2,'E1=',E1,'Z(7)=',Z[7]);
     writeln(F0,'1.3.','A2=',A2,'B1=',B1,'Z(2)=',Z[2]);
     writeln(F0,'2.1.','E2=',E2,'A1=',A1,'Z(5)=',Z[5]);
     writeln(F0,'2.2.','E2=',E2,'E1=',E1,'Z(9)=',Z[9]);
     writeln(F0,'2.3.','E2=',E2,'B1=',B1,'Z(6)=',Z[6]);
     writeln(F0,'3.1.','B2=',B2,'A1=',A1,'Z(3)=',Z[3]);
     writeln(F0,'3.2.','B2=',B2,'E1=',E1,'Z(8)=',Z[8]);
     writeln(F0,'3.3.','B2=',B2,'B1=',B1,'Z(4)=',Z[4]);
     writeln(F0,'4.1.','A1=',A1,'A2=',A2,'Z(1)=',Z[1]);
     writeln(F0,'4.2.','A1=',A1,'E2=',E2,'Z(5)=',Z[5]);



                                                    75