15 lines
247 B
QBasic
15 lines
247 B
QBasic
|
10 print "number";
|
||
|
|
20 input x
|
||
|
|
30 g=x/2
|
||
|
|
40 if x>=16 THEN g=x/4
|
||
|
|
50 if x>=64 g=x/8
|
||
|
|
60 if x>=256 g=x/16
|
||
|
|
70 if x>=4096 g=x/64
|
||
|
|
80 if x>=16384 g=x/128
|
||
|
|
90 p=g
|
||
|
|
100 g=(g+x/g)/2
|
||
|
|
110 if g-p>1 goto 90
|
||
|
|
120 if p-g>1 goto 90
|
||
|
|
130 print "square root is ";g
|
||
|
|
140 end
|