Математическое моделирование с применением графических построений в ЕХСЕL. Черный А.А. - 56 стр.

 begin
   write('Y(',J,')=');
   readln(Y[J]);
   writeln(F0,'Y(',J,')=',Y[J]);
 end;
case X of
 3: GB4150;
 4: GB4210;
 5: GB4290;
 9: begin
     GB4150; GB4170;
    end;
 12:begin
     GB4150; GB4250;
    end;
 15:begin
     GB4150; GB4340;
    end;
 16:begin
     GB4210; GB4250;
    end;
 20:begin
     GB4210; GB4340;
    end;
 25:begin
     GB4290; GB4340;
    end;
 27:begin
     GB4150; GB4170; GB4190;
    end;
 end;{case}
GB1410;
case X of
 4: GB2000;
 5: begin GB2000; GB2020; end;
 9: begin GB1480; end;
 12:begin GB1480; GB1600; end;
 15:begin GB1480; GB1600; GB1670; end;
 16:begin GB1480; GB1600; GB1930; end;
 20:begin GB1480; GB1600; GB1670; GB1730; end;
 25:begin GB1480; GB1600; GB1670; GB1730; GB1830; end;
 27:begin GB1480; GB2040; end;
end;
writeln('B(J) до анализа');
writeln(F0,'B(J) до анализа');
for J:=1 to X do
 begin
   writeln('B(',J,')=',B[J]);
   writeln(F0,'B(',J,')=',B[J]);
 end;
case X of
 3: GB4390;
 4: GB4400;
 5: GB4420;
 9: GB4450;
 12:GB4490;
 15:GB4530;
 16:GB4580;
 20:GB4630;
 25:GB4690;
 27:GB4770;
 else goto 2;
end;

                                              56