Вычислительная техника в инженерных расчетах и моделировании. Черный А.А. - 253 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

253
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;
if PR=75 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,'│',Z[J]:10,'│');
end;
write(F0,'└────┴──────────┴──────────┴');
writeln(F0,'──────────┴──────────┘');
end;
end;
end. 
         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;
   if PR=75 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,'│',Z[J]:10,'│');
         end;
           write(F0,'└────┴──────────┴──────────┴');
           writeln(F0,'──────────┴──────────┘');
     end;
   end;
end.




                                       253

Страницы