Теория и практика эффективного математического моделирования. Черный А.А. - 319 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

319
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;
end;{OUT_F_H_L}
procedure GB2820; 
       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;
   end;{OUT_F_H_L}
procedure GB2820;




                                    319

Страницы