Математическое моделирование на языке Турбо-Паскаль. Черный А.А. - 76 стр.

  K8:=0; K8:=Z[1];
  readln(I0);
  for K5:=1 to X do
    if Z[K5]>=K8 then K8:=Z[K5];
  writeln('MAX Z(K5)=',K8);
  writeln(F0,'MAX Z(K5)=',K8);
  for K5:=1 to X do
    if Z[K5]=K8 then
      begin
        writeln('MAX Z(',K5,')=',Z[K5]);
        writeln(F0,'MAX Z(',K5,')=',Z[K5]);
      end;
  K7:=0; K7:=Z[1];
  for K5:=1 to X do
    if Z[K5]<=K7 then K7:=Z[K5];
  writeln('MIN Z(K5)=',K7);
  writeln(F0,'MIN Z(K5)=',K7);
  for K5:=1 to X do
    if Z[K5]=K7 then
      begin
        writeln('MIN Z(',K5,')=',Z[K5]);
        writeln(F0,'MIN Z(',K5,')=',Z[K5]);
      end;
  writeln('MIN Z(K5)=K7, MAX Z(K5)=K8');
  writeln('K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
  writeln(F0,'MIN Z(K5)=K7, MAX Z(K5)=K8');
  writeln(F0,'K6(K5)=(Z(K5)+abs(K7))/(abs(K7)+abs(K8))');
    for K5:=1 to X do
      begin
        KK6[K5]:=(Z[K5]+abs(K7))/(abs(K7)+abs(K8));
        writeln('K6(',K5,')=',KK6[K5]);
        writeln(F0,'K6(',K5,')=',KK6[K5]);
      end;
    J5:=0;
    J5:=abs(K7)/(abs(K7)+abs(K8));
    writeln('J5:=abs(K7)/(abs(K7)+abs(K8))');
    writeln('J5=',J5);
    writeln(F0,'J5:=abs(K7)/(abs(K7)+abs(K8))');
    writeln(F0,'J5=',J5);
    writeln('Если I0=70, то повторение');
    writeln('вычисления показателей');
    writeln('и построение графиков');
    writeln('Если I0=80, то построение графика');
    readln(I0);
    if I0=70 then GB7000;
1: K0:=0; K3:=0; K4:=0; K4:=X;
    K7:=0; K8:=0; X0:=0; Y0:=0;
    writeln('Построение графика');
    writeln('Зависимость KK6(K5) от фактора');
    writeln('KK6(K5)-относительная величина показателя');
    writeln('K5-номер величины фактора и показателя');
    writeln('Величина фактора заданы');
    writeln('Ввод X0-отступ вправо по оси X');
    writeln('(Предпочтительно X=5)');
    writeln('Y0-отступ вниз по оси Y');
    writeln('(Предпочтительно Y0=180)');
    writeln('K0-длина графика по оси X');
    writeln('K3-высота графика по оси Y');
    writeln('Было X0=',X0,' Y0=',Y0);
    writeln('Было K0=',K0,' K3=',K3);
    writeln('Введите X0 Y0 K0 K3');
    readln(X0,Y0,K0,K3);
    grDriver := Detect;
    InitGraph(grDriver, grMode,'');

                                  76