VPF::Поиск в масиве - Форум программистов

Нурик Сакура

Дата 9.6.2005, 21:57 (ссылка)

(нет голосов)

Загрузка ...

Почти японец...

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 17.12.2004
Где: Украина, Киев

Репутация: нет
Всего: 2

есть задача:
Дано матрицу А размером NxM.. надо найти число, которое встречается в матрице чаще всего.. установить номера столбиков и строк, на пересечении которых находится число (это просто номер числа)..
как организовать поиск? заранее усем спасибо за помощь..

--------------------

- Приказы не обсуждаются!- Не объясняются и не выполняются. (с) фанфик на Hellsing

Akina

Дата 9.6.2005, 23:28 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453

Цитата(Nurik @ 9.6.2005, 22:57)

как организовать поиск?

Запись подсчетом в динамический одномерный массив.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Нурик Сакура

Дата 9.6.2005, 23:32 (ссылка)

(нет голосов)

Загрузка ...

Почти японец...

Профиль
Группа: Участник
Сообщений: 213
Регистрация: 17.12.2004
Где: Украина, Киев

Репутация: нет
Всего: 2

А пример можно? А то я в бейсике ноль... как и в Паскале... я просто любитель Си...

--------------------

- Приказы не обсуждаются!- Не объясняются и не выполняются. (с) фанфик на Hellsing

Voldemar2004

Дата 10.6.2005, 17:14 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1650
Регистрация: 25.12.2004

Репутация: 7
Всего: 23

Цитата(Nurik @ 9.6.2005, 21:57)

заранее усем спасибо за помощь..

Все программеры на
http://forum.vingrad.ru/index.php?showforum=24. Зови их оттуда.

Добавлено @ 17:16

Цитата(Nurik @ 9.6.2005, 23:32)

я просто любитель Си...

Так скажи, чего у тебя в Си (?++??) не получается, приведи код, тогда его можно будет перевести в VB. Только и всего.

--------------------

i_i
(';')
(V)

user posted image

Fredy

Дата 11.6.2005, 23:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 4
Регистрация: 1.6.2005

Репутация: нет
Всего: 1

Akina Можно и без динамического массива
Например так ...

Код


Public mas () As integer
Public index_i, index_j As integer
Public element As integer

Function find_kol(temp As integer) As integer
  Dim i, j As integer
  Dim Kol as integer
  Kol=0
  For i=1 to M
     For j=1 to N
       if mas(i,j)=temp then
              Kol=Kol+1
       End If
     Next j
  Next i
  find_kol=Kol
End Function

Private Sub Poisk()
  Dim i, j As Integer
  Dim max_kol, kolich As integer
  max_kol=0
  For i=1 to M
       For j=1 to N
         kolich=find_kol(mas(i,j))
         if kolich>max_kol then
              max_kol=kolich : element=mas(i,j)
              index_i=i : index_j=j         
         End if
        Next j  
   Next i
End Sub

Это сообщение отредактировал(а) Fredy - 11.6.2005, 23:15

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »