Код программы решения квадратного уравнения

[Mary1108]

Будьте так добры, проверьте пожалуйста код программы.
Выдает ошибки одну за другой... Я новичок в этом деле, очень сложно понять откуда они.

program lab2{вариант №1};
var n,a,b:integer;
r:real;
begin
writeln('Решим неравенство:');
writeln('-');
writeln('AX^2+B=0');
writeln('-');
write('Введите a=');
readln(a);
write('Введите b=');
readln(b);
writeln('-');
writeln(',a,'X^2+(',b,'))=0');
writeln('-');
r:=((-b)/a);
if(r=0)
then case r=0 of
     false:writeln('Ответ: X=',r:3:2);
     true:writeln('Ответ: X=',r:3:2);
     end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.

[type_Oleg]

А зачем

if(r=0)
 then case r=0 of
 false:writeln('Ответ: X=',r:3:2);
 true:writeln('Ответ: X=',r:3:2);
 end;

Это то же, что и

f(r=0) then writeln('Ответ: X=',r:3:2);

Исправил.

Надо корень из r извлечь. У вас же x в квадрате.

[Mary1108]

А как это правильно сделать? Извлечь корень из r?

[type_Oleg]

А как решаются уравнения AX^2+B=0 ?
Это вроде в классе 8-м проходят.
И непонятно, почему написано Решим неравенство ? А написано равенство.
Что же точно надо?

[Mary1108]

Точно! Равенство! Это мой косяк. Спасибо. Как корень извлечь я поняла, а как эту команду записать?

[type_Oleg]

Вот, если a,b могут быть только целыми.

program lab2;
 var a,b:integer; // зачем вам n ?  
 r:real;
begin
 writeln('Решим равенство:  AX^2+B=0');
 write('Введите a=');
 readln(a);
 write('Введите b=');
 readln(b);
 writeln('-');
 writeln(a,'X^2+(',b,')=0');
 writeln('-');
 r:=-b/a;
 if r<0 
   then writeln('Уравнение не имеет действительных корней')
   else writeln('x1,2 = +-' ,Sqrt(r));
 end.

Как говорят женщины, иногда проще дать, чем объяснить, почему не хочу