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

20 REM * *

30 REM * Μέθοδος secant ή χορδής *

40 REM * *

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

60 CLS

70 EPS=.0000005

80 DEF FNF(X)=X*X-5*X+6

90 PRINT "Δώσε δυο αρχικές τιμές Χ0 και Χ1"

100 INPUT "X0=";X0

110 INPUT "X1=";X1

120 F0=FNF(X0)

130 N=N+1

140 F1=FNF(X1)

150 N=N+1

160 IF F0-F1=0 THEN 290

170 X=X1-F1*(X0-X1)/(F0-F1)

180 IF ABS(X-X1)<EPS THEN GOTO 260

190 X0=X1

200 X1=X

210 F0=F1

220 IF N>50 THEN GOTO 240

230 GOTO 130

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

250 GOTO 290

260 PRINT:PRINT "Η ρίζα είναι = ";X;"Eπαναλήψεις =";N:PRINT

270 INPUT "Θέλεις άλλη ρίζα (Ν/Ο);";A$

280 IF A$="N" OR A$="n" THEN GOTO 290 ELSE END

290 PRINT:PRINT "Δώσε διαφορετικές αρχικές τιμές των Χ0 και Χ1":PRINT

300 GOTO 100

310 END