Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.82/11: Рейтинг темы: голосов - 11, средняя оценка - 4.82
0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 2
1

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности

25.12.2014, 23:11. Просмотров 1960. Ответов 2
Метки нет (Все метки)

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.
Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
 
Dim i
Dim A() As Single
Dim n As Byte
t = 0
n = TextBox1
g = 1
ReDim A(1 To n) As Single
For i = 1 To n
A(i) = Int((10) * Rnd + 10)
Cells(1, i + 1) = A(i)
aa = aa & A(i) & Space(3)
If Cells(1, i) <> Cells(1, i + 1) Then
t = t + 1
End If
Next i
TextBox2 = aa
TextBox3 = t
End Sub
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2014, 23:11
Ответы с готовыми решениями:

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности....

Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности
Дана последовательность из n целых чисел. Найти среднее арифметическое этой последовательности....

Найти количество четных элементов последовательности целых чисел
Прошу помощи. Давно позабыл все чему учили в универе:-| Дана последовательность из n целых...

Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите количество членов последовательности , не превосходящих заданного N.
Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите количество членов...

__________________
2
11200 / 3571 / 636
Регистрация: 13.02.2009
Сообщений: 10,667
26.12.2014, 00:33 2
когда пишешь код понимаешь о чём пишешь? опиши каждую строку и назови хотя бы 1 причину почему код должен считать количество уникальных
Visual Basic
1
If Cells(1, i) <> Cells(1, i + 1) Then' если значение предыдущей ячейки не равно значению текущей ячейки
При i = 1 заполняем 2 ячейку и сравниваем с первой. Естественно они не равны.
Но повторяющиеся числа могут не стоять рядом
Проще всего искать уникальные с помощью словаря Scripting.Dictionary
0
5543 / 1348 / 148
Регистрация: 08.02.2009
Сообщений: 4,081
Записей в блоге: 30
26.12.2014, 01:03 3
3 приёма от m-ch:

Алгоритм поиска количества различных элементов массива
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2014, 01:03

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

Дана последовательность из n вещественных чисел. Найти колличество нулевых элементов последовательности и произведение отрицательных элементов
VBA, не как не могу написать(

Дана последовательность целых чисел a1, a2 , ..., an. Выяснить, будет ли она возрастающей.
Помогите с задачей пожалуйста

Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел
Вводится последовательность из N чисел. Найти произведение и количество положительных среди них...

Дана последовательность из n чисел. Найти номер первого отрицательного, кратного 5 числа
Здравствуйте! Помогите составить код Дана последовательность из n чисел. Найти номер первого...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.