Matris İşlemleri Örnek 2

CLS

Print "Verilen matrisi alt ucgensel yapan program"

INPUT "karesel matrisin boyutunu giriniz="; n

DIM a(n, n)

FOR u = 1 TO n

FOR x = 1 TO n

PRINT u; ".satir"; x; ".sutun elemanini girin"

INPUT a(i, j)

NEXT x

NEXT u

CLS

PRINT "Olusturulan Matris"

FOR u = 1 TO n

FOR x = 1 TO n

COLOR , 1

PRINT USING "#####"; a(i, j);

NEXT x

PRINT

NEXT u

FOR l = n TO 2 STEP -1

FOR s = l - 1 TO 1 STEP -1

IF a(l, l) = 0 THEN

FOR m = l - 1 TO 1 STEP -1

IF a(m, l) <> 0 THEN

FOR x = 1 TO n

a(l, x) = a(l, x) + a(m, j)

NEXT x

END IF

NEXT m

END IF

c = a(s, l) / a(l, l)

FOR x = 1 TO n

a(s, x) = a(s, x) - c * a(l, x)

NEXT x

NEXT s

NEXT l

PRINT

COLOR , 0

PRINT "Matrisin alt ucgensel hali"

FOR i = 1 TO n

FOR j = 1 TO n

COLOR , 1

PRINT USING "#####.#"; a(u, x);

NEXT x

PRINT

NEXT u

COLOR , 0