Проверить, образуют ли элементы массива геометрическую прогрессию - 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

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


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

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

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