Question

PascalABC. Напишите программу,которая находит все корни уравнения в диапозоне x от -100 до +100 : Ix^2 - 5x + 2I = 2

Answer 1

Ответ:

Var

X, i: longint;

Begin

Readln(l);

For x := - 100 to 100 do

Begin

If l*x-5*x+2*l=2 then writeln(x);

End;

End.

Answer 2

Конечно! Вот пример программы на языке PascalABC, которая находит все корни уравнения в заданном диапазоне:

pascalCopy code
program FindRoots;

function Equation(x: Integer): Real;
begin
  Equation := Abs(x*x - 5*x + 2) - 2;
end;

procedure FindAllRoots();
var
  x: Integer;
  root: Real;
begin
  for x := -100 to 100 do
  begin
    root := Equation(x);
    if root = 0 then
      WriteLn('Корень уравнения при x = ', x);
  end;
end;

begin
  FindAllRoots();
end.

В этой программе используется функция Equation, которая вычисляет значение левой части уравнения при заданном значении x. Затем в процедуре FindAllRoots происходит перебор всех значений x в диапазоне от -100 до 100, и для каждого значения проверяется, является ли результат вызова функции Equation равным нулю. Если результат равен нулю, то выводится сообщение о том, что найден корень уравнения при соответствующем значении x.

Пожалуйста, обратите внимание, что в этой программе я использовал функцию Abs для получения абсолютного значения. Это необходимо, так как уравнение содержит выражение |x^2 - 5x + 2|, и нам нужно проверить, равно ли оно 2.