0 / 0 / 0
Регистрация: 25.12.2014
Сообщений: 2
1

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

25.12.2014, 21:46. Показов 1727. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности.
Пытался сам сделать не получилось, выдает не верное значение, помогите вот код поправьте или напишите свой.
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, 21:46
Ответы с готовыми решениями:

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

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

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

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

2
2509 / 1130 / 582
Регистрация: 07.06.2014
Сообщений: 3,286
25.12.2014, 23:47 2
SeaWolf, уверены, что форум по Delphi подходит для вашего сообщения?
0
Модератор
Эксперт функциональных языков программированияЭксперт Python
36578 / 20308 / 4218
Регистрация: 12.02.2012
Сообщений: 33,605
Записей в блоге: 13
29.12.2014, 22:09 3
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Function SetOf(A() As Integer) As Integer()
Dim Res() As Integer
    n% = UBound(A, 1)
    ReDim Res(1 To n%) As Integer
    p% = 0
    For i% = 1 To n%
        x% = A(i%)
        q% = 0
        For j% = 1 To p%
            If x% = Res(j%) Then
               q% = -1
               Exit For
            End If
        Next j%
        If q% = 0 Then
           p% = p% + 1
           Res(p%) = x%
        End If
    Next i%
    ReDim Preserve Res(1 To p%) As Integer
    SetOf = Res
End Function
 
Sub Test()
Dim R() As Integer
Dim Z(1 To 5) As Integer
    Z(1) = 1
    Z(2) = 3
    Z(3) = 4
    Z(4) = 3
    Z(5) = 4
    R = SetOf(Z)
    For i% = 1 To UBound(R, 1)
        Debug.Print R(i%); " ";
    Next i%
    Debug.Print
End Sub
0
29.12.2014, 22:09
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.12.2014, 22:09
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru