Никак не получается написать программу для решения уравнения a*|x|=b. Помогите пожалуйста. Заранее благодарен

Question

Программу в Pascal

program modul;
var
a,b:real;
begin
writeln ('vvedite a,b');
readln (a,b);
if a>=0 or b>=0 then begin
x:=b/a;
writeln ('x=');
end;
if a<=0 or b>=0 then begin
x:=-(b/a);
writeln ('x=');
end;
if a<=0 or b<=0 then begin
x:=b/a;
writeln ('x=');
end;
if a>=0 or b<=0 then begin
x:=-(b/a);
writeln ('x=');
end;
readln;
end.
Ошибка: строка 7: Нельзя преобразовать тип real к integer
Не могу понять что это такое

Екатерина Коровянская · Accepted Answer

Чисто с точки зрения математики: |x| = b/a.
Это означает, что решение существует только если:
1) a не равно нулю
2) b и a одного знака.
Если b = 0, то решение одно: x = 0
Если b не равно 0, то решения два: x = -b/a, x = b/a

Получаем программу:

PROGRAM equation;

VAR a, b, x : real;

BEGIN

(* считываем данные
writeln ('vvedite a,b');
readln (a,b);

(* выполняем проверки
IF (a = 0) OR ((b > 0) AND (a < 0)) OR ((b < 0) AND (a > 0))
THEN BEGIN
WriteLn('Идите нафиг, решений нет');
Exit;
END;

(* выводим результат
IF (b = 0)
THEN BEGIN
WriteLn('x = 0');
Exit;
END;
WriteLn('x = ', b/a);
WriteLn('x = ', -b/a);

END.

В общем, как-то так.

Вовчик Хакер · Answer

х = +- б/а