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