Задача в Pascal

[Santina]

Найти сумму корней квадратного уравнения.
Если эта сумма положительна и кратна трем, то увеличить коэффициенты a и b в 0,5 раза. Иначе проверить, кратна ли данная сумма произведению коэффициентов этого уравнения. Если уравнение не имеет корней, то вывести соответствующее сообщение.

[ViktorR]

Как вариант - вспомнить теорему Виета и определение дискриминанта квадратного уравнения.

то увеличить коэффициенты a и b в 0,5 раза

классика ...

Кратность можно определить делением целых чисел: оператор mod Вам поможет.

Так думается, что коэффициенты уравнения - целого типа




Думаю, что этого будет достаточно ...

[PavelDD]

Доброго времени суток.
Чтобы проверить кратность нужно использовать mod, то есть:

if (x1+x2) mod 3 = 0 then begin     {x1,x2 - это корни уравнения}
  a := a*0,5;
  b := b*0,5;
end
else if (x1+x2) mod (a*b) =0 then writeln('Сумма кратна произведению коэффициентов.')
else writeln('Сумма не кратна.');

Ну с сообщением, что нет корней это просто.
Надеюсь это Вам поможет.

[ViktorR]

if (x1+x2) mod 3 = 0 then begin     {x1,x2 - это корни уравнения}
  a := a*0,5;
  b := b*0,5;
end
else if (x1+x2) mod (a*b) =0 then writeln('Сумма кратна произведению коэффициентов.')
else writeln('Сумма не кратна.');

Внимание!
x1 и x2 - должны быть целого типа.
Тогда a и b - целого типа.
Тогда код:

a := a*0,5;
b := b*0,5;

не пройдет.
Возможно так?

a := a div 2;
b := b div 2;

Надо отследить соответствие типов ...


Вроде так ...