Основы изобретательства и научных исследований. Черный А.А. - 190 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

190
begin
writeln(F0,'┌────┬────────────────────────────────┐');
writeln(F0,'│ │ Значение │');
writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
writeln(F0,'│ │ F(J) │ H(J) │ Z(J) │');
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,'│',H[J]:10);
writeln(F0,'│',Z[J]:10,'│');
end;
writeln(F0,'└────┴──────────┴──────────┴──────────┘');
end;
write(F0,'└────┴──────────┴──────────┴');
writeln(F0,'──────────┴──────────┘');
end;
end;
end. 
    begin
     writeln(F0,'┌────┬────────────────────────────────┐');
     writeln(F0,'│ │             Значение          │');
     writeln(F0,'│ J ├──────────┬──────────┬──────────┤');
     writeln(F0,'│ │ F(J) │ H(J) │ Z(J) │');
    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,'│',H[J]:10);
        writeln(F0,'│',Z[J]:10,'│');
      end;
    writeln(F0,'└────┴──────────┴──────────┴──────────┘');
    end;
        write(F0,'└────┴──────────┴──────────┴');
        writeln(F0,'──────────┴──────────┘');
    end;
  end;
end.




                               190

Страницы