programa para comprobar cramer

Ver el tema anterior Ver el tema siguiente Ir abajo

programa para comprobar cramer

Mensaje  Israfel el Dom Feb 13, 2011 6:05 pm

pequeño programa que calcula los resultados finales de cramer, ideal para saber si tus ejercicios estan buenos

program cramer;
uses crt;
var
i1,i2,i3,x1,x2,x3,y1,y2,y3,z1,z2,z3,a,p1,p2,p3,p4,p5,p6:integer;
d,dx,dy,dz:real;

begin
clrscr;
Writeln('Diga los valores de que tendra x:');
readln(x1,x2,x3);
Writeln('Diga los valores de que tendra y:');
readln(y1,y2,y3);
Writeln('Diga los valores de que tendra z:');
readln(z1,z2,z3);
Writeln('Diga los valores de que tendran los terminos independientes:');
readln(i1,i2,i3);
p1:=x1*y2*z3;
p2:=x2*y3*z1;
p3:=x3*y1*z2;
p4:=z1*y2*x3*-1;
p5:=z2*y3*x1*-1;
p6:=z3*y1*x2*-1;
d:=p1+p2+p3+p4+p5+p6;

p1:=i1*y2*z3;
p2:=i2*y3*z1;
p3:=i3*y1*z2;
p4:=z1*y2*i3*-1;
p5:=z2*y3*i1*-1;
p6:=z3*y1*i2*-1;
dx:=p1+p2+p3+p4+p5+p6;

p1:=x1*i2*z3;
p2:=x2*i3*z1;
p3:=x3*i1*z2;
p4:=z1*i2*x3*-1;
p5:=z2*i3*x1*-1;
p6:=z3*i1*x2*-1;
dy:=p1+p2+p3+p4+p5+p6;


p1:=x1*y2*i3;
p2:=x2*y3*i1;
p3:=x3*y1*i2;
p4:=i1*y2*x3*-1;
p5:=i2*y3*x1*-1;
p6:=i3*y1*x2*-1;
dz:=p1+p2+p3+p4+p5+p6;

dx:=dx/d;
dy:=dy/d;
dz:=dz/d;

Write('delta:',d:2:0,' Delta(x)',dx:2:0,' Delta(y):',dy:2:0,' Delta(z)',dz:2:0);
readkey;
end.

Israfel

Mensajes : 28
Fecha de inscripción : 12/02/2011
Edad : 27

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.