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

Информатика 9 класс Семакин ФГОС

§ 13 Программирование ветвлений на Паскале ГДЗ по Информатике 9 класс. Семакин


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

Ответ

Program z_6;
var a, b, c, D, x1, x2: real;
begin
readln(a, b, c);
D:=sqr(b) — 4*a*c;
writeln (‘D=’, D);
if D<0 then writeln (‘Корней нет’)
else if D=0 then
   begin
      x1:=(-b)/(2*a);
      writeln (‘x=’, x1)
      end
      else
   begin
      x1:=(-b+sqrt(D))/(2*a);
      x2:=(-b-sqrt(D))/(2*a);
      writeln (‘x1=’x1, ‘ x2=’, x2)
      end
end.


Понравилась статья? Поделиться с друзьями: