?? locate.txt
字號(hào):
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;
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -