Написать программу в VBA арифметической прогрессии в динамическом массиве

Узнай цену своей работы

Формулировка задачи:

помогите пожалуйста написать эту программу: Арифметическая прогрессия, предполагаем, что формулу не знаем. Определяем динамический массив. В динамический массив все n членов записываем (a1 в массив, а2 = а1 + d). И потом берем и все складываем. Заранее большое спасибо!

Решение задачи: «Написать программу в VBA арифметической прогрессии в динамическом массиве»

textual
Листинг программы
  1. Sub Всё_складываем()
  2. Dim b() As Single, q As Single, элемент, сумма
  3.  
  4. n = InputBox("Введите количество членов прогрессии")
  5. ReDim b(1 To n)
  6. b(1) = InputBox("Введите первый член прогрессии")
  7. q = InputBox("Введите шаг прогрессии")
  8. элемент = b(1) & " "
  9. сумма = b(1)
  10. For i = 2 To n
  11. b(i) = b(i - 1) + q
  12. элемент = элемент & b(i) & " "
  13. сумма = сумма + b(i)
  14. Next i
  15. MsgBox элемент
  16. MsgBox сумма
  17. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы