Составить программу решения ах2+вх+с=0,а,в не равно нулю.Проверить случай ,когда...

August 2022 1 0 Report

Составить программу решения ах2+вх+с=0,а,в не равно нулю.Проверить случай ,когда дискриминант болmше нуля меньше нуля и равен нулю.

Answers & Comments

ilka1998
program ii;
var A, B, C, D: real;
begin
writeln ('Введите коэффициенты А, В, С');
readln (A, B, C);
if A=0 then
writeln ('Уравнение не квадратное')
else
begin
D := B*B - 4*A*C;
A := 2*A;
if D<0 then
writeln ('Действительных корней нет')
else
if D=0 then
writeln ('Корни равны: X1 = X2 = ', -B/A)
else
begin
D := sqrt(D);
writeln ('X1 = ', (-B+D)/A);writeln ('X2 = ', (-B-D)/A);
end; end; end.

1 votes Thanks 0

Answers & Comments

v basketbolnuyu sekciyu prinimayutsya yunoshi dostigshie 13 letsostavit programmu yun

kak najti vremya esli izvestno skorost i glubina

v kakoj iz stran kanade rossii finlyandii ili norvegii klimaticheskie uslov

рекомендуемые вопросы

Helpful Links

Helpful Social