Задание 5 Вариант 2 Самостоятельная работа 5 ГДЗ Рабочая тетрадь Босова 11 класс (Информатика)
Решение #1
![Изображение 5. Напишите программу. Коэффициентами квадратного уравнения ах^2 + bх + с = 0 могут быть любые элементы соответствующих целочисленных массивов: А[1..5], В[1..7],...](/reshebniki/informatika/11/WBbosova/images1/sam5/2/5.png "Изображение ответа 5. Напишите программу. Коэффициентами квадратного уравнения ах^2 + bх + с = 0 могут быть любые элементы соответствующих целочисленных массивов: А[1..5], В[1..7],...")
Рассмотрим вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:
5. Напишите программу. Коэффициентами квадратного уравнения ах^2 + bх + с = 0 могут быть любые элементы соответствующих целочисленных массивов: А[1..5], В[1..7], С[1..1О]. Подсчитайте, сколько из этих 350 уравнений имеют два различных вещественных корня. Запишите текст программы.
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.
*размещая тексты в комментариях ниже, вы автоматически соглашаетесь с пользовательским соглашением
