Здравствуйте, sercher, Вы писали:



S>Господа программисты.

S>А почему бы нам не сделать конкурс на самый глючный баг? Ведь чем сложнее и трудноуловимее баг, тем профессиональнее считается программист. Вот примеры:
Вот вы говорите, баги... А у нас в институте народ, натурально, сдает вот такое:

TSPRab = class(TFRSP)
  public
    function MXTheor: TReal; virtual; abstract;
    function DXTheor: TReal; virtual; abstract;         // теор. DX
    // к-т асимметрии
    function Assym: TReal; virtual; abstract;
    // к-т эксцесса
    function Excess: TReal; virtual; abstract;
    procedure Model(ALength: Integer; A, B: TReal); reintroduce;
  end;
{-----------}
implementation

var
  Y,X: TArrayX;
  a, b, mu, mu3, mu4, gamma, alpha, betta, sigma: Real;
  i:word; //счетчик

function SPRab.MXTheor;
begin
MXTheor:=(a+b)/2;
end;

function SPRab.Assym;
begin
KATheor:=0;
end;
{-----------}
Function SPSimp.Model;
begin
For i:=1 to N do
     if Random=0 then FArrayX[i]:=a else
 if (Random>0) and (Random<0.5) then FArrayX[i]:=(b-a)*sqrt(X[i]/2)+a else
    if (Random>=0,5) and (Random<1) then
              FArrayX[i]:=b*sqrt((1-X[i])/2)*(b-a) else
                    if Random=1 then FArrayX[i]:=b;
end;
{-----------}
function SPVeyb.Assym;
begin
mu3=(Г(1+3/alpha)- 3*Г(1+1/alpha)* (Г(1+2/alpha)+2*Г{в кубе}(1+1/alpha))
*betta{в степени -2/alpha??}) *betta{в степени -3/alpha??};
KATheor:=mu3/DXTheor{в степени 3/2};
end;