Меньшее из частейших (TurboPascal)

[VladKB1]

Всем привет!

Мне нужно решить задачу, у меня есть частичное решение. Прошу помочь мне решить задачу (условие и решение ниже).

Меньшее из частейших

Прочитайте строку, состоящую из слов, разделённых пробелами. Максимальная длина строки равна 253 символам.

Выведите в файл слово, которое встречается в тексте наибольшее количество раз. Если таких слов несколько, выведите меньшее по алфавиту.

input.txt
aba ac aba de a de

output.txt
aba

сначала я напишу идею решения:

1.В начале задачи мы читаем строку s и все найденные слова поместим в массив c.

2.Далее мы сортируем подсчётом, и считаем сколь раз повторялось слово (если такое есть).
Если смотреть по примеру, то у нас будет массив (например a) состоящий из 4 символов 2,2,1,1.

3.И вместе с этим мы будем добавлять все разные слова в string-овый массив (например массив st). И у нас должно будет
быть 2 массива: 1 массив a:=2,2,1,1 и 2 массив st:=aba,de,ac,a .

4.Потом мы сделаем цикл от 1 до количества цифр в массиве а , и в нём будем подсчитывать сколько одинаковых цифр
есть в начале( если таких нет, переменная подсчёта равна в самом начале 1). Как только следующая цифра не ровна предыдущей,
то прекращаем работу цикла и идём дальше по коду...

5.И в конце делаем цикл от 1 до переменной подсчёта (допустим k) и сравниваем переменную (допустим minS) которая равна
пустой строке с st[i]. И если minS > st[i] то minS:=''; minS:=minS+st[i]; и всё.

6.Потом выводим minS.

Вроде бы идея правильная и воплотить можно, если нет, напишите. И сейчас я напишу код для каждого пункта (там где нету, значит я не знаю ):

1.

readln(s);
 s:=' '+s+' ';

 for i:=2 to length(s)-1 do
 if s[i] <> ' ' then
 begin
  if s[i-1] = ' ' then l:=i;
  if s[i+1] = ' ' then
  begin
   inc(t);
   c[t]:=copy(s,l,i-l+1);
  end;
 end;

4.
Я не знаю как узнать количество цифр в массиве а

for i:=1 to {количество цифр} do
 if a[i] = a[i] then inc(k) else break;

5.

for i:=1 to k do
 if minS <= st[i] then
 begin
  minS:='';
  minS:=minS+st[i];
 end;

6.

writeln(minS);
end.

Всем заранее спасибо!

[Poma][a]

Я за малясь другой подход..
Не нужно сортировать.. Ограничения позволяют каждый раз пробегать массив слов (на самом деле это будет структура из двух полей : string, integer)
Вот и всё..

ReadLn(s);
s := s + ' ';
i := 1;
wrd := '';
while i <= Length(s) do begin
      if s[i] = ' ' then begin
         <что-то делаем>   
         wrd := ''
      end
      else
           wrd := wrd + s[i]
end

Вот..
Теперь разговор про <что-то делаем>..
Нам нужно пробежаться уже по существующим словам и найти нужное(если его нет, то создать новую запись)..

for j := 1 to k do 
     if a[i].s = wrd then begin Inc(a[i].cnt); Exit end; // давай занесем это все в процедурку

Inc(k);
a[k].s := wrd; a[k].cnt := 1;

k изначально равно 0..
все

[min@y™]

как всегда, намешано всё в одну кучу.
прежде чем чото делать, план нарисуй и порежь задачу на независимые части.
хотя... кому я это говорю, ёмаё!..

[Poma][a]

прежде чем чото делать, план нарисуй и порежь задачу на независимые части.

Там как бэ ужо

[min@y™]

Там как бэ ужо

я не это имел в виду. подзадача в моём понимании – это независимая фүнкция.

[VladKB1]

Сообщение от Poma][a

Я за малясь другой подход..
Не нужно сортировать.. Ограничения позволяют каждый раз пробегать массив слов (на самом деле это будет структура из двух полей : string, integer)
Вот и всё..

ReadLn(s);
s := s + ' ';
i := 1;
wrd := '';
while i <= Length(s) do begin
      if s[i] = ' ' then begin
         <что-то делаем>   
         wrd := ''
      end
      else
           wrd := wrd + s[i]
end

Вот..
Теперь разговор про <что-то делаем>..
Нам нужно пробежаться уже по существующим словам и найти нужное(если его нет, то создать новую запись)..

for j := 1 to k do 
     if a[i].s = wrd then begin Inc(a[i].cnt); Exit end; // давай занесем это все в процедурку

Inc(k);
a[k].s := wrd; a[k].cnt := 1;

k изначально равно 0..
все

Спасибо .Но можно написать код без процедурки? Я уже в одной теме говорил почему нельзя использовать...
И wrd это слово которое выводится в output.txt ?

[min@y™]

Но можно написать код без процедурки?

вам запрещают пользоваться самописными функциями/процедурами?

[VladKB1]

Сообщение от min@y™

вам запрещают пользоваться самописными функциями/процедурами?

Нет не запрещено. Сейчас объясню. В моём городе есть "Кружок быстрого программирования". В нём я программирую по "программе обучения" (электронный учебник). И в данный момент я на параграфе "Алгоритм поиска слов в текcте. Лексикографический порядок. Процедура continue" А самописные процедуры дальше этого параграфа. Когда дойду до него, то тогда и будет можно использовать (в каждом параграфе есть задачи, вот одна из них).

[Poma][a]

Ну тогда используйте while и потом проверяйте по i или оставьте for, но заведите булевскую переменную

[min@y™]

Нет не запрещено.

значит можно?

Когда дойду до него, то тогда и будет можно

значит нельзя?