mdian1.txt

来自「《Delphi常用数值算法集》的配书源码」· 文本 代码 · 共 11 行

procedure MDIAN1(var X:array of real; N:integer;var XMED:real);
var
    N2:integer;
begin
    SORT(N, X);
    N2:=N div 2;
    If 2 * N2 = N Then
        XMED:=0.5 * (X[N2] + X[N2 + 1])
    Else
        XMED:=X[N2 + 1];
end;