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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

56
begin
writeln(F0,'');
writeln(F0,'',J:2,'',F[J]:10,'',Z[J]:10,'');
end;
writeln(F0,'');
end;
ifPR=74then
begin
forJ:=1toXdo
begin
write(F0,'');
writeln(F0,'');
write(F0,'',J:2,'',F[J]:10,'');
writeln(F0,H[J]:10,'',Z[J]:10,'');
end;
writeln(F0,'');
end;
ifPR=75then
begin
forJ:=1toXdo
begin
write(F0,'');
writeln(F0,'');
write(F0,'',J:2,'',F[J]:10,'');
writeln(F0,H[J]:10,'',L[J]:10,'',Z[J]:10,'');
end;
write(F0,'');
writeln(F0,'');
end;
ifPR=76then
begin
forJ:=1toXdo
begin
write(F0,'');
writeln(F0,'');
write(F0,'',J:2,'',F[J]:10,'',H[J]:10,'');
writeln(F0,L[J]:10,'',K[J]:10,'',Z[J]:10,'');
end;
write(F0,'');
writeln(F0,'');
end;
ifPR=77then
begin
forJ:=1
toXdo
begin
write(F0,'');
writeln(F0,'');
write(F0,'',J:2,'',F[J]:10,'',H[J]:10,'');
write(F0,L[J]:10,'',K[J]:10,'',M[J]:10,'');
       begin
        writeln(F0,'                                              ');
        writeln(F0,' ',J:2,' ',F[J]:10,' ',Z[J]:10,' ');
       end;
     writeln(F0,'                                            ');
    end;
  if PR=74 then
    begin
      for J:=1 to X do
       begin
        write(F0,'                         ');
        writeln(F0,'                                 ');
        write(F0,' ',J:2,' ',F[J]:10,' ');
        writeln(F0,H[J]:10,' ',Z[J]:10,' ');
       end;
  writeln(F0,'                                                                   ');
  end;
  if PR=75 then
    begin
     for J:=1 to X do
       begin
        write(F0,'                                             ');
        writeln(F0,'                                 ');
        write(F0,' ',J:2,' ',F[J]:10,' ');
        writeln(F0,H[J]:10,' ',L[J]:10,' ',Z[J]:10,' ');
       end;
     write(F0,'                                           ');
     writeln(F0,'                                ');
  end;
if PR=76 then
  begin
    for J:=1 to X do
      begin
       write(F0,'                                            ');
       writeln(F0,'                                                       ');
       write(F0,' ',J:2,' ',F[J]:10,' ',H[J]:10,' ');
       writeln(F0,L[J]:10,' ',K[J]:10,' ',Z[J]:10,' ');
      end;
    write(F0,'                                           ');
    writeln(F0,'                                                      ');
  end;
if PR=77 then
  begin
    for J:=1 to X do
      begin
       write(F0,'                                                            ');
       writeln(F0,'                                                             ');
       write(F0,' ',J:2,' ',F[J]:10,' ',H[J]:10,' ');
       write(F0,L[J]:10,' ',K[J]:10,' ',M[J]:10,' ');
                                                                                       56

Страницы