Respuestas
Respuesta dada por:
0
INICIO
cls ()
leer( I, j)
flotante m1[1000][1000], coef, aux[1000], pivote;
imprimir (Bienvenido al Generador de Matrices Inversasn)
para(i=0;i<2;i++)
{
para (j=0;j<2;j++)
{
imprimir (Ingrese el valor de [" <<i<< "]["<< j <<"])
leer ( m1 [j])
}
}
para (i=0;i<2;i++)
para(j=2;j<4;j++)
{
si (i==(j-2))
m1[j]=1;
si no
m1[j]=0;
}
//Iteracion 1
/*Pivote*/
pivote=m1[0][0];
para (j=0;j<4;j++)
m1[0][j]=m1[0][j]/pivote;
/*Para
el otro renglón*/
coef=m1[1][0];
para (j=0;j<4;j++)
aux[j]=m1[0][j]*(coef*-1);
para (j=0;j<4;j++)
m1[1][j]=m1[1][j]+aux[j];
/*Para la
iteración 2*/
/*Pivote 2*/
pivote=m1[1][1];
para (j=0;j<4;j++)
m1[1][j]=m1[1][j]/pivote;
/*Para
el otro renglón*/
coef=m1[0][1];
para (j=0;j<4;j++)
aux[j]=m1[1][j]*(coef*-1);
para (j=0;j<4;j++)
m1[0][j]=m1[0][j]+aux[j];
//Imprimir la matriz inversa
para (i=0;i<2;i++)
{
para (j=2;j<4;j++)
imprimir ("t",m1[j] )
si (j==4)
imprimir ("n")
}
FIN
cls ()
leer( I, j)
flotante m1[1000][1000], coef, aux[1000], pivote;
imprimir (Bienvenido al Generador de Matrices Inversasn)
para(i=0;i<2;i++)
{
para (j=0;j<2;j++)
{
imprimir (Ingrese el valor de [" <<i<< "]["<< j <<"])
leer ( m1 [j])
}
}
para (i=0;i<2;i++)
para(j=2;j<4;j++)
{
si (i==(j-2))
m1[j]=1;
si no
m1[j]=0;
}
//Iteracion 1
/*Pivote*/
pivote=m1[0][0];
para (j=0;j<4;j++)
m1[0][j]=m1[0][j]/pivote;
/*Para
el otro renglón*/
coef=m1[1][0];
para (j=0;j<4;j++)
aux[j]=m1[0][j]*(coef*-1);
para (j=0;j<4;j++)
m1[1][j]=m1[1][j]+aux[j];
/*Para la
iteración 2*/
/*Pivote 2*/
pivote=m1[1][1];
para (j=0;j<4;j++)
m1[1][j]=m1[1][j]/pivote;
/*Para
el otro renglón*/
coef=m1[0][1];
para (j=0;j<4;j++)
aux[j]=m1[1][j]*(coef*-1);
para (j=0;j<4;j++)
m1[0][j]=m1[0][j]+aux[j];
//Imprimir la matriz inversa
para (i=0;i<2;i++)
{
para (j=2;j<4;j++)
imprimir ("t",m1[j] )
si (j==4)
imprimir ("n")
}
FIN
Preguntas similares
hace 6 años
hace 6 años
hace 9 años
hace 9 años
hace 9 años