Определить тройки одинаковых рядом стоящих элементов одномерного массива - VB
Формулировка задачи:
Составьте процедуру, определяющую тройки одинаковых рядом стоящих элементов одномерного массива и выводящую на экран номера этих элементов и их значение.
Решение задачи: «Определить тройки одинаковых рядом стоящих элементов одномерного массива»
textual
Листинг программы
CLS
RANDOMIZE TIMER
DIM n AS LONG
DIM k AS LONG
n = 20
REDIM x(n) AS LONG
FOR i = 1 TO n
x(i) = 4 * RND
PRINT x(i);
NEXT
PRINT : PRINT
CALL ASD(x(), n, k)
SUB ASD (x() AS LONG, n AS LONG, k AS LONG)
FOR i = 1 TO n - 2
IF x(i) = x(i + 1) AND x(i) = x(i + 2) THEN
PRINT "x("; i; ") ="; x(i)
END IF
NEXT
END SUB