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

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

151
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);
vvod24;
GB2480(A4,B4,J4,V4);
writeln(F0,'V4=',V4);
writeln('V4=',V4);
end;
32: begin
vvod21;
GB2480(A1,B1,J1,V1);
writeln(F0,'V1=',V1); 
      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);
     vvod24;
     GB2480(A4,B4,J4,V4);
     writeln(F0,'V4=',V4);
     writeln('V4=',V4);
   end;
 32: begin
     vvod21;
     GB2480(A1,B1,J1,V1);
     writeln(F0,'V1=',V1);




                                                       151

Страницы