помогите решить задачку

[gorez]

Подсчитать сколько слов в тексте имеют удвоенные сочетания букв и вывести данные слова на экран. Спасибо. (Паскаль)

[gorez]

неужели никто не может помочь?

[Xardas]

Помочь сделать или сделать за Вас??? Давайте не будем стесняться и поделимся своими мыслями по поводу того, как решать задачу; в чем загвоздка вышла, покажите Ваш нерабочий код, который я с удовольствием постараюсь превратить в рабочую версию...

[Карась]

Каких результатов вы уже добились?

Вот например пример программы которая считает колво слов в строке.

var i, k : integer;
      S : String;

begin
k := 0;
Readln (S);
if S[1] <> ' ' Then k := k + 1;
For i := 1 To Length(S) Do
  Begin
    if i = Length(S) Then Break;
    if (S[i] = ' ') And (S[i + 1] <> ' ') Then k := k + 1;
  End;
Writeln (k);
Readln;
end.

[_Dmitry]

Вы расшифруйте, что такое "удвоенные сочетания букв", может кто и поможет...

[gorez]

Заочник технического вуза. Задание приведено дословно. Удвоенные сочетания букв - я думаю, что удвоенные согласные в словах, например: класс, Алла, осенний и т.д. Полагаю надо в произвольном тексте (Алла и Анна учатся в десятом классе. Они решили организовать поход всем классом в осенний лес.) перебором найти все эти слова и вывести на экран.

[puporev]

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

program dve_buk;
uses crt;
var s:string;   //исходный текст
    s1:array[1..50]of string; //массив слов
    i,j,k,p,kol:integer;
begin
clrscr;
write('s: ');readln(s);
for i:=1 to length(s) do
if s[i]='.'then delete(s,i,1);  //удаляем точки(также и другие разделители)
k:=1;
for i:=length(s) downto 1 do {massiv slov}
if s[i]=' 'then
   begin
     s1[k]:=copy(s,1,(pos(' ',s)-1));//создаем из строки массив слов
     delete(s,1,pos(' ',s));
     k:=k+1;     //считаем слова
   end;
s1[k]:=s;
kol:=0;
for i:=1 to k do
  begin
    p:=0;
    for j:=1 to length(s1[i])-1 do
    if s1[i][j]=s1[i][j+1] then         //если сдвоенные буквы
       begin
         p:=p+1;                    //увеличиваем счетчик
       end;
    if p>0 then    //если совпадения есть
       begin
         kol:=kol+1;   //считаем нужные слова
         write(s1[i],' ');  //выводим их на экран
       end;
 end;
writeln;
writeln('kol=',kol);//выводим количество нужных слов
readln
end.

[Stilet]

Хы, а вот еще альтернативное решение, как мне кажется пошустрее решения Пупорева (sorry)

var k,e,s:string; i:integer;b:boolean;
begin
s:='Алла и Анна учатся кататься ';e:='';
//********* FOR ******************
i :=1 ;   b:=false;
while i<=length(s)  do
begin
 if byte(s[i])-byte(s[i+1])=0 then b:=true;
 if s[i]<>' ' then  k:=k+s[i]
 else begin
  if b then begin e:=e+' '+k; b:=not b;end;
  k:='';
 end;
inc(i);
end;
caption:=e;
//******* END FOR ****************{}

[madmot]

stilet, сорри за оффтоп, красивый код.

[Stilet]

Ничего, я тут не модератор, так что не забаню