Проверить, образуют ли элементы массива арифметическую прогрессию - VB
Формулировка задачи:
Array24. Дан целочисленный массив размера N, не содержащий одинаковых чисел. Проверить, образуют ли его элементы арифметическую прогрессию (см. задание Array3). Если образуют, то вывести разность прогрессии, если нет — вывести 0.
Array3. Дано целое число N (> 1), а также первый член A и разность D арифметической прогрессии. Сформировать и вывести массив размера N, содержащий N первых членов данной прогрессии:
A, A + D, A + 2·D, A + 3·D, . . . Заранее спасибо всем
Решение задачи: «Проверить, образуют ли элементы массива арифметическую прогрессию»
textual
Листинг программы
- Sub MakeArr(A() As Integer, n As Integer, a1 As Integer, d As Integer, Optional i As Integer = 1)
- If (i > n) Then
- Exit Sub
- Else
- A(i) = a1 + (i - 1) * d
- MakeArr A(), n, a1, d, i + 1
- End If
- End Sub
- Sub Test()
- Dim AA(1 To 10) As Integer
- MakeArr AA(), 10, 13, 4
- For i% = 1 To 10
- Debug.Print AA(i%)
- Next i%
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
