Составить Программу вычисления корней квадратного уравнения поь даным значениям его коффицеент
Помогите составить Программу вычисления корней квадратного уравнения поь даным значениям его коффицеент
- Program tt;var A,B,C,D,X1,X2: Real;begin Writeln (‘Введите коэффициенты: A B C’); Readln(A,B,C); D := B * B — 4 * A * C;if D > 0 then beginX1 := (-b + sqrt(D)) / (2 * A);X2 := (-b — sqrt(D)) / (2 * A);Writeln (X1,’ ‘,X2);endelse if D = 0 then beginX1 := b / (2 * A);Writeln (X1);endElseWriteln (‘корней нет’);
End.
Комментарии 0