Matris İşlemleri Örnek 1

CLS

Print "Verilen matrisin alt ucgensel olup olmadigini bulan program"

INPUT "Matrisin Buyutunu girin", N

DIM m(N, N)

PRINT "Matrisin elemanlarini giriniz"

FOR i = 1 TO N

FOR j = 1 TO N

PRINT i; ".satir"; j; ".sutun elemanini girin"

INPUT m(i, j)

NEXT j: : PRINT : NEXT i

FOR i = 1 TO N

FOR j = 1 TO N

PRINT m(i, j);

NEXT j: PRINT : NEXT i

s = 1

FOR i = 1 TO N

FOR j = 1 TO N

IF j > i AND m(i, j) <> 0 THEN

s = 0

EXIT FOR

EXIT FOR

END IF

NEXT j

NEXT i

IF s = 0 THEN

COLOR , 4

PRINT "Matris alt ucgensel degil"

ELSE

COLOR , 1

PRINT "Matris alt ucgensel"

END IF