DETERMINANTA MATRICE TREĆEG REDA

Program izračunava determinantu kvadratne matrice trećeg reda. Za primjer pogledajte u kod programa. Determinanta se koristi kod rjesavanja sustava jednadžbi, između ostalog.

 

REM Determinanta matrice treceg reda
REM Podaci se unose po retcima matrice
REM Primjer
REM 2 1 3
REM 4 5 6
REM 7 8 9
REM Determinanta je -9

CLS
DIM a(3, 3)
FOR I = 1 TO 3
FOR j = 1 TO 3
PRINT "Element: "; I; ","; j
INPUT a(I, j)
NEXT j
NEXT I
I = 1
FOR j = 1 TO 3
korak = 1
red = I
stupac = j
zbroj = zbroj + a(red, stupac) 'dodavanje elementa u prvom redu
DO WHILE korak <= 2
IF stupac < 3 THEN
red = red + 1
stupac = stupac + 1
zbroj = zbroj * a(red, stupac)
ELSE
red = red + 1
stupac = stupac - 2
zbroj = zbroj * a(red, stupac)
END IF
korak = korak + 1
LOOP
ukupno = ukupno + zbroj
zbroj = 0 'inicijalizacija za drugi stupac
NEXT j

PRINT "Zbroj: "; ukupno


I = 1
FOR j = 1 TO 3
korak = 1
red = I
stupac = j
razlika = razlika + a(red, stupac) 'dodavanje elementa u prvom redu
DO WHILE korak <= 2
IF stupac > 1 THEN
red = red + 1
stupac = stupac - 1
razlika = razlika * a(red, stupac)
ELSE
red = red + 1
stupac = stupac + 2
razlika = razlika * a(red, stupac)
END IF
korak = korak + 1
LOOP
REM PRINT "razlika unutar: ", razlika, "stupac", j
ukrazlika = ukrazlika + razlika
razlika = 0 'inicijalizacija za drugi stupac
NEXT j

PRINT "Razlika ukupno : "; ukrazlika
PRINT "Determinanta: "; ukupno - ukrazlika