Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 204 стр.

       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);
      writeln('V1=',V1);
      vvod22;




                                      204