С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Grandory
0 / 0 / 0
Регистрация: 06.07.2014
Сообщений: 2
1

Найти Макс из чисел встречающихся в заданной матрице более одного раза

06.07.2014, 14:03. Просмотров 908. Ответов 2
Метки нет (Все метки)

Может кто помочь с написанием?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.07.2014, 14:03
Ответы с готовыми решениями:

Задана строка. Написать программу, которая находит количество символов, встречающихся более одного раза
Добрый вечер. Столкнулся с проблемой в написании программы в VBA для excel, а...

Из массива целых случайных чисел получить массив из чисел, которые встречаются более одного раза
Из массива целых случайных чисел X=(x i) где i=(1,2,..n) получить массив...

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Помогите решить задания.......... • произведение элементов массива,...

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Здравствуйте, помогите,пожалуйста решить задачку: Дана целочисленная...

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Найти максимальное из чисел, встречающихся в заданной матрице более одного раза

2
Catstail
Модератор
23889 / 11934 / 2107
Регистрация: 12.02.2012
Сообщений: 19,403
06.07.2014, 18:15 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
Function maxx(A() As Integer) As Integer
Dim X() As Integer
    n% = UBound(A, 1)
    m% = UBound(A, 2)
    ReDim X(1 To n% * m%, 1 To 2) As Integer
    p% = 0
    For i% = 1 To n%
        For j% = 1 To m%
            q% = A(i%, j%)
            Z% = 0
            For k% = 1 To p%
                If X(k%, 1) = q% Then
                   X(k%, 2) = 2
                   Z% = -1
                   Exit For
                End If
            Next k%
            If Z% = 0 Then
               p% = p% + 1
               X(p%, 1) = q%
               X(p%, 2) = 1
            End If
        Next j%
   Next i%
   Z% = 0
   For k% = 1 To p%
       If X(k%, 2) > 1 Then
          Max% = X(k%, 1)
          Z% = 1
          Exit For
       End If
   Next k%
   If Z% = 0 Then
      MsgBox "Âñå Г·ГЁГ±Г«Г* ГіГ*ГЁГЄГ*ëüГ*Г»!"
   Else
      For k% = 1 To p%
          If X(k%, 2) > 1 And X(k%, 1) > Max% Then
             Max% = X(k%, 1)
          End If
      Next k%
      maxx = Max%
   End If
End Function
 
Sub Test()
Dim Z(1 To 3, 1 To 3) As Integer
    Z(1, 1) = 6
    Z(1, 2) = 4
    Z(1, 3) = -6
    Z(2, 1) = 8
    Z(2, 2) = 2
    Z(2, 3) = 8
    Z(3, 1) = 6
    Z(3, 2) = 4
    Z(3, 3) = 16
    Debug.Print maxx(Z)
End Sub
2
Grandory
0 / 0 / 0
Регистрация: 06.07.2014
Сообщений: 2
07.07.2014, 13:31  [ТС] 3
Спасибо большое.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2014, 13:31

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
дана целочисленная прямоугольная матрица определить: максимальное из чисел...

Найти максимальное из чисел, встречающихся в заданной матрице более одного раза
Пожалуйста люди помогите сделать задачи!!! 1)Найти max из чисел, встречающиеся...

Двумерный массив. Найти: максимальное из чисел, встречающихся в заданной матрице более одного раза
Найти: максимальное из чисел, встречающихся в заданной матрице более одного...


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

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

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