Question

用pascal怎么编一个解一元二次方程的程序

Answer 1

Program Example; Var a, b, c, d, x, x1, x2: Real; Begin Write('Enter a,b,c='); ReadLn(a, b, c); d := Sqr(b) - 4 * a * c; If d >= 0 Then If d = 0 Then Begin x := (-b) / (2 * a); WriteLn('x=', x); End Else Begin x1 := (-b + Sqrt(d)) / (2 * a); x2 := (-b - Sqrt(d)) / (2 * a); WriteLn('x1=', x1); WriteLn('x2=', x2); End Else WriteLn('No Answer'); ReadLn; End. 有什么不懂可以直接+我QQ：392849741

满意请采纳