Форум программистов, компьютерный форум, киберфорум
C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 16.05.2022
Сообщений: 9

Какой код самый популярный?

20.12.2022, 11:00. Показов 1922. Ответов 7

Студворк — интернет-сервис помощи студентам
Добрый день. Не могу придумать цикл для вывода в Memo самого популярного кода. Проблема в том, что эти коды несколько раз повторяются.
Миниатюры
Какой код самый популярный?  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
20.12.2022, 11:00
Ответы с готовыми решениями:

Какой тип защиты программы от нелицензионного использования самый эффективный?
Какой тип защиты программы от нелицензионного использования самый эффективный? Файл ключа, usb ключ, привязка к железу, ... их много...

Отсортировать строки по фамилии в алфавитном порядке и вывести самый популярный возраст
Здравствуйте. Уже неделю не могу решить эту задачу, проблема в том что нельзя использовать string и структуры, нужно решить через...

Определить, какой сначала был день самый тёплый или самый холодный?
Динамическая память. В массив занесена информация о температуре за неделю. Определить, какой сначала был день самый тёплый или самый...

7
Модератор
 Аватар для D1973
9929 / 6467 / 2457
Регистрация: 21.01.2014
Сообщений: 27,423
Записей в блоге: 3
20.12.2022, 13:08
Цитата Сообщение от kavkazzz Посмотреть сообщение
самого популярного кода.
А какой код самый "популярный"? Наиболее часто встречающийся? А если таких кодов несколько, какой из них будет "популярнее"?
0
0 / 0 / 0
Регистрация: 16.05.2022
Сообщений: 9
20.12.2022, 13:44  [ТС]
Если таких кодов несколько, то нужно вывести эти несколько кодов. В случае, если код один, то выводится один.
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
20.12.2022, 16:55
Лучший ответ Сообщение было отмечено kavkazzz как решение

Решение

kavkazzz, ну, например, вот так:
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
#include <map>
#include <algorithm>
 
// ...
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::map<String, int> m;
    // заносим все элементы, которые надо проверить, в map
    for(int i = StringGrid1->FixedRows + 1; !StringGrid1->Cells[2][i].IsEmpty(); i++) m[StringGrid1->Cells[2][i]]++;
 
    // находим максимальное значение счетчика в map, и выводим только те элементы, у которых счетчик равен максимальному
    int mx = std::max_element(m.begin(), m.end(),
        [](const std::pair<String, int>& p1, const std::pair<String, int>& p2)
        { return p1.second < p2.second; })->second;
 
    for(auto& itr : m)
        if(itr.second == mx) Memo1->Lines->Add(itr.first);
}
В принципе, то же самое можно сделать и через TStringList, чуть-чуть пошаманив с методом Add, если нужно - говори. Приведенный выше код будет компилироваться только 64-битным компилятором. Моим XE8, скажем, он прекрасно компилируется. Код со StringList-ом будет работать даже на BCB6, там никаких новомодных фич C++ не используется.
2
Модератор
 Аватар для D1973
9929 / 6467 / 2457
Регистрация: 21.01.2014
Сообщений: 27,423
Записей в блоге: 3
20.12.2022, 17:01
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
int __fastcall iSort(TStringList* X, int i1, int i2)
{
    return -1 * CompareValue((int)X->Objects[i1], (int)X->Objects[i2]);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   Memo1->Clear();
   Memo1->Lines->Add("Самые популярные коды:");
   Memo1->Lines->Add("Код да Винчи");
   std::auto_ptr<TStringList> L (new TStringList);
   for(int i = SG->FixedRows; i < SG->RowCount; i++) {
       int k = L->IndexOf(SG->Cells[1][i]);
       if(k == -1) L->AddObject(SG->Cells[1][i], (TObject*)1);
       else L->Objects[k] = (TObject *)((int)L->Objects[k] + 1);
   }
   L->CustomSort(iSort);
   Memo1->Lines->Add(L->Strings[0]);
   for(int i = 1; i < L->Count; i++)
     if((int)L->Objects[i] == (int)L->Objects[0]) Memo1->Lines->Add(L->Strings[i]);
     else break;
}
Миниатюры
Какой код самый популярный?  
2
0 / 0 / 0
Регистрация: 16.05.2022
Сообщений: 9
20.12.2022, 23:59  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
kavkazzz, ну, например, вот так:
да, всё работает, но есть мелкая проблема: если популярных кодов несколько, то выводится только один
я просто решил с цехами так же провернуть
нужно, чтобы была возможность вывода нескольких значений :3
Изображения
  
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33404 / 21514 / 8236
Регистрация: 22.10.2011
Сообщений: 36,914
Записей в блоге: 12
21.12.2022, 00:30
Лучший ответ Сообщение было отмечено kavkazzz как решение

Решение

Цитата Сообщение от kavkazzz Посмотреть сообщение
если популярных кодов несколько, то выводится только один
Почему у меня выводятся все, а не только один?

Цитата Сообщение от kavkazzz Посмотреть сообщение
я просто решил с цехами так же провернуть
А моему коду все равно, с чем там такое проворачивать. Что будет заноситься в map, с тем и будет работать. А проблема - в том, что ты неправильно заносишь данные. Потому что не надо менять формат постоянно. Сначала у тебя есть пустая строка между заголовком и данными, теперь её нет. А мой код считает, что она должна быть.

C++
1
2
// Вот так будет работать без пустой строки перед данными
for(int i = StringGrid1->FixedRows /*+ 1*/; !StringGrid1->Cells[2][i].IsEmpty(); i++)
1
0 / 0 / 0
Регистрация: 16.05.2022
Сообщений: 9
21.12.2022, 17:22  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
А моему коду все равно, с чем там такое проворачивать.
Мой косяк, всё нормально. Спасибо большое :3
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2022, 17:22
Помогаю со студенческими работами здесь

Какой самый быстрый способ решения СЛАУ?
Доброго дня. Помогите выбрать СЛАУ(системы линейных алгебраических уравнений), которым СЛАУ будет решаться компьютером быстрее всего

Какой самый быстрый способ очистить консоль?
Всего я нашел три способа это сделать: Первый - используя system(&quot;cls&quot;), но он занимает целых 40 миллисекунд (395050 такта), да и слишком...

Какой самый простой способ передачи числа в процесс?
Есть главное приложение. В нём запускается дочерний процесс &quot;push.exe&quot; которое должно от родительского получить число и что-то сделать с...

Тупой вопрос какой самый большой целочисленный тип данных??
В чистом С по ходу unsigned long, а в Visual?? Надо засунуть в переменную 2 в 62 степени((( это - 4611686018427387904 В...

Самый самый самый простой пример рекурсии
приведите самый прост пример рекурсии)))void main(int k) { int n=10; k=n; k++; n=k; if(n!=20)main(n); ...


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Доступность команды формы по условию
Maks 07.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .
Уведомление о неверно выбранном значении справочника
Maks 06.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt
8Observer8 05.04.2026
Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .
AkelPad-скрипты, структуры, и немного лирики..
testuser2 05.04.2026
Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .
Отображение реквизитов в документе по условию и контроль их заполнения
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II
kumehtar 04.04.2026
Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён
Maks 04.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru