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

20 REM * *

30 REM * Oρίζουσα ενός πίνακα *

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

50 REM * μερική οδήγηση *

60 REM * *

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

80 CLS

90 DIM A(20,20)

100 M=0

110 EPS=.0000005

120 INPUT "Δώσε τη διάσταση του πίνακα";N

130 PRINT

140 FOR I=1 TO N

150 FOR J=1 TO N

160 READ A(I,J)

170 NEXT J

180 NEXT I

190 GOSUB 280

200 REM Τυπώνονται τα αποτελέσματα

210 PRINT

220 P=1

230 FOR I=1 TO N

240 P=P*A(I,I)

250 NEXT I

260 PRINT"Η ορίζουσα είναι ίσον με " P*(-1)^M

270 END

280 REM Απαλοιφή Gauss με μερική οδήγηση

290 FOR JR=1 TO N-1

300 W=0

310 FOR K=JR TO N

320 IF ABS(A(K,JR))>W THEN JC=K:W=ABS(A(K,JR))

330 NEXT K

340 IF JC=JR THEN GOTO 410

350 M=M+1

360 FOR JT=JR TO N

370 F=A(JC,JT)

380 A(JC,JT)=A(R,T)

390 A(JR,JT)=F

400 NEXT JT

410 FOR I=JR TO N-1

420 IF ABS(A(JR,JR))>EPS THEN GOTO 450

430 P=0

440 GOTO 260

450 P=A(I+1,JR)/A(JR,JR)

460 FOR J=JR+1 TO N

470 A(I+1,J)=A(I+1,J)-P*A(JR,J)

480 NEXT J

490 NEXT I

500 NEXT JR

510 RETURN

520 END

530 DATA 5,-2,3

540 DATA -2,7,5

550 DATA 3,5,6