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

  Программа TNV3(два модуля tpgl3, 1-я часть, Х=2, Х=4, Х=8, _Х=16_,
         Х=32, «система» после «адекватно», 1.1-11.2)…tpgl3


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) │');
       writeln(F0,' K(J) │ M(J) │ Z(J) │');
      end;




                                      53