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 |