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

[Poma][a]

Тада можно так :
Сделаем массив слов, отсортируем, пройдемся.. А там уже за один (вроде) проход определим минимальный.. Но проще прочитать про record

[VladKB1]

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

Тада можно так :
Сделаем массив слов, отсортируем, пройдемся.. А там уже за один (вроде) проход определим минимальный.. Но проще прочитать про record

Я это всё могу сделать кроме сортировки, напишите пожалуйста код. Вот
мы ищем слова и добавляем их в массив. Так же ?

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;

[Poma][a]

Хочешь честно? Лови : вариант с сортировкой - идиотский! Мой тебе совет : оставь эту задачу.. Выучи процедуры, записи (можно и списки).. Эта задача не должна решаться так.. Это очень-очень тупой вариант..

[VladKB1]

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

Хочешь честно? Лови : вариант с сортировкой - идиотский! Мой тебе совет : оставь эту задачу.. Выучи процедуры, записи (можно и списки).. Эта задача не должна решаться так.. Это очень-очень тупой вариант..

Спасибо за совет, но если я не решу эту задачу то я не смогу перейти на новую тему ( в электронном учебнике по которому я занимаюсь)! Ладно спасибо за помощь...

[Poma][a]

тыц

Я не проверял

[VladKB1]

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

тыц

Я не проверял

Огромное спасибо! Всё работает ! К сожалению проверить по тестам я смогу только в пятницу, если что напишу . Ещё раз ОГРОМНОЕ спасибо!

[VladKB1]

Сообщение от 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][ - е!

var
 s,minS,st: string;
 sm: array [1..127] of string;
 i,j,k,l,a,m,ss: integer;
begin
 assign(input,'input.txt');
 reset(input);
 assign(output,'output.txt');
 rewrite(output);

 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(a);
   sm[a]:=copy(s,l,i-l+1);
  end;
 end;

 for i:=1 to a do
 for j:=i to a do
 if sm[i] > sm[j] then
 begin
  st:='';
  st:=st+sm[j];
  sm[j]:='';
  sm[j]:=sm[j]+sm[i];
  sm[i]:='';
  sm[i]:=sm[i]+st;
 end;

 st:=sm[1];
 for i:=1 to a do
 begin
  if sm[i] = st then inc(ss)
  else
  begin
   if m < ss then
   begin
    minS:='';
    minS:=minS+st;
    m:=ss;
   end;
   ss:=1;
   st:='';
   st:=st+sm[i];
  end;
 end;
 writeln(minS);
end.