Теория и практика математического моделирования в современном литейном производстве. Дурина Т.А. - 66 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

66
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,'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);
vvod25;
GB2480(A5,B5,J5,V5);
writeln(F0,'V5=',V5);
writeln('V5=',V5);
end;
0:goto2;
elsegoto2;
    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,'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);
    vvod25;
    GB2480(A5,B5,J5,V5);
    writeln(F0,'V5=',V5);
    writeln('V5=',V5);
  end;
 0: goto 2;
 else goto 2;
                            66

Страницы