Ejercicio Programación y Metodo numerico Visual basic.

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