Определить, является ли массив Х (6) геометрической прогрессией - VB
Формулировка задачи:
Всем привет. Помогите пожалуйста программки составить, буду очень признателен.
1) Определить, является ли массив Х (6) геометрической прогрессией.
Решение задачи: «Определить, является ли массив Х (6) геометрической прогрессией»
textual
Листинг программы
If Abs(1 - X(i) * X(i) / X(i - 1) / X(i + 1)) > 1e-14 Then MsgBox "Не является": Exit Sub