Matris İşlemleri Örnek 3

FOR u = 1 TO n

FOR x = 1 TO n

PRINT "A("; u; ","; x; ")=";

INPUT a(u, x)

NEXT x

NEXT u

PRINT

PRINT

FOR u = 1 TO n

FOR x = 1 TO n

PRINT a(u, x);

NEXT x

PRINT

NEXT u

FOR l = 1 TO n - 1

FOR s = l + 1 TO n

IF a(l, l) = 0 THEN

FOR m = l + 1 TO n

IF a(m, l) <> 0 THEN

FOR x = 1 TO n

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

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

PRINT

PRINT "ust ucgensel hali"

FOR u = 1 TO n

FOR x = 1 TO n

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

NEXT x

PRINT

NEXT u