1 / 1 / 0
Регистрация: 08.02.2012
Сообщений: 106
1

Строка: Найти количество слов, которые начинаются и заканчиваются одной и той же буквой.

24.05.2012, 17:11. Показов 1299. Ответов 1
Метки нет (Все метки)

Дана строка, состоящая из русских слов, набранных заглавными буквами и разделенных пробелами (одним или несколькими). Найти количество слов, которые начинаются и заканчиваются одной и той же буквой.
Заранее спасибо.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.05.2012, 17:11
Ответы с готовыми решениями:

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

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

Строки. Найти количество слов, которые начинаются и заканчиваются одной и той же буквой
Ребята, очень нужна помощь...помогите решить и разобраться с задачей по строкам...вот условие.....

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

1
13090 / 5871 / 1706
Регистрация: 19.09.2009
Сообщений: 8,808
24.05.2012, 18:00 2
Лучший ответ Сообщение было отмечено Дарюшка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
program Project1;
 
const
  //Множество букв. Способ задания совместим с кодовыми страницами
  //CP866 (DOS, OEM) и CP1251 (Windows).
  D = [
    'А'..'п', 'p'..'я', 'Ё', 'ё',
    'A'..'Z', 'a'..'z'
  ];
var
  S : String;
  i, Len, LenW, Cnt : Integer;
begin
  repeat
    Writeln('Задайте строку:');
    Readln(S);
 
    Len := Length(S);
    LenW := 0;
    Cnt := 0;
    for i := 1 to Len do begin
      //Если очередной символ не является буквой, то пропускаем его.
      if not (S[i] in D) then Continue;
      //Очередной символ учитываем в длине слова.
      Inc(LenW);
      //Отслеживаем конец слова.
      if (i = Len) or not (S[i + 1] in D) then begin
        if S[i - LenW + 1] = S[i] then Inc(Cnt);
        LenW := 0;
      end;
    end;
 
    //Ответ:
    Writeln('Количество слов, начинающихся и заканчивающихся');
    Writeln('на одну и ту же букву равно: ', Cnt);
 
    Writeln('Повторить - Enter. Выход - любой символ + Enter.');
    Readln(S);
  until S <> '';
end.
Строчные и заглавные буквы считаются различными.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.05.2012, 18:00
Помогаю со студенческими работами здесь

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

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

Подсчитать количество слов, которые начинаются и заканчиваются одной и той же буквой.
Прога1 &quot;Слова в строке отделены пробелами. Подсчитать количество слов, которые начинаются и...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru