Задание 5 Вариант 3 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)

Два разных вещественных корня имеет квадратное уравнение, дискриминант которого больше 0.
program s5_v3_5;
var
a: array[1..5] of integer = (1, 3, -2, 4, 6);
b: array[1..7] of integer = (2, 3, -2, 7, 4, -5, 9);
c: array[1..10] of integer = (3, -3, 1, 5, -2, 6, -4, 4, 10, -9);
i, j, y, d, k: integer;
begin
k := 0;
for i := 1 to 5 do
for j := 1 to 7 do
for y := 1 to 10 do
begin
d := sqr(b[j]) — 4 * a[i] * c[y];
if d > 0 then inc(k)
end;
writeln(‘Количество уравнений, имеющих два корня =’,k)
end.
Значения элементов массива можно менять по своему усмотрению.

Два различных вещественных корня квадратное уравнение имеет тогда и только тогда, когда его дискриминант положителен:

$$D=b^2-4ac>0$$

Нужно перебрать все возможные значения коэффициентов из массивов $$A[1..5]$$, $$B[1..7]$$ и $$C[1..10]$$ и посчитать, сколько раз выполняется условие $$D>0$$.

program s5_v3_5;
var
  a: array[1..5] of integer = (1, 3, -2, 4, 6);
  b: array[1..7] of integer = (2, 3, -2, 7, 4, -5, 9);
  c: array[1..10] of integer = (3, -3, 1, 5, -2, 6, -4, 4, 10, -9);
  i, j, y, d, k: integer;
begin
  k := 0;
  for i := 1 to 5 do
    for j := 1 to 7 do
      for y := 1 to 10 do
      begin
        d := sqr(b[j]) — 4 * a[i] * c[y];
        if d > 0 then inc(k);
      end;
  writeln(‘Количество уравнений, имеющих два корня = ‘, k);
end.

В программе три вложенных цикла перебирают все $$5 \cdot 7 \cdot 10 = 350$$ уравнений. Если дискриминант положителен, счётчик $$k$$ увеличивается на 1.

Ответ: программа выше; она подсчитывает количество уравнений с двумя различными вещественными корнями.