1 SIGNIFICANCE 11
5 ! PROGRAM TO FIND AND LET YOU FIND SQUARE ROOTS
6 ! BY ADAM FEDOR
10 INPUT'NUMBER:
20 ?"WHAT NUMBER DO YOU WANT SQUARE ROOTEDED?"
30 INPUT NUMBER
40 INPUT'GUESS:
50 INPUT "GUESS? ",GUESS
60 WRONG=ABS(NUMBER-(GUESS^2))
70 ?"YOU WERE ";WRONG;" OFF"
80 ? : ?"DO YOU WANT TO:"
90 ?TAB(15);"1. GUESS AGAIN"
100 ?TAB(15);"2. TRY ANOTHER SQUARE ROOT"
110 ?TAB(15);"3. LET THE COMPUTER TRY"
120 ?TAB(15);"4. QUIT"
130 INPUT D
140 ON D GOTO INPUT'GUESS,INPUT'NUMBER,COMPUTER,QUIT
150 GOTO 80
160 COMPUTER:
170 ?"WHAT NUMBER DO YOU WANT SQUARE ROOTED?"
180 INPUT NUMBER
200 GUESS=RND(0)*NUMBER
210 FOR K=1 TO 50
220 GUESS2=NUMBER/GUESS
230 AVERAGE=(GUESS+GUESS2)/2
240 GUESS=AVERAGE
250 NEXT K
260 WRONGY=ABS(NUMBER-(GUESS^2))
270 ?"THE COMPUTER'S GUESS WAS";GUESS
300 GOTO 80
305 QUIT:
310 ?"BYE"
320 END