10 REM *********** ΠΡΟΓΡΑΜΜΑ Π201 **********

20 REM * *

30 REM * Eντοπισμός πραγματικών ριζών *

40 REM * *

50 REM *****************************************

60 CLS

70 INPUT "Εδωσες τη συνάρτηση (Ν/Ο) ";W$

80 IF W$="N" OR W$="n" THEN GOTO 100

90 STOP

100 DEF FNF(X)=X^4-4*X^3-X^2+16*X-12

110 EPS=.0000005

120 CLS:PRINT :PRINT "Δώσε το διάστημα εντοπισμού των ριζών"

130 PRINT :INPUT "από A=";A

140 INPUT " μέχρι B=";B:PRINT

150 INPUT "Δώσε το βήμα H=";H

160 CLS

170 PRINT :PRINT "Ρίζες περιέχονται στα διαστήματα":PRINT

180 I=0

190 X=A

200 T1=FNF(X)

210 X=X+H

220 T2=FNF(X)

230 IF ABS(T1)<EPS THEN GOTO 290

240 IF ABS(T2)<EPS THEN GOTO 260

250 IF T1*T2<0 THEN GOTO 320

260 IF X>B THEN GOTO 350

270 T1=T2

280 GOTO 210

290 I=I+1

300 PRINT: PRINT "X(";I;")=";X-H

310 GOTO 260

320 I=I+1

330 PRINT:PRINT X-H;"< X(";I;") <";X

340 GOTO 260

350 IF I<>0 THEN END

360 PRINT"-------------------------------------"

370 PRINT" ή δεν υπάρχουν ρίζες ή υπάρχουν"

380 PRINT"πολλαπλότητας αρτίου αριθμού "

390 PRINT"ή το διάστημα έχει άρτιο αριθμό ριζών"

400 PRINT"-------------------------------------"

410 PRINT "Χρησιμοποιήσετε διαφορετικό Η"

420 PRINT"Πάτησε RETURN αν θέλεις να συνεχίσεις"

430 PRINT"ή ένα άλλο πλήκτρο για να σταματήσεις"

440 PRINT"-------------------------------------"