Теорема Виета

[Voldemort93]

Подскажите пожалуйста, как в Паскале сделать подбор чисел x1, x2 для теоремы Виета?
(x*x+px+q=0)
x1+x2=-p
x1*x2=q
Зараннее спасибо!!!

[puporev]

Что значит подбор чисел, от минус бесконечности до плюс бесконечности перебирать?

[Voldemort93]

ну, что-то вроди того!!! но можна на первый момент и от -10 до +10 (Чтоб я немного сам разобрался)!

[puporev]

Ох и трудная задача, пришлось алгебру за 8 класс вспоминать.

uses crt;
var p,q,eps,x1,x2,d,h:extended;
begin
clrscr;
writeln('Введите коэффициенты p,q уравнения:');
write('p=');readln(p);
write('q=');readln(q);
write('Введите точность определения корня eps=');{типа 0.0001}
readln(eps);
d:=p*p-4*q;{находим дискриминант}
if d<0 then
  begin
   writeln('Уравнение не имеет решений!');
   readln;
   exit;
  end
else if d=0 then
 begin
  writeln('х1=х2=',-p/2:0:5);
  readln;
  exit;
 end
else
 begin
  x1:=-p/2;x2:=-p/2;h:=eps/10;{считаем что корни равны, находятся посередине,
                                            берем шаг вычислений в 10 раз меньше точности}
  repeat
  x1:=x1-h;{один корень считаем влево}
  x2:=x2+h;{второй вправо}
  until (abs(x1*x2-q)<=eps);{когда их произведение практически равно(с учетом точности) свободному члену, прекращаем вычисления}
 end;
writeln('x1=',x1:0:5,'  x2=',x2:0:5);
writeln('Проверка по фoрмуле:');
writeln('x1=',(-p-sqrt(d))/2:0:5,'  x2=',(-p+sqrt(d))/2:0:5);
readln
end.

[Voldemort93]

СПАСИБО!!! Вы мне очень помогли!!!