Уровень A. С табличного процессора найдите все решения уравнения из примера «Полёт мяча», разобранного в учебнике.
Уровень B. Выполните задание уровня А. Затем выделите отдельную ячейку, в которой вычисляется максимальное значение функции на выбранном интервале. Используя эту ячейку и подбор параметра, найдите:
1) минимальную начальную скорость, при которой еще можно попасть в мишень;
2) максимальное расстояние, при котором можно попасть в мишень при начальной скорости 15 м/с.
Уровень C. Выполните задание уровня B. Затем, используя замену , постройте аналитическое решение уравнения из примера «Полёт мяча». Для практических вычислений используйте электронные таблицы. Сравните точное и численное решения.
Для задания 1 или заданий 2,3 оставляем в программе только нужную строку.в соответствии с комментарием.
// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),1,99); a.Println;
Writeln('k=',a.Where(k->k.IsEven).Count); // для задания 1
Writeln('s=',a.Where(k->k mod 10=2).Sum) // для заданий 2/3
end.
Пример
n= 17
61 32 83 78 47 80 85 64 52 85 30 77 96 81 14 65 67
k=8
s=84