Вариант №3 Опишите каждый фрагмент программы на естественном языке:
Var Z: array[1..15] of integer;
for i:=1 to 15 do Z[i]:=random(12)-7;
for i:=1 to 15 do write (('Z[', i, ']=', Z[i]););
for i:=1 to 15 do if Z[i] 7 then s:=s*Z[i];
Сформулируйте условие задачи, исходя из вышеописанных фрагментов
Для решения составляем две функции
y₁=x²-2x-5 и y₂=3x+1 и вычисляем их значения на заданном интервале с каким-то шагом (был принят шаг, равный 1). Точек получилось много, но нас интересуют те, где y₁ ≈ y₂. Для простоты была выделена еще одна колонка, где вычислялись значения y₁-y₂. Была найдена область значений, близких к нулю (выделена желтым) и по значениям аргумента х из этой области строились графики. А далее мы нашли точки их пересечения.