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

UptoLike

ВУЗ: 

ПГУ | Пенза

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

Рубрика: 

7
Программа LV1(два модуля tpgl3, 1-й вариант, _Х=2_, _Х=4_,
_Х=8_, Х=16, «система» после «адекватно»)
program tpgl1_1;
uses 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=73 then
begin
for J:=1 to X do
begin
writeln(F0,'├────┼──────────┼──────────┤');
writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');
end; 
          Программа LV1(два модуля tpgl3, 1-й вариант, _Х=2_, _Х=4_,
               _Х=8_, Х=16, «система» после «адекватно»)




program tpgl1_1;
uses 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=73 then
      begin
       for J:=1 to X do
        begin
          writeln(F0,'├────┼──────────┼──────────┤');
          writeln(F0,'│ ',J:2,' │',F[J]:10,'│',Z[J]:10,'│');
        end;




                                      7

Страницы