Работа с файлами (Pascal), квадратное уравнение

[Titovik]

код для нахождения самого обычного квадратного уравнения:
var
a,b,c:integer;
D,x1,x2:real;
begin
writeln('введите a,b,c ');
readln(a,b,c);
D:=(b*b)-4*a*c;
if(D>0) then
x1:= -b+(sqrt(D))/2*a;
x2:= -b-(sqrt(D))/2*a;
writeln('Корни уравнения = ', x1,x2)
else
writeln('корней нет ');
end.

Ошибка!
(12) : Ожидалось ';'

[Stilet]

writeln('Корни уравнения = ', x1,x2)
else

К чему этот else относится?
Ты видимо забыл для if поставить begin.

[Titovik]

Сообщение от Stilet

К чему этот else относится?
Ты видимо забыл для if поставить begin.

Наипиши пожалуйста как будет правильно?), куда begin нужно поставить?

[Poma][a]

Пара замечаний :
1)

writeln('Корни уравнения = ', x1,x2)

Между корнями лучше ставить пробел
2) Вы не рассмотрели случай, когда D=0.

var
a,b,c:integer;
D,x1,x2:real;
begin
writeln('введите a,b,c ');
readln(a,b,c);
D:=(b*b)-4*a*c;
if(D>0) then begin
x1:= (-b+sqrt(D))/2*a;
x2:= (-b-sqrt(D))/2*a;
writeln('Корни уравнения = ', x1 : 0 : 3, ' ', x2 : 0 : 3)
end
else if D = 0 then begin
x1 := -b / 2*a;
WriteLn ('Корень ур-ия = ', x1 : 0 : 3)
end
else
writeln('корней нет ');
end.

[Titovik]

Сообщение от Poma][a

Пара замечаний :
1)
Между корнями лучше ставить пробел
2) Вы не рассмотрели случай, когда D=0.

Мне ненужно рассматривать случай с 0, у меня одна проблема с else.

Сообщение от Titovik

Мне ненужно рассматривать случай с 0, у меня одна проблема с else.

Извините непосмотрел выше, спасибо)

[Stilet]

Мне ненужно рассматривать случай с 0

А зря.....

[s-andriano]

Что-то мне кажется, что это - далеко не единственная ошибка. :D

[Stilet]

s-andriano

Ты имеешь ввиду тип входящих значений? Я бы их вещественными сделал.

[BDA]

Stilet, скорее, неправильные формулы расчета корней (все внимание на порядок выполнения операций).

[Titovik]

Сообщение от s-andriano

Что-то мне кажется, что это - далеко не единственная ошибка. :D

Нет все работает, всем спасибо))