Задание 3 Параграф 22 ГДЗ Семакин 8 класс (Информатика)

Задача

program task;
var
a, b, c: real; //коэффициенты уравнения
x1, x1, D: real;// корни и дискриминант
begin
writeln(‘Введи коэффициенты уравнения’);
readln(a, b, c);
if a = 0 then //уравнение линейно
if b = o then
if c = 0 then writeln(‘Корней бесконечное множество’)
else writeln(‘Корней не существует’)
else writeln(‘Единственны корень равен ‘, -c / b)
else
begin
D := b * b — 4 * a * c;
if D < 0 then writeln('Действительных корней нет') else if D = 0 then writeln('x1=x2=', -b / (2 * a)) else begin x1 := (-b - sqrt(D)) / (2 * a); x2 := (-b + sqrt(D)) / (2 * a); writeln('x1=', x1, ' x2=', x2) end end end.

Подробный ответ

Выполнение

Программа решает квадратное уравнение $$ax^2+bx+c=0$$ с помощью проверки коэффициента $$a$$ и дискриминанта $$D=b^2-4ac$$.

program task;
var
  a, b, c: real; {коэффициенты уравнения}
  x1, x2, D: real; {корни и дискриминант}
begin
  writeln(‘Введи коэффициенты уравнения’);
  readln(a, b, c);
  if a = 0 then {уравнение линейно}
    if b = 0 then
      if c = 0 then writeln(‘Корней бесконечное множество’)
      else writeln(‘Корней не существует’)
    else writeln(‘Единственный корень равен ‘, -c / b)
  else
  begin
    D := b * b — 4 * a * c;
    if D < 0 then writeln(‘Действительных корней нет’)
    else if D = 0 then writeln(‘x1=x2=’, -b / (2 * a))
    else
    begin
      x1 := (-b — sqrt(D)) / (2 * a);
      x2 := (-b + sqrt(D)) / (2 * a);
      writeln(‘x1=’, x1, ‘ x2=’, x2)
    end
  end;
end.

В программе предусмотрены все случаи:

$$a=0$$, $$b=0$$, $$c=0$$ — корней бесконечно много;
$$a=0$$, $$b=0$$, $$c\neq 0$$ — корней нет;
$$a=0$$, $$b\neq 0$$ — один корень $$x=-\frac{c}{b}$$;
$$a\neq 0$$ — вычисляется дискриминант $$D=b^2-4ac$$ и находятся корни квадратного уравнения.

Оцени решение

← Предыдущий Следующий →

Сообщить об ошибке

Общая оценка

4.6 / 5

Другие учебники