отрицательный массив из за чего?

[wolf777]

подскажите что я делаю не правильно? у меня выводит отрицательный массив...

Снимок1.PNG

вот листинг массива

PHP код:

unit frmProizISUnit;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Math, Grids;

type
  TFrmProizvIS = class(TForm)
    ButtonExe: TButton; // кнопка выполнить
    ButtonExit: TButton; // кнопка выход
    RadioGroup1: TRadioGroup; // колонка групп
   // RadioButtonApdex: TRadioButton; // радиокнопка Apdex
    RadioButtonOPdex: TRadioButton; // радиокнопка  Opdex
    StrGridFR: TStringGrid; // компонент StrGridFR
    Label7: TLabel;
    ButtonObn: TButton; // кнопка обновления
    Label3: TLabel;
    Label6: TLabel;
    EditL: TEdit;
    Label8: TLabel;
    EditK: TEdit;
    Label12: TLabel;
    EditKD: TEdit;
    Label13: TLabel;
    EditKolInt: TEdit;
    EditTint: TEdit;
    ButtonPokaz: TButton;
    Label4: TLabel;
    Label5: TLabel;
    EditMo: TEdit;
    EditDisp: TEdit;
    Label9: TLabel;
    EditLO: TEdit;
    Label10: TLabel;
    EditKO: TEdit;
    //RadioButtonSTdex: TRadioButton;
    EditTotk: TEdit;
    StrGridID: TStringGrid;
    LabelRI: TLabel;
    ButtonRaspr: TButton;
    LabelR: TLabel;
    procedure ButtonExitClick(Sender: TObject);
    procedure ButtonExeClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ButtonObnClick(Sender: TObject);
    procedure ButtonPokazClick(Sender: TObject);
   //procedure StrGridIDSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
    procedure ButtonRasprClick(Sender: TObject);
    procedure StrGridIDSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: string);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmProizvIS: TFrmProizvIS;
  masID,srmID,masMT,masTZ,masBZ: array of real;  //integer;
  masFR,masZM,masGR: array of integer;
  szmID,szmFR,szmZM,szmGR:integer;
  Totk,TintFr: integer;
  RedTxt: boolean;
  nGraf: String;

implementation

uses frmApdexUnit, frmOPdexUnit, frmGrafUnit, ProcUnit;

{$R *.dfm}

  procedure formMasID();    // формирование масива исходных данных
     var
     i,k,m:integer;
     L: real;
 begin
         szmID:=StrToInt(FrmProizvIS.EditKD.Text);
         L:=StrToFloat(FrmProizvIS.EditL.Text);
         k:=StrToInt(FrmProizvIS.EditK.Text);
            SetLength(masID,szmID);
         for i:=1 to szmID-1 do
            begin
             masID[i]:=round(ProcUnit.Erlang(L,k));
            end;
      FrmProizvIS.StrGridID.ColCount:=szmID+1;
      m:=FrmProizvIS.StrGridID.ColCount;
         for i:=0 to m-1  do
           begin
             FrmProizvIS.StrGridID.Cells[i+1,0]:=IntToStr(i);
             FrmProizvIS.StrGridID.Cells[i+1,1]:=FloatToStr(masID[i]);
            // i:=StrToInt(FrmProizvIS.StrGridID.Cells[i+1,0]);
            // masID[i]:=StrToFloat(FrmProizvIS.StrGridID.Cells[i+1,1]);
 end;
    RedTxt:=false;
 end;

 procedure funcRaspr();   // формирование массива  функции распределения
     var
        i,j,k,n:integer;
        tekZn,intN,intK: real;
         KolInt: integer;
        mo,disp,maxID,minID,Lo,Ko: real;
 begin
   if RedTxt then     // если masID редактировался
    begin
     for i:=1 to szmID-1 do
     begin
       masID[i]:=StrToFloat(FrmProizvIS.StrGridID.Cells[i,1]);  //восстановление отредактированного masID
     end;
        RedTxt:=false;
     end;
         KolInt:=StrToInt(FrmProizvIS.EditKolInt.Text);
         Lo:=StrToFloat(FrmProizvIS.EditLO.Text);
         Ko:=StrToFloat(FrmProizvIS.EditKO.Text);
         mo:=StrToFloat(FrmProizvIS.EditMo.Text);
         disp:=StrToFloat(FrmProizvIS.EditDisp.Text);
         ProcUnit.StsMasID(masID,szmID,mo,disp);
         ProcUnit.minT(masID,szmID,minID);
         ProcUnit.maxT(masID,szmID,maxID);
         TintFr:=round((maxID-minID)/KolInt)+1;
         FrmProizvIS.EditTint.Text:=IntToStr(TintFr);
      szmFR:=KolInt;
         SetLength(masFR,szmFR);
      for i:=0 to szmFR-1 do
        begin
        intN:=(i)*TintFr;
        intK:=(i+1)*TintFr;
      k:=0;
      for j:=0 to szmID-1 do
            begin
            tekZn:=masID[j];
          if (intN < tekZn) And (tekZn <= intK) then
               k:=k+1;
     end;
         masFR[i]:=k;
  end;
n:=FrmProizvIS.StrGridFR.ColCount;
FrmProizvIS.LabelR.Caption:='Распределение по интервалам Tint= '+IntToStr(TintFr)+' сек';
         for i:=0 to n-1  do
           begin
             FrmProizvIS.StrGridFR.Cells[i+1,0]:=IntToStr(i);
             FrmProizvIS.StrGridFR.Cells[i+1,1]:=FloatToStr(masFR[i]);
           end;
       //FrmProizvIS.EditMo.Text:=FloatToStr(mo);
       //FrmProizvIS.EditDisp.Text:=FloatToStr(disp);
       //FrmProizvIS.EditLO.Text:=FloatToStr(Lo);
       //FrmProizvIS.EditKO.Text:=FloatToStr(Ko);
     //Lo:=mo/disp;
    // Ko:=Lo*mo;

    end;

procedure TFrmProizvIS.ButtonObnClick(Sender: TObject);
 begin
  if (EditL.Text > '0') and (EditLO.Text > '0') and (EditTotk.Text > '0') and
  (EditK.Text > '0') and (EditKO.Text > '0') and (EditKD.Text > '0') and
  (EditKolInt.Text > '0') and (EditTint.Text > '0')and (EditMo.Text > '0') and
   (EditDisp.Text > '0') then
      begin
     formMasID();
     // funcRaspr();
 end
  else
    ShowMessage('Заполните все поля переменных');
 end;

procedure TFrmProizvIS.ButtonPokazClick(Sender: TObject);
 var
     i:integer;
 begin
  if szmFR >0 then
      begin
         szmGR:=szmFR;
         SetLength(masGR,szmGR);
            masGR[0]:=0;
    for i:=1 to szmGR-1 do
       masGR[i]:=masFR[i-1];
      frmGrafUnit.nGraf:='распределения исходных данных';
     frmGrafUnit.TintGr:=StrToInt(EditTint.Text);
     frmGrafUnit.FrmGraf.LabelInfo.Caption:='Интервал ='+EditTint.Text+'сек';
     frmGrafUnit.FrmGraf.Show();
 end
 else
    ShowMessage('Массив функции распределения не определен');
end;

procedure TFrmProizvIS.ButtonRasprClick(Sender: TObject);
 begin
  if szmID >0 then
 begin
     funcRaspr();
 end
 else
    ShowMessage('распределение невозможно, для начала сформируйте массив исходных данных ');
end;

procedure TFrmProizvIS.FormCreate(Sender: TObject);
begin
      StrGridFR.Rows[0].Text:='Интервал, с';
      StrGridFR.Rows[1].Text:='Колич.изм';
            formMasID();
            funcRaspr();
end;

procedure TFrmProizvIS.StrGridIDSetEditText(Sender: TObject; ACol,
  ARow: Integer; const Value: string);
  begin
    RedTxt:=false;
end;

procedure TFrmProizvIS.ButtonExeClick(Sender: TObject);
begin
 //  if RadioButtonApdex.Checked then
   //   begin
   //    FrmApdex.Show();
   //   end ;
 if RadioButtonOPdex.Checked then
    begin
      FrmOPdex.Show();
    end;
   //  if RadioButtonSTdex.Checked then
  //  begin
   //   FrmSTdex.Show();
   // end;
   end;

procedure TFrmProizvIS.ButtonExitClick(Sender: TObject);
begin
    masFR:=nil;
    masID:=nil;
    masZM:=nil;
      Close();
end;
end. 


[wolf777]

а вот листинг процедур и функций к массиву

PHP код:

unit ProcUnit;

interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Math, Grids;

type
  TProcUnit = class(TForm);

    procedure minT(masID: array of real; szmID: integer; var min: real);
    procedure maxT(masID: array of real; szmID: integer; var max: real);
    procedure StsMasID(masID: array of real; szmID: integer; var mo, disp: real);
    Function Factorial (N: Word): Longint;
    Function Erlang(Pr: real; Kmd: integer): real;


implementation

  uses frmApdexUnit, frmOPdexUnit, frmGrafUnit, frmProizISUnit;

function Erlang(Pr: real; Kmd: integer): real;
  var
   j: integer;
   x,s,m: real;
 begin
 Kmd:= round(StrToFloat(FrmProizvIS.EditK.Text));
 Pr:=StrToFloat(FrmProizvIS.EditL.Text);
     randomize;
    s:=0;
  for j:=1 to Kmd do
      m:=s+random(Kmd); //Если s = 0 и random(k) = 0, то получите деление на 0
    x:=-1/(Pr)*m;
Erlang:=x;
end;

   procedure minT(masID: array of real; szmID: integer; var min: real);
  var
   i: integer;
   m: real;
   begin
     m:=masID[1];
     for i:=2 to szmID-1 do
    if masID[i] < m then
      m:=masID[i];
      min:=m;
  end;

  procedure maxT(masID: array of real;szmID:integer;var max: real);
   var
   i: integer;
   m: real ;
   begin
     m:=masID[1];
     for i:=2 to szmID-1 do
    if masID[i] > m then
      m:=masID[i];
      max:=m;
     end;

  procedure StsMasID(masID: array of real;szmID:integer;
  var mo,disp: real);
   var
   i: integer;
   sum: real;
   begin
   szmID:=StrToInt(FrmProizvIS.EditKD.Text);
     sum:=0;
     for i:=0 to szmID-1 do
        sum:=sum+masID[i];
      mo:=sum/szmID;
      sum:=0;
     for i:=0 to szmID-1 do
        sum:=sum+(masID[i]-mo)*(masID[i]-mo);
      disp:=sum/(szmID-1);
  end;

  Function Factorial (N: Word): Longint;    {Заголовок функции}
 Var
 j: Word; p: Longint;    {Объявление т.н. локальных переменных}
  Begin                {Начало составного оператора - тела функции}
      p:= 1;
      For j:=2 to N do p:=p*j;{Переменная p накапливает произведение}
       Factorial:=p    {Имя функции должно получать значение в блоке}
  end;            {операторная скобка, закрывающая объявление функции}
end. 


[wolf777]

должно вывести вот так

3.jpg

[p51x]

x:=-1/(Pr)*m;

Откуда здесь возьмутся ваши положительные элементы?

[wolf777]

Сообщение от p51x

Откуда здесь возьмутся ваши положительные элементы?

а как правильно написать?

[p51x]

Чтобы сказать, как правильно, надо для начала знать, что это. Просто факт деление отрицательного числа на положительное даст отрицательное.

[wolf777]

Сообщение от p51x

Чтобы сказать, как правильно, надо для начала знать, что это. Просто факт деление отрицательного числа на положительное даст отрицательное.

согласен с вами, получается так,

Kmd:= round(StrToFloat(FrmProizvIS.EditK. Text)); // 1
Pr:=StrToFloat(FrmProizvIS.EditL.Te xt); // 4
_____

m:=s+random(Kmd); //Если s = 0 и random(k) = 0, то получите деление на 0
x:=1/(Pr)*m; // x:=-1/(Pr)*m;
_____
получается -1/1*4=-0,25, убрал минус результат вышел такой

Снимок1.PNG

а как сделать чтоб точь в точь такой результат был?

3.jpg

[wolf777]

никто не сможет помочь разобраться? какое число должно быть чтоб совпала с рисунком?

PHP код:

 Kmd:= round(StrToFloat(FrmProizvIS.EditK.Text));  //4
 Pr:=StrToFloat(FrmProizvIS.EditL.Text);      // 1
     randomize;
    s:=0;
  for j:=1 to Kmd do
      m:=s+random(Kmd);
    x:=1/(Pr)*m;     //       x:=-1/(Pr)*m;
Erlang:=x; // на выходе получается 2
end;