Сформировать и вывести массив размера 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д