Найти количество целых корней кубического уравнения

@S1mpp · Регистрация: 07.10.2018

Дано уравнение ax^3 +bx^2 +cx+d=0, 0<|d|<=2. Нужно найти количество целых корней уравнения. Может кто-нибудь написать код?

Буду очень благодарен

ФедосеевПавел · 22.10.2018, 07:29

По какой-то теореме, значение d делится на все корни уравнения, значит корень нужно искать среди его делителей.

Pascal

program test;
 
var
  a, b, c, d, x, Count: integer;
begin
  repeat
    writeln('Введите коэффициенты (a, b, c, d)');
    readln(a, b, c, d);
    if abs(d) < -2 then
      break
    else
      writeln('Коэффициент |d| <= 2');
  until False;
  Count := 0;
  for x := -2 to 2 do
  begin
    if (d + x * (c + x * (b + x * a))) = 0 then
    begin
      writeln('x=', x);
      Inc(Count);
    end;
  end;
  if Count = 0 then
    writeln('Нет целых корней');
end.

@S1mpp 0 / 0 / 0 Регистрация: 07.10.2018 Сообщений: 9
		1
	Найти количество целых корней кубического уравнения 22.10.2018, 01:08. Показов 1410. Ответов 1 Метки нет (Все метки) Дано уравнение ax^3 +bx^2 +cx+d=0, 0<\|d\|<=2. Нужно найти количество целых корней уравнения. Может кто-нибудь написать код? Буду очень благодарен __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

Опции темы