Question

Написать программу в Паскале для решения уравнения B/x + C=0

Answer 1

Var x,b,c : real;  begin writeln('Введите B:');readln(b);writeln('Введите C:');readln(c);x:=-b/c;writeln('x=',x);end.

Answer 2

Конечно, вот пример программы на Pascal, решающей уравнение B/x + C = 0:

pascalCopy code
program EquationSolver;

var
  B, C, x: Real;

begin
  writeln('Введите значения B и C:');
  readln(B, C);

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

Программа сначала запрашивает значения B и C у пользователя, затем проверяет условия для решения уравнения. Если B равно нулю, программа проверяет значение C. Если и C равно нулю, то уравнение имеет бесконечное множество решений (так как любое значение x подойдет). Если C не равно нулю, то уравнение не имеет решений.

Если B не равно нулю, программа вычисляет значение x по формуле x = -C / B и выводит результат на экран.