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

Ответы 1

  • Var A, B, C, D, X, X1, X2 : Real;BeginWriteln ('Введите коэффициенты уравнения (A, B, C) ');readln(a,b,c);If A=0 Then If B=0 Then If C=0 Then Writeln('X - любое число') Else Writeln('Корней нет! ') Else Begin X:=-C/B; Writeln('X=',X:8:3); End Else Begin D:=B*B-4*A*C; If D<0 Then Writeln ('Корней нет! ') Else Begin X1:=(-B+SQRT(D))/2/A; X2:=(-B-SQRT(D))/2/A; Writeln ('X1=', X1:8:3, ' X2=',X2:8:3); End; End;End.
  • Добавить свой ответ

Войти через Google

или

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

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

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