Подсчитать в тексте количество слов, состоящих из одинаковых букв

@grant1 · Регистрация: 11.01.2015

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

Добрый день, помогите, пожалуйста!

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

@alexcoder · 05.06.2015, 18:39

Добавлено через 6 минут
Моя заготовка для подобных заданий

Pascal

var
i,j,l:integer;
wrd,s:string;
t:char;
begin
write('Enter string: ');
readln(s);  //Ввод строки
  //перебираем слова с начала строки
i:=1;    //начало строки
while i<=l do //цикл перебора слов
  begin
  while (i<=l) and (s[i]=' ') do inc(i);  //ищем начало очередного слова
  if i<=l then    //если нашли
    begin
    j:=i; //запоминаем инжекс начала слова
    while (i<=l) and (s[i]<>' ') do inc(i); //ищем конец слова
    wrd:=copy(s,j,i-j);
//здесь остается только проверить что слово состоит из одних букв
    end;
  end;
readln;
end.

@grant1 · 07.06.2015, 17:34 **[ТС]**

Прошу помощи! Завтра мне надо сдать эту задачу:

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

Сделал только первую часть задачи, а остальное не знаю как.

Pascal

program m1; 
var t:string; 
i,n:integer; 
l:char;   
begin
writeln('Введите текст'); 
readln(t);
n:=1;
for i:=1 to length(t) do
begin
l:=t[i];
if (l = ' ') then n:=n+1;
end;
writeln('кол-во слов в тексте', n);
end.

@grant1 0 / 0 / 1 Регистрация: 11.01.2015 Сообщений: 15
		1
	Подсчитать в тексте количество слов, состоящих из одинаковых букв 05.06.2015, 11:14. Показов 1651. Ответов 2 Метки нет (Все метки) Добрый день, помогите, пожалуйста! Составьте программу подсчета в тексте слов, состоящих из одинаковых букв. 0

	07.06.2015, 17:34

Подсчитать в тексте количество слов, состоящих из одинаковых букв

Решение