составьте программку вычисления корней квадратного уравнения по данным значениям его

Составьте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

Задать свой вопрос
1 ответ
aх^2+вх+с=0
var a, b, c, d, x1, x2 : real; 

begin 
write('a = '); readln(a); 
write('b = '); readln(b); 
write('c = '); readln(c); 
d := b*b + 4*a*c; 
if d=0 then 
begin 
x1 := b / (2 * a) 
writeln (x1:3:3); 
end 
else 
if dgt;0 then 
begin 
x1 := (- b + sqrt(d) / (2 * a); 
x2 := (- b - sqrt(d) / (2 * a); 
writeln (x1:3:3, ' ', x2:3:3); 
end 
else 
writeln ('Нет решения'); 
end.


, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт