(Сам и контр)

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

Босова, Босова, Аквилянов

11 класс

Автор

Босова, Босова, Аквилянов

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

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

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

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

Задача

program s5_v2_5;
const
n = 92; //июнь – 30, июль – 31, август – 31
var
a: array[1..n] of integer;
i, ks1, kd1, kd2, kd3, max: integer;
st: string;
begin
writeln(‘Ввод массива’);
randomize;
for i := 1 to n do
a[i] := random(2) + 1;
for i := 1 to n do
write(a[i], ‘ ‘); //вывод исходного массива
kd1 := 0; kd2 := 0; kd3 := 0;
//Количество дождливых дней в июне
for i := 1 to 30 do
if a[i] = 1 then kd1 := kd1 + 1;
//Количество дождливых дней в июле
for i := 31 to 61 do
if a[i] = 1 then kd2 := kd2 + 1;
//Количество дождливых дней в августе
for i := 62 to 92 do
if a[i] = 1 then kd3 := kd3 + 1;
writeln;
writeln(‘kd1=’, kd1, ‘ kd2=’, kd2, ‘ kd3=’, kd3);
max := kd1; st := ‘июне’;
if kd2 > max then
begin
max := kd2; st := ‘июле’
end;
if kd3 > max then
begin
max := kd3; st := ‘августе’
end;
writeln(‘Дождливых дней было больше в ‘, st)
end.

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

Для квадратного уравнения $$ax^2+bx+c=0$$ два различных вещественных корня существуют тогда и только тогда, когда $$D=b^2-4ac>0$$.

Нужно перебрать все возможные значения коэффициентов из массивов:

$$a \in A[1..5]$$ — 5 вариантов;
$$b \in B[1..7]$$ — 7 вариантов;
$$c \in C[1..10]$$ — 10 вариантов.

Всего уравнений:

$$5 \cdot 7 \cdot 10 = 350.$$

Программа должна перебрать все тройки $$a, b, c$$, вычислить дискриминант и подсчитать, сколько раз выполняется условие $$D>0$$.

program s5_v2_5;
var
  a, b, c, d, k: integer;
begin
  k := 0;
  for a := 1 to 5 do
    for b := 1 to 7 do
      for c := 1 to 10 do
      begin
        d := b * b — 4 * a * c;
        if d > 0 then
          k := k + 1;
      end;
  writeln(k);
end.