Одинаковые слова

@Zmeu · Регистрация: 23.09.2009

Author24 — интернет-сервис помощи студентам

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

@Puporev · 23.09.2009, 13:47

Сообщение от Zmeu

через множество и сэт оф.

А что будет в множестве? Уж слова точно не могут быть элементами множества.

Добавлено через 1 минуту
Как считать одинаковые слова, например в строке
аа ббб аа ббб аа ввв. Сколько здесь одинаковых слов?

@Zmeu · 23.09.2009, 13:57 **[ТС]**

может быть должны заданны например 5 слов и потом уже считать скока раз они повторялись, ну а в множестве [а...я]
если туплю,поправьте )

@Zmeu · 23.09.2009, 17:01 **[ТС]**

вот что у меня получилось

Pascal

Program Slova;
Var
  Letters: set of char;
  Text : String;
  i,S : integer;
  Q : real;
 
Begin
    Letters:=['я','б','л','о','к','о'];
    Writeln('Введите предложение ');
  Readln(Text);
  S := 0;
  Q := 0;
  For i := 1 to Length(Text) do
    Begin
      If Text[i] in Letters
        Then
          S := S+1;
          Q:=S/6;
 
        End;
     Writeln('В предложении "', Text, '" ', Q, ' раз повторяется слово');
End.

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

@Zmeu 0 / 0 / 0 Регистрация: 23.09.2009 Сообщений: 3
		1
	Одинаковые слова 23.09.2009, 12:52. Показов 1640. Ответов 3 Метки нет (Все метки) помогите плиз решить задачу на паскале. необходимо найти в тексте одинаковые слова и вывести их общее кол-во. через множество и сэт оф. текст вводится вручную,а не грузится с файла. Заранее спасибо 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.09.2009, 13:47	2
	Сообщение от Zmeu через множество и сэт оф. А что будет в множестве? Уж слова точно не могут быть элементами множества. Добавлено через 1 минуту Как считать одинаковые слова, например в строке аа ббб аа ббб аа ввв. Сколько здесь одинаковых слов? 0

@Zmeu 0 / 0 / 0 Регистрация: 23.09.2009 Сообщений: 3
	23.09.2009, 13:57 [ТС]	3
	может быть должны заданны например 5 слов и потом уже считать скока раз они повторялись, ну а в множестве [а...я] если туплю,поправьте ) 0

	23.09.2009, 17:01

Опции темы