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

20 REM * *

30 REM * Μέθοδος της εσφαλμένης θέσης *

40 REM * ή της διχοτόμησης *

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

60 CLS

70 DEF FNF(X)=2*X-3

80 EPS=.0000005

90 PRINT"Δώσε το διάστημα [Α,Β]"

100 PRINT :INPUT "Κάτω άκρο";A

110 PRINT :INPUT " Πάνω άκρο";B

120 PRINT

130 PRINT "1. Mέθοδος της Eσφαλένης θέσης"

140 PRINT "2. Μέθοδος της Διχοτόμησης":PRINT

150 PRINT "Πάτησε το αντίστοιχο πλήκτρο"

160 K$=INKEY$

170 IF K$="" THEN 160 ELSE K=VAL(K$)

180 PRINT

190 FOR N=1 TO 200

200 FA=FNF(A):FB=FNF(B)

210 REM Ελεγχος αν υπάρχει ρίζα στο διάστημα [Α,Β]

220 IF FA*FB>0 THEN GOTO 370

230 C1=C

240 IF K=1 THEN C=B-FB*(A-B)/(FA-FB) ELSE C=(A+B)/2

250 FC=FNF(C)

260 REM Eντοπισμός του νέου διαστήματος

270 IF FA*FC>0 THEN GOTO 300

280 B=C:FB=FC

290 GOTO 310

300 A=C:FA=FC

310 IF ABS(C-C1)<EPS GOTO 350

320 NEXT N

330 PRINT"Mε 100 επαναλήψεις δεν έχουμε σύγκλιση"

340 END

350 PRINT"Επαναλήψεις =";N;"Η ρίζα είναι =";C

360 END

370 PRINT:PRINT "ή δεν υπάρχει ρίζα":PRINT

380 PRINT "ή υπάρχει άρτιος αριθμών ριζών"

390 PRINT:PRINT "Βρες νέο διάστημα":PRINT

400 GOTO 90