Проверить, образуют ли элементы массива геометрическую прогрессию - VB

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

2)Дан массив ненулевых целых чисел размера N. Проверить, образуют ли его элементы геометрическую прогрессию. Если образуют, то вывести знаменатель прогрессии, если нет — вывести 0.

Код к задаче: «Проверить, образуют ли элементы массива геометрическую прогрессию - VB»

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

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


СОХРАНИТЬ ССЫЛКУ
Похожие ответы