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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

16
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;
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); 
      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;
      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);

                              16

Страницы