Программа для вычисления корней квадратного уравнения(Pascal)

[adrenalin142]

Здравствуйте, форумчане. Помогите пожалуйста разобраться в чем проблема.

Задание:
Вычислить корни квадратного уравнения (a*x^2)+(b*x)+c=0, если (d^2)-4*a*c>=0, то корни действительные; следовательно, необходимо вычислять
e=(-b)/(2*a)
f= (sqrt(d)/(2*a)
x1=e+f
x2=e-f
если d<0, то корни мнимые
e=(-b)/(2*a)
f= (sqrt(abs(d))/(2*a)
x1=e+f
x2=e-f


Вот мои наброски но они не работают:

program Project2;

uses
  SysUtils,Windows;

var
  a,b,c:integer;
  x1,x2,d,e,f:Real;

begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  write('Введите a = '); readln(a);
  write('Введите b = '); readln(b);
  write('Введите c = '); readln(c);
  d:=sqr(b)-4*a*c;
  if (d>=0)
  then begin
  e:= (-b/(2*a));
  f:= (Sqrt(d)/(2*a));
  x1:= (e+f);
  x2:= (e-f);
  writeln('x1= ',x1:6:2);
  Writeln('x2= ',x2:6:2);
end
else begin
  e:= (-b/(2*a));
  f:= (Sqrt(Abs(d))/(2*a));
  x1:= (e+f);
  x2:= (e-f);
  writeln('x1= ',x1:6:2);
  Writeln('x2= ',x2:6:2);
end;
Readln;
end.

ЗЫ: программу нужно сделать в Делфи в Console application.

[type_Oleg]

Код написан мягко говоря, очень нерационально.
Но все работает, только не пишет от том, какие корни - действительные или мнимые.

И еще. a,b,c - могут быть только целые ?

PS А где {$APPTYPE CONSOLE} ? Перед uses должно быть.


PPS Кстати, сейчас понял, что сам алгоритм неточный. При d<0 корни не мнимые, а комплексные. Там будет и действительная часть (-e)и мнимая (+-f) части. Как вы отобразите комплексные числа?

[adrenalin142]

Немного подредактировал, вроде заработало.

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;

var
  a,b,c:integer;
  x1,x2,d,e,f:Real;

begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  writeln('Введите a = '); readln(a);
  writeln('Введите b = '); readln(b);
  writeln('Введите c = '); readln(c);
  d:=sqr(b)-4*a*c;
  if (d>=0)
  then begin
  e:= (-b/(2*a));
  f:= (Sqrt(d)/(2*a));
  x1:= (e+f);
  x2:= (e-f);
  writeln('x1= ',x1:6:2);
  Writeln('x2= ',x2:6:2);
end
else begin
e:= (-b/(2*a));
f:= (Sqrt(Abs(d))/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
Writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
Readln;
end.

ЗЫ: по заданию не требуют написать мнимые или нет, но можно дописать так:

program Project2;

{$APPTYPE CONSOLE}
uses
  SysUtils,Windows;

var
  a,b,c:integer;
  x1,x2,d,e,f:Real;

begin
  SetConsoleCP(1251);
  SetConsoleOutPutCP(1251);
  writeln('Введите a = '); readln(a);
  writeln('Введите b = '); readln(b);
  writeln('Введите c = '); readln(c);
  d:=sqr(b)-4*a*c;
  if (d>=0)
  then begin
  e:= (-b/(2*a));
  f:= (Sqrt(d)/(2*a));
  x1:= (e+f);
  x2:= (e-f);
  Writeln('Корни действительные');
  writeln('x1= ',x1:6:2);
  Writeln('x2= ',x2:6:2);
end
else begin
e:= (-b/(2*a));
f:= (Sqrt(Abs(d))/(2*a));
x1:= (e+f);
x2:= (e-f);
Writeln('корни мнимые');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
Writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
Readln;
end.