Проверить, образуют ли элементы массива геометрическую прогрессию - VB
Формулировка задачи:
2)Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет — вывести 0.
Решение задачи: «Проверить, образуют ли элементы массива геометрическую прогрессию»
textual
Листинг программы
Option Explicit Dim i%, N%, q!, p! Private Sub com1_Click() Cls Randomize Timer N = Val(txtT.Text) ReDim A%(1 To N) Print "массив" For i = 1 To N A(i) = 9 * Rnd + 1 Print Format(A(i), "0 "); Next Print: Print q = A(2) / A(1) For i = 2 To N - 1 p = A(i + 1) / A(i) If Abs(p - q) > 0.001 Then Print 0: GoTo 100 Next i Print " q ="; q 100 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д