/:= 1: r:=n: p:=fcilse: ."iM
nhile (/<= / ) and (notp) do begin
///:= (/+/•) div 2:
if am = x thcn p - tnie i
else if aw < x then /:= /// + 1
else r- m - 1:
end; |
Wykład 9 Programowanie komputerów I 12