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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

55
begin
writeln(F0,'');
writeln(F0,'Значение');
writeln(F0,'J');
writeln(F0,'F(J)Z(J)');
end;
ifPR=74then
begin
writeln(F0,'');
writeln(F0,'Значение');
writeln(F0,'J');
writeln(F0,'F(J)H(J)Z(J)');
end;
ifPR=75then
begin
write(F0,'');
writeln(F0,'');
write(F0,'Значе');
writeln(F0,'ние');
write(F0,'J');
writeln(F0,'');
write(F0,'F(J)H(J)');
writeln(F0,'L(J)Z(J)');
end;
ifPR=76then
begin
write(F0,'');
writeln(F0,'');
write(F0,'Значение');
writeln(F0,'');
write(F0,'J');
writeln(F0,'');
write(F0,'
F(J)H(J)L(J)');
writeln(F0,'K(J)Z(J)');
end;
ifPR=77then
begin
write(F0,'');
writeln(F0,'');
write(F0,'Зна');
writeln(F0,'чение');
write(F0,'J');
writeln(F0,'');
write(F0,'F(J)H(J)L(J)');
writeln(F0,'K(J)M(J)
Z(J)');
end;
ifPR=73then
begin
forJ:=1toXdo
  begin
   writeln(F0,'                                               ');
   writeln(F0,'          Значение            ');
   writeln(F0,' J                                         ');
   writeln(F0,'        F(J)       Z(J) ');
  end;
if PR=74 then
  begin
   writeln(F0,'                                                                       ');
   writeln(F0,'              Значение                ');
   writeln(F0,' J                                                               ');
   writeln(F0,'        F(J)       H(J)      Z(J) ');
  end;
if PR=75 then
  begin
   write(F0,'                                             ');
   writeln(F0,'                                  ');
   write(F0,'                Значе');
   writeln(F0,'ние                ');
   write(F0,' J                                       ');
   writeln(F0,'                                  ');
   write(F0,'       F(J)     H(J) ');
   writeln(F0,' L(J)      Z(J) ');
  end;
if PR=76 then
  begin
   write(F0,'                                                                   ');
   writeln(F0,'                                  ');
   write(F0,'                      Значение ');
   writeln(F0,'               ');
   write(F0,' J                                                           ');
   writeln(F0,'                                  ');
   write(F0,'       F(J)     H(J)         L(J) ');
   writeln(F0,' K(J)      Z(J) ');
  end;
if PR=77 then
  begin
   write(F0,'                                                                   ');
   writeln(F0,'                                                     ');
   write(F0,'                         Зна');
   writeln(F0,'чение                        ');
   write(F0,' J                                                     ');
   writeln(F0,'                                                        ');
   write(F0,'       F(J)     H(J)        L(J) ');
   writeln(F0,' K(J)       M(J)        Z(J) ');
  end;
if PR=73 then
  begin
   for J:=1 to X do
                                                                                            55

Страницы