Вычисление суммы и среднего элементов арифметической прогрессии

Вычисление суммы и среднего элементов арифметической прогрессии

Option Explicit

Public Sub Арифметическая_Прогрессия()

‘Программа использует

‘ подпрограммы: Ввод_данных и СуммаN

‘ функцию Среднее

‘ Описание переменных

Dim Первый_элемент As Single

Dim Разность_прогрессии As Single

Dim Сумма_прогрессии As Single

Dim Количество As Integer

Dim Номер As Integer

‘ Очистка диапазона

Sheets("Арифм_прогрессия").Select

Range("a10:f13").Name = "Сумма"

Range("Сумма").Clear

‘ Вывод заголовка таблицы

[b10] = "Арифметическая прогрессия"

‘ Вывод шапки таблицы

[a11] = "№"

[b11] = "Первый"

[c11] = "Разность"

[d11] = "N"

[e11] = "Сумма"

[f11] = "Среднее"

‘ Ввод исходных данных 1

Номер = 1

Call Ввод_данных(Первый_элемент, Разность_прогрессии, Количество)

[a12] = Номер

[b12] = Первый_элемент

[c12] = Разность_прогрессии

[d12] = Количество

‘ Вычисление суммы элементов арифметической прогрессии(обращение к подпрограмме)

Call CуммаN(Первый_элемент, Разность_прогрессии, Сумма_прогрессии, Количество)

‘ Вывод результатов

[e12] = Сумма_прогрессии

[f12] = Среднее(Сумма_прогрессии, Количество)

‘ Ввод исходных данных 2

Номер = Номер + 1

Call Ввод_данных(Первый_элемент, Разность_прогрессии, Количество)

[a13] = Номер

[b13] = Первый_элемент

[c13] = Разность_прогрессии

[d13] = Количество

‘ Вычисление суммы элементов арифметической прогрессии(обращение к подпрограмме)

Call CуммаN(Первый_элемент, Разность_прогрессии, Сумма_прогрессии, Количество)

‘ Вывод результатов

[e13] = Сумма_прогрессии

[f13] = Среднее(Сумма_прогрессии, Количество)

Call MsgBox("Завершение работы")

End Sub

Public Sub CуммаN(Первый As Single, Разность As Single, Сумма As Single, n As Integer)

Сумма = (2 * Первый + (n — 1) * Разность) * n / 2

End Sub

Public Sub Ввод_данных(Первый As Single, Разность As Single, n As Integer)

Первый = InputBox("Введите первый элемент арифметической прогрессии")

Разность = InputBox("Введите разность арифметической прогрессии")

n = InputBox("Введите количествоо элементов арифметической прогрессии")

End Sub

Public Function Среднее(Сумма As Single, Количество As Integer) As Single

Среднее = Сумма / Количество

End Function