5 CLEAR 10 REM BUSQUEDA DE RAICES REALES DE FUNCIONES 20 REM METODO DE LA REGULA FALSI 30 PRINT "METODO DE LA REGULA FALSI" 40 PRINT "-------------------------" 50 IF INKEY$="" THEN 50 60 I=0 65 CLS 70 PRINT "DEFINE LA FUNCION EN LA LINEA 270" 90 PRINT "INTRODUCE 2 VALORES INICIALES:" 100 INPUT "X0=";X0 120 INPUT "X1=";X1 130 PRINT "INTRODUCE EL ERROR DESEADO=";:INPUT D 135 IF INKEY$="" THEN 235 140 PRINT "INTRODUCE NUM.MAX. DE ITERACIONES A REALIZAR="; 200 INPUT I 210 GOSUB 290 220 IF INKEY$="" THEN 220 230 PRINT "UNA RAIZ ES X=";X;"CON UN ERROR MENOR QUE";D 240 PRINT "EL VALOR DE Y(";J;")=";Y 245 IF INKEY$="" THEN 245 250 PRINT "EL NUM. DE ITERACIONES ES=";Y 260 GOTO 570 270 Y= 280 RETURN 290 Y=0 300 IF X0";X 420 J=J+1 430 IF J>=7 THEN 560 440 IF ABS(X-X1)0 THEN 520 470 IF Y*Y1=0 THEN 560 480 X1=X 490 Y1=Y 500 Y0=0.5*Y0 510 GOTO 400 520 X0=X 530 Y0=Y 540 Y1=0.5*Y1 550 GOTO 400 560 RETURN 570 END