Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 7 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

7
program tpgl1_1;
uses graph,tpgl1_2;
label 1,2,3,4,5;
procedure OUT_F_H_L(PR:integer);
begin
if PR=73 then
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
begin
writeln(F0,'├────┼──────────┼──────────┤');
writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');
end;
writeln(F0,'└────┴──────────┴──────────┘');
end;
if PR=74 then
begin 
program tpgl1_1;
uses graph,tpgl1_2;
  label 1,2,3,4,5;
procedure OUT_F_H_L(PR:integer);
  begin
    if PR=73 then
       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
           begin
             writeln(F0,'├────┼──────────┼──────────┤');
             writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');
           end;
        writeln(F0,'└────┴──────────┴──────────┘');
       end;
     if PR=74 then
       begin

                                       7

Страницы