unit2.pas

来自「1、说明： 本书中所有的常用数值算法子过程按书中的章数分别放在以C开头」· PAS 代码 · 共 26 行

unit Unit2;

interface
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);

implementation
procedure LOCATE(XX:array of real; N:integer; X:real; var J:integer);
label 10;
var
    JL,JU,JM:INTEGER;
begin
    JL:=0;
    JU:=N + 1;
10: If JU - JL > 1 Then
    begin
        JM:=(JU + JL) Div 2;
        If (XX[N] > XX[1]) = (X > XX[JM]) Then
            JL:=JM
        Else
            JU:=JM;
        GoTo 10;
    end;
    J:=JL;
end;
end.