Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии - VB

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

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

3. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии: A, A + D, A + 2•D, A + 3•D, … . вот у меня есть код из похожего задания, но оно отличается от этого, может кто изменит код согласно моему заданию:

Решение задачи: «Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии»

textual
Листинг программы
Private Sub Command1_Click()
Dim N As Integer, D As Integer, A() As Integer, i As Integer
   N = InputBox("Введите N ", , 5) ' номер члена
   ReDim A(1 To N)
   A(1) = InputBox("Первый член прогрессии = ", , 3) '3 'первый член прогрессии
   D = InputBox("Шаг =", , 3) ' разность
   Print "A(1) = " & A(1), "D = " & D, "N = " & N
   Print
   For i = 2 To N
         A(i) = A(1) + D * (i - 1)
   Next i
   For i = 1 To N
        Print A(i);
   Next i
End Sub

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


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

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

12   голосов , оценка 4.25 из 5
Похожие ответы