Question

Написать программу на языке Pascal для решения уравнения kx+b=0

Answer 1

var

   k, b, x: real;

begin

   writeln('Введите k, b:');

   readln(k, b);

   writeln(k, 'x+', b, '=0');

   writeln(k, 'x=-', b);

   writeln('x=-', b, '/', k);

   x := (b-b-b) / k;

   writeln('x=', x);

end.

Answer 2

Конечно! Вот пример программы на языке Pascal для решения уравнения вида kx + b = 0:

pascalCopy code
program SolveEquation;

var
  k, b, x: real;

begin
  writeln('Решение уравнения kx + b = 0');
  write('Введите значение k: ');
  readln(k);

  write('Введите значение b: ');
  readln(b);

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

  readln;
end.

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