Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения - VB

Узнай цену своей работы

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

Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения

Решение задачи: «Написать программу, заменяющую каждый элемент последовательности чисел на индекс его первого вхождения»

textual
Листинг программы
Sub task(A() As Integer)
Dim B() As Integer
 
    n% = UBound(A, 1)
    
    ReDim B(1 To n%) As Integer
    
    For i% = 1 To n%
        For j% = 1 To n%
            If B(j%) = 0 Then
               If A(j%) = A(i%) Then B(j%) = i%
            End If
        Next j%
    Next i%
 
    For i% = 1 To n%
        A(i%) = B(i%)
    Next i%
    
    Erase B
 
End Sub
 
Sub Start()
 
Dim X(1 To 10) As Integer
 
    X(1) = 8
    X(2) = 3
    X(3) = 7
    X(4) = 8
    X(5) = 7
    X(6) = 3
    X(7) = 7
    X(8) = 8
    X(9) = 1
    X(10) = 7
 
    task X
 
    For i% = 1 To 10
        Debug.Print X(i%); " ";
    Next i%
 
End Sub

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


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

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

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