SPL Segitiga Atas

Ada lagi cara yang lain untuk menyelesaikan/mencari akar-akar pada permasalahan numerik antara lain Sistem persamaan linear segitiga atas, berikut adalah coding programnya dengan menggunakan bahasa Quick Basic.

CLS
'SPL SEGITIGA ATAS
PRINT "UKURAN MATRIK =";: INPUT N
FOR I = 1 TO N
FOR J = I TO N
PRINT "A(";I;",";J;")=";:INPUT A(I,J)
NEXT J
NEXT I
FOR I = 1 TO N
PRINT "C(";I;")=";:INPUT C(I)
NEXT I
X(N)=C(N)/A(N,N)
FOR I = N-1 TO 1 STEP -1
JUMLAH=0
FOR J = I+1 TO N
JUMLAH = JUMLAH + A(I,J)*X(J)
NEXT
X(I) = (C(I)-JUMLAH)/A(N,N)
NEXT
PRINT
FOR I = 1 TO N
PRINT "X(";I;")=";X(I);", ";
NEXT
END

Silahkan edit kode di atas agar menjadi program sistem persamaan linear segitiga bawah. Terima kasih, Semoga bermanfaat. . .