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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

68
M[32]:=B5;
end;
3:writeln('‐‐‐‐‐‐‐‐‐‐<Меню1>‐‐‐‐‐‐‐‐‐‐‐‐');
writeln('ЕслиI0=6,топереходвначало');
writeln('ЕслиI0=7,топродолжение');
write('I0=');
readln(I0);
ifI0=6thengoto1;
writeln('ВводвеличинпоказателейY[J]');
writeln(F0,'ПоказателиY(J)');
forJ:=1toXdo
begin
write('Y(',J,')=');
readln(Y[J]);
writeln(F0,'Y(',J,')=',Y[J]);
end;
caseXof
2:GB2490;
4:begin
GB2490;GB2500;
end;
8:begin
GB2490;GB2500;GB2510;
end;
16:begin
GB2490;GB2500;GB2510;GB2520;
end;
32:begin
GB2490;GB2500;GB2510;
GB2520;GB2530;
end;
end;{case}
GB780;
caseXof
4:GB810;
8:begin
GB810;GB850;
end;
16:begin
GB810;GB850;GB940;
end;
32:begin
GB810;GB850;GB940;GB1110;
end;
end;{case}
writeln('B(J)доанализа');
writeln(F0,'B(J)доанализа');
forJ:=1toXdo
begin
     M[32]:=B5;
   end;
3:writeln('‐‐‐‐‐‐‐‐‐‐<Меню 1>‐‐‐‐‐‐‐‐‐‐‐‐');
 writeln('Если I0=6, то переход в начало');
 writeln('Если I0=7, то продолжение');
 write('I0=');
 readln(I0);
 if I0=6 then goto 1;
 writeln('Ввод величин показателей Y[J]');
 writeln(F0,'Показатели Y(J)');
 for J:=1 to X do
   begin
     write('Y(',J,')=');
     readln(Y[J]);
     writeln(F0,'Y(',J,')=',Y[J]);
   end;
 case X of
 2: GB2490;
 4: begin
     GB2490; GB2500;
    end;
 8: begin
     GB2490; GB2500; GB2510;
    end;
16: begin
     GB2490; GB2500; GB2510; GB2520;
    end;
32: begin
     GB2490; GB2500; GB2510;
     GB2520; GB2530;
     end;
 end;{case}
 GB780;
 case X of
 4: GB810;
 8: begin
     GB810; GB850;
    end;
16: begin
     GB810; GB850; GB940;
     end;
32: begin
     GB810; GB850; GB940; GB1110;
     end;
 end;{case}
 writeln(' B(J) до анализа');
 writeln(F0,' B(J) до анализа');
 for J:=1 to X do
   begin
                                               68

Страницы