|
 حل دو
معادله دو مجهول
program modele2;
uses wincrt;
var
a,b,c,d,e,f,g,x,y:real;
begin
writeln('ax+by=c ==> lotfan a,b,c ra vared konid');
readln(a,b,c);
writeln('(',a:1:0,')x+(',b:1:0,')y=',c:1:0);
writeln('dx+ey=f ==> lotfan d,e,f ra vared konid');
readln(d,e,f);
writeln('(',d:1:0,')x+(',e:1:0,')y=',f:1:0);
g:=(-1)*(e/b);
x:=(g*c+f)/(g*a+d);
y:=(c-(a*x))/(b);
readln;
writeln('(',a:1:0,')x+(',b:1:0,')y=',c:1:0);
writeln('(',d:1:0,')x+(',e:1:0,')y=',f:1:0);
writeln('X=',x:1:2);
writeln('Y=',y:1:2);
end.
نویسنده:کیوان
شجاعی
Email:kayvan.shojaie@gmail.com |
