Улучшение способов получения пористых материалов и изделий на основе изобретений и моделирования. Черный А.А. - 172 стр.

UptoLike

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

172
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;
GB2480(A2,B2,J2,V2);
    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;
    GB2480(A2,B2,J2,V2);

                            172