Question

FPC简单编程

解一元二次方程

问题描述
　　给出一个一元二次方程式ax2+bx+c=0，求解x的值。
输入格式
　　输入数据只有一行，包含三个整数a,b,c，分别表示该方程的系数。
输出格式
　　输出两数据包含行，是方程的两个解（包含两解相同的情况），保留两位小数。
样例输入
4 5 1
样例输出
-0.25
-1.00
数据规模和约定
　　输入数据保证方程有解。

Answer 1

纯数学题啊..
var a,b,c:longint;
x,delta:real;
begin
read(a,b,c);
x:=-b;
delta:=sqrt(b*b-4*a*c);
writeln((x+delta)/2/a:0:2);
writeln((x-delta)/2/a:0:2);
end.