Sistema triangular superior

SISTEMA TRIANGULAR SUPERIOR

Algoritmo sistema triangular superior

Variable entero i , j , n

Variable real s

Vector real b[1..50], c[1..50]

Matriz real a[1..50, 1..50]

escribir "entrar la dimensión del sistema"

leer n

Para i de 1 a n hacer

Para j de i a n hacer

leer a(i, j)

finpara

leer b(i)

finpara

para i de n a 1 incremento -1 hacer

s <- 0

para j de n a i+1 incremento -1 hacer

s <- s+a(i,j) * c(j)

finpara

c(i) <- (b(i)-s)/a(i,i)

finpara

finalgoritmo