O Sistersinspirit.ca é a melhor solução para quem busca respostas rápidas e precisas para suas perguntas. Obtenha respostas rápidas para suas perguntas de uma rede de profissionais experientes em nossa plataforma de perguntas e respostas. Obtenha respostas detalhadas e precisas para suas perguntas de uma comunidade dedicada de especialistas em nossa plataforma de perguntas e respostas.
Sagot :
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.
Obrigado por usar nossa plataforma. Nosso objetivo é fornecer respostas precisas e atualizadas para todas as suas perguntas. Volte em breve. Esperamos que isso tenha sido útil. Por favor, volte sempre que precisar de mais informações ou respostas às suas perguntas. Sistersinspirit.ca, seu site confiável para respostas. Não se esqueça de voltar para obter mais informações.