Вычеркивание из массива повторяющихся элементов - VB

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

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

Помогите пожалуйста.Вводим одномерный массив размерности n.Создать новый массив,полученный вычеркиванием повторяющихся элементов исходного массива.например (3,1,2,2,0,0,0,0,1) получить (3,1,2,0).

Решение задачи: «Вычеркивание из массива повторяющихся элементов»

textual
Листинг программы
Private Sub Command1_Click()
Dim n As Integer, i As Integer, j As Integer, t As Boolean, a() As Integer, b() As Integer, kol As Integer
n = Val(InputBox("Ââåäèòå êîë-ГўГ® ýëåìåГ*òîâ: "))
ReDim Preserve a(n)
For i = 1 To n
 a(i) = Val(InputBox("a(" & i & "):="))
 s = s & "  " & a(i)
Next
Print s
kol = 0
s = ""
For i = n To 1 Step -1
 t = True
For j = i + 1 To n
 If (a(n - j + 1) = a(n - i + 1)) Then t = False
Next
 If t Then
  kol = kol + 1
  ReDim Preserve b(kol)
  b(kol) = a(n - i + 1)
  s = s & "  " & b(kol)
End If
Next
Print s
End Sub

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


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

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

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