rovnice.pas
Petr "Zweistein" Prokop
{ zwei.stein@worldonline.cz, zweistein.kgb.cz }
Program Sout_3_o_3x;
{
(c) Petr "Zweistein" Prokop
Program rovnice :
üeçenˇ soustavy týˇ rovnic o týech nezn měch
}
var a1,b1,c1,a2,b2,c2,a3,b3,c3,x,y,z,d1,d2,d3 : real;
begin;
{nacteni vstupu}
writeln('A1x+B1y+C1z=D1');
readln(a1,b1,c1,d1);
writeln('A2x+B2y+C2z=D2');
readln(a2,b2,c2,d2);
writeln('A3x+B3y+C3z=D3');
readln(a3,b3,c3,d3);
{pocitani podle odvozenych vzorcu}
Z:=(d3-((d2*((d1-a3)*b1))/((((d1-c2)*b1)/a1)-b2*a1))/(c3+((d1-a3)*c1)/a1+(((D1-a2)*c1)/a1+c2)/(((d1-a2)*b1)/a1+b2)));
Y:=D2/(((d1-a2)*b1)/a1+b2)-Z*((d1-a2)*c1/a1+c2)/((d1-a2)*b1/a1+b2);
X:=(d1-b1*y-c1*z)/a1;
writeln('x=',x,' y=',y,' z=',z);
readln
end.
