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

    end;
    if X=8 then
    begin
     for S:=1 to X do
       begin
         F[S]:=0; H[S]:=0;
        Z[S]:=0; L[S]:=0;
         writeln('Ввод F(',S,') H(',S,') L(',S,')');
         readln(F[S],H[S],L[S]);
         GB2490; GB2500; GB2510; GB2570;
         writeln('Z(',S,')=',Z[S]);
       end;
     OUT_F_H_L(75);
    end;
    if X=16 then
    begin
     for S:=1 to X do
       begin
         F[S]:=0; H[S]:=0; K[S]:=0;
         L[S]:=0; Z[S]:=0;
         writeln('Ввод F(',S,') H(',S,') L(',S,') K(',S,')');
         readln(F[S],H[S],L[S]);
         GB2490; GB2500; GB2510;
         GB2520; GB2600;
         writeln('Z(',S,')=',Z[S]);
       end;
     OUT_F_H_L(76);
    end;
  2:writeln('----------------<Меню 4------------------');
    writeln('Если I0=10, то проверка точности');
    writeln('и расчеты по модели');
    writeln('Если I0=14, то вычисления ');
    writeln('показателей Z(K5) с использованием');
    writeln('циклов');
    writeln('Если I0=35, то переход к меню 1');
    writeln('Если I0=18, то переход к меню 2');
    writeln('Если I0=19, то переход к меню 3');
    writeln('Если I0=50, то переход в начало программы');
    writeln('Если I0=44, то выход из программы');
    write('Ввод I0=');
    readln(I0);
    if (I0=11) then goto 1;
    if I0=18 then goto 4;
    if (I0=19)or(I0=10) then goto 5;
    if I0=35 then goto 3;
    if I0=14 then
      begin
        GB7000;
        goto 2;
      end;
    writeln('Конец работы');
    close(F0);
   end.{Конец программы}
unit tpgl1_2;
Interface
type artp=array[1..50] of real;
 var




                                                       21