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

UptoLike

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

27
Программа TNV1(два модуля tpgl3, 2-ой вариант _Х=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=77 then
begin
write(F0,'┌────┬─────────────────────────────────');
writeln(F0,'────────────────────────────────┐');
write(F0,' Зна');
writeln(F0,'чение ');
write(F0,' J ├──────────┬──────────┬─────────');
writeln(F0,'─┬──────────┬──────────┬──────────┤');
write(F0,' F(J) H(J) L(J) ');
 Программа TNV1(два модуля tpgl3, 2-ой вариант _Х=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=77 then
     begin
      write(F0,'┌────┬─────────────────────────────────');
      writeln(F0,'────────────────────────────────┐');
      write(F0,'│ │                 Зна');
      writeln(F0,'чение                │');
      write(F0,'│ J ├──────────┬──────────┬─────────');
      writeln(F0,'─┬──────────┬──────────┬──────────┤');
      write(F0,'│ │ F(J) │ H(J) │ L(J) │');




                                     27