Курсовая работа: Расчетная методика проектирования программного комплекса

Result := round(X);

end;

function fMmax(N: Integer): Integer;

var

x: Real;

begin

X := 1.25*power(N,0.4);

Result := round(X);

end;

function fdX(M: TM; N: Integer; Xc: Real; NInt: Integer): Real;

var

i: Integer;

x, R: Real;

nGist, NumInt: integer;

Gist: array [1..5] of Integer;

begin

Mmax := M[1];

Mmin := M[1];

for i := 2 to N do

begin

if M[i] > Mmax then Mmax := M[i];

if M[i] < Mmin then Mmin := M[i];

end;

if abs(MMax - Xc) > abs(MMin - Xc) then

x := MMax

else

x := MMin;

Result := (2 * abs(x - Xc)) / NInt;

end;