Question

Срочно!!! Створіть проект для обчислення середнього арифметичного додатних чисел серед чисел, перше з яких дорівнює 100, а кожне наступне менше від попереднього на задане додатне число. Збережіть проект у папці з іменем Завдання 6.7.7, створеній у вашій папці.​

Answer 1

Язык программирования указан не был, приведу пример на Haskell.

Определим функцию seqAgv :: Int -> Double, принимающую шаг прогрессии. Все числа в прогрессии положительные. Самое большое из них равняется 100. Эту последовательность можно описать в виде [100, 100-step .. 1], где step – шаг прогрессии.

Таким образом, среднее арифметическое последовательности можно рассчитать как сумму всех элементов деленную на их количество.

Код приведен ниже.

• import Data.List (genericLength)
• seqAvg :: Int -> Double
• seqAvg step
•  | step < 1 || seq >= 100 = error "Incorrect step"
•  | otherwise = realToFrac (sum seq) / genericLength seq
•  where seq = [100, 100-step .. 1]