27 lines
324 B
Text
27 lines
324 B
Text
PROGRAM:BINSEARC
|
|
:Disp "INPUT A LIST:"
|
|
:Input L1
|
|
:SortA(L1)
|
|
:Disp "INPUT A NUMBER:"
|
|
:Input A
|
|
:1→L
|
|
:dim(L1)→H
|
|
:int(L+(H-L)/2)→M
|
|
:While L<H and L1(M)≠A
|
|
:If A>M
|
|
:Then
|
|
:M+1→L
|
|
:Else
|
|
:M-1→H
|
|
:End
|
|
:int(L+(H-L)/2)→M
|
|
:End
|
|
:If L1(M)=A
|
|
:Then
|
|
:Disp A
|
|
:Disp "IS AT POSITION"
|
|
:Disp M
|
|
:Else
|
|
:Disp A
|
|
:Disp "IS NOT IN"
|
|
:Disp L1
|