10 REM ************ ΠΡΟΓΡΑΜΜΑ Π302A ***********

20 REM * *

30 REM * Λύση τριδιαγώνιου γραμμικού *

40 REM * συστήματος *

50 REM * με τη μέθοδο απαλοιφής του Gauss *

60 REM * *

70 REM ******************************************

80 CLS

90 DIM D(30),A(30),E(30),C(30)

100 EPS=.0000005

110 INPUT "Δώσε τον αριθμό των εξισώσεων";N

120 REM Διάβασε τα σοιχεία της κυρίας διαγωνίου

130 FOR I=1 TO N

140 READ D(I)

150 NEXT I

160 REM Διάβασε τα στοιχεία κάτω της διαγωνίου

170 FOR I=1 TO N

180 READ A(I)

190 NEXT I

200 REM Διάβασε τα στοιχεία πάνω της διαγωνίου

210 FOR I=1 TO N

220 READ E(I)

230 NEXT I

240 REM Διάβασε τους σταθερούς συντελεστές

250 FOR I=1 TO N

260 READ C(I)

270 NEXT I

280 FOR I=N-1 TO 1 STEP -1

290 D(I)=D(I)-E(I)*A(I+1)/D(I+1)

300 C(I)=C(I)-E(I)*C(I+1)/D(I+1)

310 NEXT I

320 REM Τύπωσε τα αποτελέσματα

330 PRINT "Oι λύσεις του συστήματος είναι":PRINT

340 FOR I=1 TO N

350 X=(C(I)-A(I)*X)/D(I)

360 PRINT"x(";I;") = "; X

370 NEXT I

380 END

390 DATA 2,2,2,2,2

400 DATA -1,-1,-1,-1,-1

410 DATA -1,-1,-1,-1,-1

420 DATA 6,0,0,0,0