Question

Помогите пожалуйста с информатикой!!!! как находить корни квадратного уравнения в программе Паскаль??????????!!!!

Answer 1

Var a,b,c,d:integer;
x1,x2:real;
begin
readln(a,b,c);
d:=(b*b) - (4*a*c); writeln(d);
if d < 0 then writeln('корней нет');
if d = 0 then begin writeln('один корень'); x1:=-b/(2*a); writeln(x1:0:3); end;
if d > 0 then begin writeln('два корня'); x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln(x1:0:3,x2:0:3); end;
end.
На java прикрепил на всякий пожарный, 450 строк где-то, в оригинале 907