Нужен код решения квадратного уравнения по теореме Виета

@Deny_Doberman · Регистрация: 16.07.2012

Author24 — интернет-сервис помощи студентам

Пожалуйста дайте код решения квадратного уравнения по теореме Виета.
Turbo Pascal.
Спасибо заранее.

@Puporev · 15.01.2014, 09:35

Pascal

uses crt;
var a,b,c,x1,x2,d:real;
begin
clrscr;
writeln('Введите коэффициенты a,b,c уравнения, a<>0:');
repeat
write('a=');readln(a);
until a<>0;
write('b=');readln(b);
write('c=');readln(c);
b:=-b/a;
c:=c/a;
{проведем вне программы преобразования
 x1+x2=-b;
 x1*x2=c;
 x1*(-x1-b)=c;
 x1^2+b*x1+c=0}
d:=b*b-4*c;
if d<0 then
  begin
   writeln('Уравнение не имеет решений!');
   readln;
   exit;
  end;
x1:=(-b+sqrt(d))/2;
x2:=x1+b;
write('x1=',x1:0:2,'  x2=',x2:0:2);
readln
end.

@Deny_Doberman 1 / 1 / 1 Регистрация: 16.07.2012 Сообщений: 94
		1
	Нужен код решения квадратного уравнения по теореме Виета 14.01.2014, 22:27. Показов 12395. Ответов 1 Метки нет (Все метки) Пожалуйста дайте код решения квадратного уравнения по теореме Виета. Turbo Pascal. Спасибо заранее. 0

	15.01.2014, 09:35

Нужен код решения квадратного уравнения по теореме Виета

Решение