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

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


textual

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

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



Похожие ответы
  1. Это продолжение. См. также другие части этой статьи:Часть 1. Кусочек теории.Часть 3. Программа проверки Authenticode ЭЦПЧасть 2. Описание реализации программы проверки подписейСодержание: 2.1. Подготовка к проверке 2.2. Запуск процедуры проверки и обработка результатов 2.3. Очистка ресурсов. 2.4. Извлечение сертификатов и содержащейся в них информации 2.5. Извлечение атрибутов и крос-подписей

  1. Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо грузить данные. Предполагаю, что вопрос не впервые возник, поэтому буду признателен как хорошим ответам, так и дельным ссылкам на похожие темы. Заранее спасибо.

  1. Доброго всем дня! подскажите где у меня ошибка, данный код не прописывает в ячейку книги, данные. заранее спасибо!

  1. Задан целочисленный массив из 10 элементов 1) определить, есть ли в массиве последовательность из n повторяющихся элементов, стоящих подряд. n пользователь вводит. подводный камень: 3334445551 - n должно быть <=3,однако при неправильном коде(как у меня) выводит,что,допустим, 5 элементов тоже есть

  1. Дан целочисленный массив, заполненный 0,1 и 2 в случайном порядке. изменить массив так, чтобы сначала выводились 1,затем 0, и потом 2Добавлено через 9 минут массив проинициализированный

  1. выбора наименьшего из трёх чисел. Исходные данные задать самостоятельно. Числа должны вводиться с клавиатуры. Результат вывести в виде: «Наименьшее из чисел …, …, … - число …».

  1. Даны два ненулевых числа. Найти сумму, разность, произведение и частное их модулей

  1. Cоставить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке.Например,для числа 1234 получаем ответ 4321.

  1. Вообщем простенькая задача как ее можно реализовать? Дано пятизначное число. Цифры на четных позициях занулить. Например, из 12345 получается число 10305

  1. Составьте программу, которая находит 4 последовательных натуральных числа, произведение которых равно 1680.