[Guest]

Код:

procedure RE(viborka:TPmas_real; var Hs:real);
       var i:integer;
           n:integer;
           buf:real;
           dEi:real;
           zEi:real;
           dmax,dmin:real;
           sRe:real;
           sN:real;
           b1,b2,b3,b4:real;
       begin
         b1:=0; b2:=0; b3:=0; b4:=0; buf:=0;
         dmax:=viborka[0]; dmin:=viborka[0];
         for i:=0 to 8 do
          begin
           if dmax<viborka[i] then dmax:=viborka[i];
           if dmin>viborka[i] then dmin:=viborka[i];
           zei:=zei+sqr(viborka[i]);
           sN:=sN+ln(i+1);
           b3:=b3+sqr(ln(i+1));
          end;
         //dei:=sqrt(buf/8);

         for i:=9 to high(viborka) do
           begin
             if dmax<viborka[i] then dmax:=viborka[i];
             if dmin>viborka[i] then dmin:=viborka[i];
             zei:=zei+sqr(viborka[i]);
             dEi:=sqrt(zei/i+1);
             sRe:=sRe+ln((dmax-dmin)/dEi);
             sN:=sN+ln(i+1);
             b1:=b1+ln(i+1)*ln((dmax-dmin)/dEi);    //log10
             b3:=b3+sqr(ln(i+1));
           end;
         n:=length(viborka);
         b2:=sN*sRe;
         b4:=sqr(sN);
         Hs:=(n*b1-b2)/(n*b3-b4);
       end;

процедура saveviborka лежит в отдельном модуле и по-моемому там так не получится, ну self передавать.

а ты просто переменную в раннтайме смотрел?

если без процедуры сохранения в файл правильное значение с процедурой - неправильное...