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

Ниже вариант решения задания из учебника Босова, Босова, Аквилянов 11 класс, Бином:

5. Напишите программу. Коэффициентами квадратного уравнения ax^2 + bx + с = 0 могут быть любые элементы соответствующих целочисленных массивов: A[1…5], B[1…7], C[1…10]. Подсчитайте, сколько из этих 350 уравнений имеют два различных вещественных корня. Запишите текст программы.

Два разных вещественных корня имеет квадратное уравнение, дискриминант которого больше 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(taskКоличество уравнений, имеющих два корня =task,k)

end.

Значения элементов массива можно менять по своему усмотрению.