• по заданным коэффициентам найти корни уравнения если D>0)) ПРОГРАММА ПАСКАЛЬ) помогите решить,плииз)))уравнение квадратное 

Ответы 2

  • спасибо__
  • var a,b,c,d,x1,x2:real;begin;readln(a);readln(b);readln(c);d:=sqr(b)-4*a*c;if d>0 thenbegin;   x1:=(-b+sqrt(d))/(2*a);   x2:=(-b-sqrt(d))/(2*a);   writeln('x1=',x1);   writeln('x2=',x2);end;if d=0 thenbegin;  x1:=-b/(2*a);  writeln('x1=',x1);end;if d<0 then writeln('Нет действительных решений');end.
    • Автор:

      ottoknapp
    • 6 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years