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

  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);
     writeln(F0,'V1=',V1);
     writeln('V1=',V1);
   end;
 4: begin
     vvod21;
     GB2480(A1,B1,J1,V1);
     writeln(F0,'V1=',V1);
     writeln('V1=',V1);
     vvod22;
     GB2480(A2,B2,J2,V2);
     writeln(F0,'V2=',V2);
     writeln('V2=',V2);
     end;
 8: begin
     vvod21;
     GB2480(A1,B1,J1,V1);
     writeln(F0,'V1=',V1);
     writeln('V1=',V1);
     vvod22;
     GB2480(A2,B2,J2,V2);
     writeln(F0,'V2=',V2);
     writeln('V2=',V2);
     vvod23;
     GB2480(A3,B3,J3,V3);
     writeln(F0,'V3=',V3);
     writeln('V3=',V3);
   end;
16: begin
     vvod21;
     GB2480(A1,B1,J1,V1);
     writeln(F0,'V1=',V1);
     writeln('V1=',V1);
     vvod22;
     GB2480(A2,B2,J2,V2);
     writeln(F0,'V2=',V2);
     writeln('V2=',V2);
     vvod23;
     GB2480(A3,B3,J3,V3);
     writeln(F0,'V3=',V3);
     writeln('V3=',V3);




                                                       126