решить линейное уравнение ax+b=0 для любых значений коэффициентов а,в.

[Дмитрий199]

решить линейное уравнение ax+b=0 для любых значений коэффициентов а,в.
1. а=0, в=0. x любое
2. a=0, b>0 нет решеничя
3. а не равно 0, х=-в/a есть решение
Написать программу в паскале для решение этого уравнения
Решить линейное уравнение ax+b=0

Program
var
  a, b, x: real;
begin
  read(a, b);
  if a <> 0 then
    x := (-b) / a;
  write(x:0:2);
  if a = 0 then
    write('equation has no root');
  if (a = 0) and (b = 0) then
    write('equation has many roots');
end.

Подскажите, где ошибки

[Arigato]

Сообщение от Дмитрий199

Подскажите, где ошибки

Ну так отправь программу на компиляцию, тебе и подскажут.

[VIK_aka_TOR]

пришлось подправить 2 условие a=0, b <> 0 нет решения

var
  a, b, x: real;
begin
  read(a, b);
  if a <> 0 then
  begin
    x := (-b) / a;
    write('x = ',x:0:2);
  end;
  if (a = 0) and (b <> 0) then 
    write('equation has no root');
  if (a = 0) and (b = 0) then
    write('equation has many roots');
end.

[Adelia]

Не знаю почему у вас не получается,сам алгоритм верный.Но если скопировать вашу программу в паскаль и при этом либо убрать слово programm или дописать название программы и поставить ; , и дописать условие то все работает.