Задан вид квадратного уравнения ах квадрат +bx+c=0, коэффициенты a,b,c. Найти корни...

Question

Задан вид квадратного уравнения ах квадрат +bx+c=0, коэффициенты a,b,c. Найти корни уравнения x1,x2.
1. Разработать схему алгоритма программы
2. Составить программу на языке Паскаль по разработанному алгоритму

Answer 1

Var a,b,c,d,x1,x2:real;
begin
writeln('Решение квадратных уравнений'); 
writeln('');
writeln('Введите коэффициенты a,b,c:'); 
readln(a,b,c);
d:=sqr(b)-4*a*c; 
if d<0 then  writeln('Корней нет'); <br>if d=0 then begin  x1:=-b/(2*a); 
 writeln('Один корень:'); 
 writeln(x1:4:2);  
 end; 
if d>0 then begin 
 x1:=-b+sqrt(d)/(2*a);  
 x2:=-b-sqrt(d)/(2*a); 
 writeln('Корни уравнения:'); 
 writeln(x1:4:2); 
 writeln(x2:4:2); 
 end;
end.

Comments

спасибо большое