строки, количество слов с разным кол-ом слогов Опции

[кучаТрупов]

задача: сколько слов в тексте имеет 1 слог,2 слога,3 слога и т.д.(кол-во слогов в слове совпадает с кол-ом гласных)

в Фак'е было только про *сколько раз заданное слово встречаетсся в тексте*
и больше я не нашла что бы мне помогло.

[Unconnected]

Сначала разбиваем на слова.
Можно задать множество, состоящее из гласных, потом проходить по словам, и если буква оказывается в множестве, то увеличиваем счётчик слогов.

Сообщение отредактировано: Unconnected - 20.03.2009 2:32

[volvo]

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

[кучаТрупов]

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

просто не могу вывести в конце сколько именно слов по сколько слогов имеет.

[amega]

- береш создаеш множество из гласных букв
- потом нашол первое слово в тексте
- проверяш по букво гласные, если гласная то i:=i+1;
- потом a[i]:=a[i]+1;

на выходе ми будем иметь масив где
в а1 будет содержатся количество 1 слог
в а2 будет содержатся количество 2 слог

тоесть чтото такого

const 
       glas=['А','а','Е','е','О','о','И','и','У','у','Ы','ы','Э','э','Я','я','Ю','ю'];
var 
    Mas : array [1..20] of integer;
    ch:char;
    i,k:integer;
    s:string;
begin
 {инициализация массива}

{цикл по тесту}
 ...
{получаем в s 1 слово}
 k:=0;
 for i:=1 to length(s) do 
   begin
        ch:=s[i];
        if (ch in glas) then k:=K+1;
   end;
 a[k]:=a[k]+1;     
{конец цикла}

{вывод}
end; 

хех пока писал текст уже меседжев понаписовали))

Сообщение отредактировано: amega - 20.03.2009 2:42

[volvo]

ну текст уже дан словами. его разбивать не надо же.

Это тебе только кажется... Не надо было бы разбивать - если б текст был дан в виде массива слов. Вот тогда достаточно было бы просто пробежаться по всему массиву, и посчитать то, что тебе нужно...

Кроме всего прочего - задание надо указывать полностью, в первом посте не было ничего сказано о том, что разделяются слова в тексте только пробелами. Если ты в этом уверена - все еще проще:

count := 0;
for i := 1 to length(s) do begin
	if s[ i ] in glas then inc(count)
	else
		if s[ i ] = ' ' then begin
			inc(mas[count]);
			count := 0;
		end
end;
{ mas заполнен, количество слов с I слогами хранится в mas[ i ] }

(чтобы не мучить себя обработкой конца строки - ты ж уверена, что слова разбиваются ТОЛЬКО пробелами, значит, признака конца строки, например, точки, не будет - к исходной строке допиши справа один пробел)

[amega]

к исходной строке допиши справа один пробел)

count := 0;
for i := 1 to length(s) do
     begin
	if s[ i ] in glas then inc(count)
	else
		if s[ i ] = ' '  then
                    begin  
			inc(mas[count]);
			count := 0;
		    end
           if  i=length(s) then inc(mas[count]);
     end;

теперь не нада

Сообщение отредактировано: amega - 20.03.2009 3:36

[volvo]

Хм... кучаТрупов, вопрос на засыпку: а если у тебя вообще нет гласных в слове - тогда что? Первое слово данного поста уже даст тебе 0 слогов (гласных-то нет), да мало ли еще таких слов в русском-то языке...

теперь не нада

Лучше уж добавить пробел, чем добавлять вычисление длины строки (причем неоднократное).

[amega]

например
Хм кучаТрупов вопрос на засыпку

тоесть получается на первом пробеле inc(а[0]) ?
тогда оно при массиве

array [1..20] of integer;

видаст ошибку ...
тогда

array [0..20] of integer;

и тогда получится а[0] содержит количество слов без гласных, а выводить тогда с первого элемента

Сообщение отредактировано: amega - 20.03.2009 3:53

[volvo]

А слово "Хм" ты просто вышвырнул из предложения, да? Ну, в принципе, если такой алгоритм подсчета слогов устраивает автора темы, то надо сделать чуть-чуть по-другому:

const
  size = 20;
  glas = ['А', 'а', 'Е', 'е', 'О', 'о', 'И', 'и', 'У', 'у', 'Ы', 'ы', 'Э', 'э', 'Я', 'я', 'Ю', 'ю'];

var
  s: string;
  i, count: integer;
  is_space: boolean;
  mas: array[0 .. size] of integer;

begin
  s := 'Хм кучаТрупов вопрос на засыпку в этом предложении ';
  count := 0; is_space := true;

  for i := 1 to length(s) do begin

    if s[i] = ' ' then begin
      if not is_space then inc(mas[count]);
      count := 0; is_space := true;
    end
    else begin
      is_space := false;
      if s[i] in glas then inc(count);
    end

  end;
  for i := 0 to size do
    if mas[i] > 0 then writeln('Слогов: ', i, ' -> слов: ', mas[i]);
end.

Тут уже, кстати, не особо и важно, чем разделяются слова, одним пробелом или несколькими. Да и пробелами ли вообще (можно заменить сравнение с пробелом на проверку вхождения в набор разделителей)...

[amega]

а инициализировать масив? ведь там может быть мусор...
на этом месте может выдать ошибку в виде непонятных циферок

 if mas[i] > 0 then ... 

Сообщение отредактировано: amega - 20.03.2009 4:25

[кучаТрупов]

спасибо.

ответ на вопрос на засыпку-- нет гласных-нет слогов.