Question

Решить линейное уравнение ax+b=0, a и b ввести с клавиатуры (программу написать на языке Паскаль).

Answer 1

Var
a,b,x: real;
begin
write('Введите а= ');
readln(a);
write('Введите b= ');
readln(b);
x:=-b/a;
writeln('Ответ: ',x);
end.

Answer 2

Приведу пример программы на языке Паскаль для решения линейного уравнения ax + b = 0:

arduinoCopy code
program LinearEquation;

var
  a, b, x: real;

begin
  writeln('Введите коэффициенты a и b: ');
  readln(a, b);

  if a = 0 then
  begin
    if b = 0 then
      writeln('Уравнение имеет бесконечное множество решений')
    else
      writeln('Уравнение не имеет решений');
  end
  else
  begin
    x := -b / a;
    writeln('Решение уравнения: x = ', x);
  end;

  readln;
end.

Пользователь должен ввести значения коэффициентов a и b, после чего программа проверяет, не является ли a нулем, и выводит соответствующее сообщение. Если a не равно нулю, программа вычисляет значение x и выводит его на экран.