Question

Написать программу в паскале. Входные данные : вводятся 4 числа, а, b, C, d Выходные данные : найдите все целые решения уравнения ax^3+bx^2+cx+d=0 на отрезке [0,1000] и выведите их в порядке возрастания. Если на данном отрезке нет ни одного решения, то ничего выводить не нужно.

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611 (06.01.2018)

begin
  var (a,b):=ReadInteger2('Введите a,b,c,d->');
  var (c,d):=ReadInteger2;
  Write('Корни: ');
  for var x:=0 to 1000 do
   if a*x**3+b*x**2+c*x+d=0 then Write(x,' ');
end.

Пример:
Введите a,b,c,d-> 1 -3 -13 15
Корни: 1 5 

Answer 2

Конечно, вот пример программы на Pascal, которая решает указанную задачу:

pascalCopy code
program CubicEquationSolver;

var
  a, b, c, d, x: integer;

function CubicEquationValue(x: integer): integer;
begin
  CubicEquationValue := a * x * x * x + b * x * x + c * x + d;
end;

begin
  writeln('Введите значения a, b, c, d:');
  readln(a, b, c, d);

  writeln('Целые решения уравнения на отрезке [0, 1000]:');
  for x := 0 to 1000 do
  begin
    if CubicEquationValue(x) = 0 then
      writeln('x = ', x);
  end;
end.

Программа запрашивает ввод коэффициентов a, b, c и d уравнения ax^3 + bx^2 + cx + d = 0, а затем проверяет все целые значения x на отрезке [0, 1000], подставляя их в уравнение и проверяя, является ли результат равным нулю. Если да, то выводится найденное решение.