ANDY, я не спорю... Просто есть такие, кто ваще в программных языках, звиняюсь, не варит. Это для них. Добавлено (21.04.2010, 16:30)
---------------------------------------------
Вот, кстати, программа для решения любых квадратных уравнений (Примечание - без использования теоремы Виета, если хотите, можете добавить):
program kv_ur;
var a,b,c,d,e,f,g,h,i,j,k: real;
begin
writeln ('Программа для решения квадратных уравнений by NEKIT. Вам нужно ввести а,b и с (коэффициент при х-квадрат, коэффициент при х и свободный коэффициент)');
readln (a);
readln (b);
readln ( c );
writeln (Сверьте уравнение: ',a,'x в квадрате+',b,'x','+',c,' = 0');
j:=sqr(b);
k:= 2*a;
if (a>0) then d:=j-4*a*c;
if (a>0) then d:=j-4*a*c;
if a=0 then writeln ('Уравнение нерешаемо!(так как коэффициент при х-квадрат равен нулю);
if d<0 then writeln ('Корней нет!');
if (d>=0) and (a<0) then i:=sqrt(j-4*a*c);
if (d>=0) and (a>0) then i:=sqrt(j-4*a*c);
e:= (-b+i)/2*a;
f:= (-b-i)/2*a;
g:=e+f;
h:=e*f;
if (d>=0) and (a<0) then writeln ('Дискриминант равен ',d, ', ', 'следовательно, корни находятся по формуле -b + 4ас - - ', '-',b,'+-',i,'/',k);
if (d>=0) and (a>0) then writeln (''Дискриминант равен ',d, ', ', 'следовательно, корни находятся по формуле -b + 4ас - - ', '-',b,'+-',i,'/',k);
if (d=0) and (a<0) then writeln ('Корень равен ',e);
if (d=0) and (a>0) then writeln ('Корень равен ',e);
if (d>0) and (a<0) then writeln ('Первый корень равен ',e,', ','второй - ',f,'.');
if (d>0) and (a>0) then writeln ('Первый корень равен ',e,', ','второй - ',f,'.');
if (d>0) and (a<0) then writeln ('Сумма корней равна ',g,', ','произведение - ',h,'.');
if (d>0) and (a>0) then writeln ('Сумма корней равна ',g,', ','произведение - ',h,'.');
end.
