Вычеркивание из массива повторяющихся элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д