Roots 191 120 IF INKEY$="" THEN 120 ELSE CLS 130 PRINT" ROOTS" 140 PRINT:PRINT"Any Root may be calc ulated by Reiterative approximatio n using: A = ((N/G'(R-1))+G*(R-1) )/2 150 PRINT:PRINT"Where N = ORIGINAL NUMBE R R = ROOT REQUIRED G = ANY NUMBER A = APPROXIMATION TO ROOT N PRODUCED BY THE FO RMULA." 160 PRINT:PRINT"IF A<>G then we let G=A and apply the formula repeatedly makin g G equal to thepreceding value of A u ntil A = G (= ROOT N)." 170 PRINT:PRINT:PRINT:PRINT" PRES S ANY KEY TO CONTINUE" leo IF INKEY$<>"" THEN 180 190 IF INKEY$="" THEN 190 ELSE CLS 200 PRINT" ROOTS @ MICHAEL BEWS 210 PRINT STRING$(40,127) 220 PRINT" A = ((N/G---(R-1))+G*(R-1 ))/2 230 PRINT: PRINT STR1NG$(40,127) 240 PRINT"Example:To find SQ.Root of 16 LET G=3 (a reasonable guess as SQ.Root 16 4 as you know!)" 250 REM 260 G=3:N=16 270 GOSUB 280:GOTO 310 280 A=(N/G+G)/2:RETURN 290 LOCATE 1,9:PRINT 300 PRINT:PRINT 310 PRINT"G=";G;"GIVES A=";A 320 PRINT:PRINTHWE NOW LET G="0 330 PRINT 340 G=A:GOSUB 280 350 PRINT"G=";G;": A="0 360 IF A=G THEN GOTO 380 370 GOTO 340