Faça um algoritmo para ler uma matriz A3x3 e mostrar como resultado o determinante desta matriz. Em linguagem portugol.
Soluções para a tarefa
Respondido por
2
Tenho este em pascalzim vc pode adapta-lo pra portugol.
Program DetMatriz3x3;
Var
a11:real;
a12:real;
a13:real;
a21:real;
a22:real;
a23:real;
a31:real;
a32:real;
a33:real;
det:real;
Begin
Writeln ('digite a11, a12 e a13');
Readln (a11, a12, a13);
Writeln ('digite a21, a22 e a23');
Readln (a21, a22, a23);
Writeln ('digite a31, a32 e a33');
Readln(a31, a32, a33);
det:=(((a11*a22*a33)+(a21*a32*a13)+(a31*a12*a23))-((a31*a22*a13)+(a11*a32*a23)+(a21*a12*a33)));
Writeln ('valor do determinante', det);
If det<>0 then
writeln('Sistema Possivel e Determinado')
Else
writeln('Sistema Possivel Indeterminado ou Impossivel');
End.
Program DetMatriz3x3;
Var
a11:real;
a12:real;
a13:real;
a21:real;
a22:real;
a23:real;
a31:real;
a32:real;
a33:real;
det:real;
Begin
Writeln ('digite a11, a12 e a13');
Readln (a11, a12, a13);
Writeln ('digite a21, a22 e a23');
Readln (a21, a22, a23);
Writeln ('digite a31, a32 e a33');
Readln(a31, a32, a33);
det:=(((a11*a22*a33)+(a21*a32*a13)+(a31*a12*a23))-((a31*a22*a13)+(a11*a32*a23)+(a21*a12*a33)));
Writeln ('valor do determinante', det);
If det<>0 then
writeln('Sistema Possivel e Determinado')
Else
writeln('Sistema Possivel Indeterminado ou Impossivel');
End.
robsonnoberto:
Mas, q linguagem é essa ?
Pascalzim
Como posso converte-lo para portugol ?
Cara nao sei te dizer, mais pelo q vejo o portugol deve ser em portugues e nao usa essa pontuação q o pascalzim usa
Mesmo assim mt obrigado cara, vllw!
Perguntas interessantes