INPUT “a,b,d=”;a,b,d
DO
m=(a+b)/2
g=a^2-2
f=m^2-2
IF g*f<0 THEN
b=m
ELSE
a=m
END IF
LOOP UNTIL ABS(a-b)<d OR f=0
PRINT m
END
点评: