разработайте метод для вычисления квадратного уравнения ах(в квадрате)+бх+с=0

Разработайте метод для вычисления квадратного уравнения ах(в квадрате)+бх+с=0

Задать свой вопрос
1 ответ
Var a,b,c,d,x1,x2:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read( a,b,c);
d:=sqr(b)-4*a*c;
if dlt;0
then writeln( 'Нет корней');
if dgt;0  then begin x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a);
writeln(x1:6:2, x2:6:2); end
else begin x1:=-b/(2*a);
writeln(x1:6:2); end;
readln;
end;
Лилия Чинникова
программка
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт