Написать в паскале ,пожалуйста(

ПС ТАМ на 1 скрине замазано черным там написана формула x1=(-b-корень D)/2a x2= (-b-корень D)/2a

Если нужно решить квадратное уравнение вида \( ax^2+bx+c=0 \), то программа на Pascal может быть такой:

program KvadratnoeUravnenie;
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
writeln('Корней нет')
else if D = 0 then
begin
x1 := -b / (2 * a);
writeln('x = ', x1:0:2);
end
else
begin
x1 := (-b - sqrt(D)) / (2 * a);
x2 := (-b + sqrt(D)) / (2 * a);
writeln('x1 = ', x1:0:2);
writeln('x2 = ', x2:0:2);
end;
end.

Здесь дискриминант считается по формуле \( D=b^2-4ac \). Если \( D>0 \), то корня два: \( x_1=\frac{-b-\sqrt D}{2a} \), \( x_2=\frac{-b+\sqrt D}{2a} \).

0 0 Пожаловаться