Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.02.2012, 19:16   #1
Akcentbek
Пользователь
 
Регистрация: 19.01.2012
Сообщений: 38
По умолчанию паскаль

народ помогите как реализовать такое\\


наити элемент строки принадлежащий наибольшему количеству столбцов

скажите мне алгоритм как это сделать ))))
прям по порядку чтоб я мог думать а то моим думаниям тупняк наступает
Akcentbek вне форума Ответить с цитированием
Старый 09.02.2012, 19:18   #2
IT-man
АльTRUEи$т
Форумчанин
 
Аватар для IT-man
 
Регистрация: 19.03.2009
Сообщений: 784
По умолчанию

найди в строке элемент встречающийся больше всего раз
Цитата:
«Никто не войдет в Рай, имея хотя бы крупицу гордыни в своем сердце». «Аллах Красив и любит красоту. Гордыня означает отказ от истины и высокомерие»
IT-man вне форума Ответить с цитированием
Старый 09.02.2012, 22:02   #3
Akcentbek
Пользователь
 
Регистрация: 19.01.2012
Сообщений: 38
По умолчанию

зачем интерпретировать мои слова я и так по нимаю что мне нужно мне лиш нужно задать какието шаги которые приведут меня к истине
Akcentbek вне форума Ответить с цитированием
Старый 09.02.2012, 22:08   #4
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Как-то криво задание сформулировано, я не понял что и где в нем просят найти.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Старый 09.02.2012, 22:15   #5
rUs_LAN
Форумчанин
 
Регистрация: 15.11.2008
Сообщений: 577
По умолчанию

1 2 2
1 2 2
3 1 3

element 1 vstrechayt'ya naybolshee kolichestvo raz

типа такого?
rUs_LAN вне форума Ответить с цитированием
Старый 10.02.2012, 11:51   #6
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

rus_LAN, почти да.
Код:
строка = 1234
                |1    4     1     4  |
матрица=        |5    5     1     6  |
                |4    5     1     6  |
                |5    5     1     6  |
Ответ : 4 , т.к. задание "наити элемент строки принадлежащий наибольшему количеству столбцов "

1) рандомно заполняем матрицу.
2)циклом while с условием достижения конца заданной строки пробегаем по столбцам, ища i-тый элемент. Как только нашли, счетчик+1, переходим на след. столбец.
3)Пройдясь по всей матрице, сравниваем счётчик с какой-то переменной(допустим most_max), и если счётчик больше, то most_max присваиваем счётчик, а most_char присваиваем i-тый элемент.
4) ну и в конце выдаём матрицу и ниже что-то типа writeln('e/\eMeHT "',most_char,'" HaxoDuTc9 B Hau6o/\WeM Ko/\-Be cTo/\6u,oB u eTo Ko/\-Bo =',most_max);
Если помог, проси поставить минус. Будь оригинален!

Последний раз редактировалось Rin; 10.02.2012 в 12:12.
Rin вне форума Ответить с цитированием
Старый 11.02.2012, 21:16   #7
Akcentbek
Пользователь
 
Регистрация: 19.01.2012
Сообщений: 38
По умолчанию

Цитата:
Сообщение от Rin Посмотреть сообщение
rus_LAN, почти да.

.
2)циклом while с условием достижения конца заданной строки пробегаем по столбцам, ища i-тый элемент. Как только нашли, счетчик+1, переходим на след. столбец.
в это как ))

аа ,,
наверно одновремменно присвавая к счетчику +1
присваиваит его и к перечеслению
но тут же как если он по моим представлениям находится до

Последний раз редактировалось Stilet; 12.02.2012 в 00:21.
Akcentbek вне форума Ответить с цитированием
Старый 12.02.2012, 00:08   #8
Rin
Негодник
Форумчанин
 
Аватар для Rin
 
Регистрация: 10.11.2009
Сообщений: 880
По умолчанию

Akcentbek, убедил. Вот часть кода. Только я его пишу в полусонном состоянии и не проверял, так что возможны косяки.
Код:
...
заполнение матрицы
....
readln(stroka);
most_char:=stroka[1];
most_max:=0;
for k:= 1 to length(stroka) do
begin
   i:=1;
   j:=1;
   schetchik:=0;
   while (i<>n) or (stroka[k]=matrix[j,i]) do
   begin
       while (j<>n) or (stroka[k]=matrix[j,i]) do
       begin
          if stroka[k]=matrix[j,i] then   schetchik:=schetchik+1;
          j:=j+1; 
       end;
   i:=i+1;
   end;
   if schetchik>most_max then
   begin
       most_max:=schetchik;
       most_char:=stroka[k];
   end;
end;
Если помог, проси поставить минус. Будь оригинален!
Rin вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Паскаль, Борланд Паскаль-в чем разница??? Vremya-Dengy Паскаль, Turbo Pascal, PascalABC.NET 13 31.05.2011 18:23
паскаль и турбо паскаль Евгения Игоревна Помощь студентам 6 05.05.2011 14:31
паскаль masterlomaster Помощь студентам 5 23.02.2011 14:40
паскаль Luckyman Помощь студентам 0 16.02.2011 17:38