Форум программистов, компьютерный форум CyberForum.ru

Найти слова, которые начинаются и заканчиваются одной и той же буквой (перевести из Паскаля в С++) - C++

Восстановить пароль Регистрация
 
Respected
0 / 0 / 0
Регистрация: 19.01.2013
Сообщений: 47
20.03.2013, 20:10     Найти слова, которые начинаются и заканчиваются одной и той же буквой (перевести из Паскаля в С++) #1
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
uses crt;
var s,sl,sn: string;
    a: array [1..255] of string;
    i,k: integer;
begin
write('s=');                                                    //запрашиваем строку
readln(s);                                                      //считываем
s:=s+' '; sl:='';  sn:='';                                      //добавляем в конце пробел, чтобы не потерять последнее слово
for i:=1 to length(s) do                                        //в цикле с парметром перебираем все символы строки, если символ не пробел, добавляем к слову
    if s[i]<>' '  then sl:=sl+s[i] else
       begin                                                    //иначе приступаем к обработке слова
       if (length(sl)<>0) and (sl[1]=sl[length(sl)]) then       //если слово не нулевой длины, то помещаем его в элемент массива
          begin
          inc(k);                                               //увеличиваем счетчик массива
          a[k]:=sl;                                             //помещаем строку в элемент массива
          end;
       sl:='';                                                  //очищаем переменную слова для новых слов
       end;
if k=0 then writeln('Нет слов, начин. и заканч. на одну букву') else  //если счетчик равен 0, слов таких нет, о чем и сообщаем
   begin
   writeln('Количество слов, начин. и заканч. на одну букву ',k,':');   //иначе выводим количество и слова
   for i:=1 to k do
       write(a[i],' ');
   end;
end.
найти слова, которые начинаются и заканчиваются одной и той же буквой
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.03.2013, 20:10     Найти слова, которые начинаются и заканчиваются одной и той же буквой (перевести из Паскаля в С++)
Посмотрите здесь:

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

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
SummerRain
 Аватар для SummerRain
325 / 324 / 17
Регистрация: 16.12.2012
Сообщений: 544
20.03.2013, 20:13     Найти слова, которые начинаются и заканчиваются одной и той же буквой (перевести из Паскаля в С++) #2
Была тема Определить количество слов, которые начинаются и заканчиваются одной той же буквой
Смотрите 4 пост.
Yandex
Объявления
20.03.2013, 20:13     Найти слова, которые начинаются и заканчиваются одной и той же буквой (перевести из Паскаля в С++)
Ответ Создать тему
Опции темы

Текущее время: 18:11. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru