Programa
para determinar una matriz triangular aplicar método de gauss por reducción.
private sub commad_click()
DIM MT1(3,4) AS integer
DIM MTE(3,4) AS integer
DIM MTE1(3,4) AS integer
F as integer
C as integer
Dato as integer
For f=1 to 3
For
c=1 to 4
Mt1(f,c)=inputbox(“introduzca
el valor:” &” fila“&f&”columna”&c&)=dato
Next
Next
‘aplicamos
la formula (f2-2.f1) , del metodo para conseguir que en la posición 2,1 sea
igual a cero.
For f=1 to 3
For
c=1 to 4
Mte(f,c)=mt1(f,c)
Next
Next
For c=1 to 4
Mte(2,c)=mt1(2,c)-2(mt1(1,c)
Next
‘ aplicamos la segunda formula (f3-3.f1)del método
para conseguir que en la posición 3,1 sea igual a cero.
For c=1
to 4
Mte(3,c)=mt1(3,c)-2(mt1(1,c)
Next
‘
aplicamos la tercera formula (3.f3 – 2.f2)del método para conseguir que en la
posición 3,1 sea igual a cero. Activando la tercer matriz
For f=1 to 2
For
c=1 to 4
Mte1(f,c)=mt3(f,c)
Next
Next
For c=1 to 4
Mte1(3,c)=3(MTE(3,C )) - 2(MTE(2,C )
Next
‘
MOSTRAR MATRIZ
FOR
F=1 TO 3
FOR C=1 TO 4
MSGBOX(“MATRIZ:”FILA”&F&”COLUMNA”&C&)
NEXT
NEXT
END
Nota: Con esta instrucción se
realiza con mas facilidad
For f=1 to 3
For
c=1 to 4
If
f=2 then
Mte(2,c)=mt1(2,c)-2(mt1(1,c))
Else
if f>2 then
Mte(2,c)=mt1(2,c)-2(mt1(1,c))
Endi
next
next