Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Помогите найти задачу в вашем форуме.

Автор: LOVE133 8.11.2005 12:16

Не могу найти такую задачу на форуме. Дан одномерный , массив состоящий из слов. Найти сколько раз каждое слово встречается в массиве. все слова с маленькой буквы , остается только их подсчитать. Помогите найти такую задачу, я уверена, что ее уже решали . Заранее спасибо!

Автор: volvo 8.11.2005 12:45

To: LOVE133
Даже если НЕ решали, что сложного? Сортируешь массив любым из описанных здесь способов:
http://forum.pascal.net.ru/index.php?showtopic=3065
и потом проходишь по отсортированному массиву чем-то вроде такого цикла:

i := 1;
repeat
  current := arr[i]; count := 1;
  while (arr[i+1] = current) and (i <= n) do begin
    inc(i); inc(count);
  end;
  writeln('слово: ', current, ' содержится ', count, ' раз' );
  inc(i);
until i > n;

Автор: LOVE133 8.11.2005 15:29

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