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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

54
if PR=73 then
begin
for J:=1 to X do
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,'│');
writeln(F0,Z[J]:10,'│');
end;
write(F0,'└────┴──────────┴──────────┴──────────┴');
writeln(F0,'──────────┴──────────┴──────────┘');
end; 
  if PR=73 then
    begin
      for J:=1 to X do
       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,'│');
       writeln(F0,Z[J]:10,'│');
      end;
    write(F0,'└────┴──────────┴──────────┴──────────┴');
    writeln(F0,'──────────┴──────────┴──────────┘');
  end;




                                    54

Страницы