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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

62
K7:=0;K8:=0;K0:=0;X0:=0;Y0:=0;J5:=0;
J6:=0;J9:=0;S:=0;
writeln('Если X=0, то выход из программы');
write('X=');readln(X);
writeln(F0,'X=',X);
for J:=1 to X do
begin
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); 
  K7:=0;K8:=0;K0:=0;X0:=0;Y0:=0;J5:=0;
  J6:=0;J9:=0;S:=0;
  writeln('Если X=0, то выход из программы');
  write('X=');readln(X);
  writeln(F0,'X=',X);
  for J:=1 to X do
    begin
      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);




                                                       62

Страницы