10 INPUT A,B,H:P=0
20 FOR X=A TO B STEP H
30 IF X>=(A+B)/2ANDP=0 THEN P=1:A=(A+B)/2:H=H/2:GOTO 20
35 PRINT X;SIN(X)
40 NEXT X