[0513] tyvj P1724解方程

描述 Description
	话说同学们正在学习二元一次方程组。 二元一次方程组的练习题铺天盖地地涌向同学们，同学们正苦恼于一次次地四则运算、移项、合并同类项等等。 他们知道你很聪明，想请你帮他们编一个解二元一次方程组的程序。 我们假定二元一次方程组的一般格式如下：(a,b,c,d,e,f为常数,x,y为未知数) ax+by=c dx+ey=f 程序读入a,b,c,d,e,f后，输出解。 当然，方程组也有可能存在无解或有无穷解的情况：如果(x,y)没有相对应的实数对满足方程组则无解；相反，如果(x,y)有多组对应的实数对满足方程组则有无数解。 如果无解，就输出“No answer”；如果有无穷解，就输出“Too many”。

	输入格式 Input Format
		输入仅1行，包含6个整数，a,b,c,d,e,f。输入数据保证正确。

	输出格式 Output Format
		如果有解，那么第1行先输出“x=”，再输出x的值，第2行先输出“y=”，再输出y的值，均保留2位小数，请参照样例输出。 如果无解或有无数解则按要求输出“No answer”或“Too many”。

 

var
a,b,c,d,e,f:longint;
x,y:real;
begin
readln(a,b,c,d,e,f);
if a*e-b*d=0 then
begin
if c*d=a*f then begin
writeln('Too many');exit; end
else
writeln('No answer');
exit;
end
else
begin
x:=(c*e-b*f)/(a*e-b*d);
y:=(c*d-a*f)/(b*d-a*e);
writeln('x=',x:0:2);
writeln('y=',y:0:2);
exit;
end;
end.

转载于:https://www.cnblogs.com/shy-/archive/2012/05/13/2498139.html