Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.57/7: Рейтинг темы: голосов - 7, средняя оценка - 4.57
demexhik
1 / 1 / 0
Регистрация: 04.05.2012
Сообщений: 22
1

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

11.05.2012, 14:04. Просмотров 1278. Ответов 6
Метки нет (Все метки)

УСЛОВИЕ ЗАДАЧИ:
В заданном тексте найти все слова, которые начинаются с заданной буквы.

Хотелось бы обьяснениями
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.05.2012, 14:04
Ответы с готовыми решениями:

Обработка строковых данных. В заданном тексте удалить все слова заданной длины
Доброго времени суток!!!помогите пожалусто с задачей.Вот условия: В заданном...

Обработка строковых данных. В тексте удалить все слова заданной длины
В заданном тексте удалить все слова заданной длины. Вывести полученный текст. ...

Напечатать буквы, на которые начинаются слова в тексте, в порядке убывания частоты их употребления
Задан текст длиной не более 1000 символов. Напечатать буквы, на которые...

В заданной стройке найти все слова, в которых нет заданной буквы
1.В заданной стройке найти все слова, в которых нет заданной буквы. Считать,...

Для заданного текста получить две группы слов: к первой отнести слова, которые начинаются с гласной буквы, а ко второй – с согласной буквы
Для заданного текста получить две группы слов: к первой отнести слова, которые...

6
SeryZone
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
12.05.2012, 09:15 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  s: string;                      //s: строка
  i, j: integer;                  //i:счётчик, j:счётчик ответа
  smb: char;                      //smb: символ начального слова
{-------------------------------Начнём!----------------------------------------}
begin
  writeln('Введите строку:');
  readln(s);                                          //Вводим строку
  writeln('Введите символ:');
  readln(smb);                                        //Вводим символ начальной буквы слова
  if (s[1] = smb) then inc(j);                        //Если первая буква слова равна символу, то увеличиваем счётчик ответа
  for i := 2 to length(s) do                          //Начинаем цикл со второго символа, кончая длиной строки
    if (s[i] = smb) and (s[i - 1] = ' ') then inc(j); //Если прошлый символ - пробел и i-ный символ строки совпадает с введённым, увеличиваем ответ на 1
  writeln('Количество найденных слов: ', j);          //Выводим ответ!
end.
{----------------------------Всё очень просто!!!--------------------------------}
Добавлено через 1 минуту
Строка не превышает 255 символов. Если хотите увеличить размерность - не вопрос!
1
cucibob
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 20
24.05.2012, 19:13 3
ваша задача выводит лишь первую букву первого слова..если текст например: мама мыла раму, то он выведет число слов:1....ну если символ вести м.....ваш цикл for не работает...вот так...это видимо не просто
0
SeryZone
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
25.05.2012, 14:21 4
Всё ясно. Доработаю
0
DaskOFF
112 / 112 / 42
Регистрация: 02.05.2012
Сообщений: 524
Записей в блоге: 1
25.05.2012, 14:26 5
Pascal
1
2
3
for i:=1 to length[string] do
  if (string[i]=' ') and (string[i+1]='искомая буква') then
  inc(count);
0
DaskOFF
112 / 112 / 42
Регистрация: 02.05.2012
Сообщений: 524
Записей в блоге: 1
25.05.2012, 16:14 6
вот рабочий код SeryZone
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program Found;
uses crt;
var
  s: string;                      //s: строка
  i, j: integer;                  //i:счётчик, j:счётчик ответа
  smb: char;                      //smb: символ начального слова
{-------------------------------Начнём!----------------------------------------}
begin
clrscr;
  writeln('Введите строку:');
  readln(s);                                          //Вводим строку
  writeln('Введите символ:');
  readln(smb);                                        //Вводим символ начальной буквы слова
  if (s[1] = smb) then inc(j);                        //Если первая буква слова равна символу, то увеличиваем счётчик ответа
  for i := 1 to length(s) do                          //Начинаем цикл со второго символа, кончая длиной строки
    if (s[i] = ' ') and (s[i + 1] = smb) then inc(j); //Если прошлый символ - пробел и i-ный символ строки совпадает с введённым, увеличиваем ответ на 1
  writeln('Количество найденных слов: ', j);          //Выводим ответ!
  readln;
end.
0
Миниатюры
Обработка строковых данных. В заданном тексте найти все слова, которые начинаются с заданной буквы  
SeryZone
56 / 28 / 18
Регистрация: 09.03.2012
Сообщений: 726
Записей в блоге: 1
27.05.2012, 14:22 7
Тоже правильно!
0
27.05.2012, 14:22
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.05.2012, 14:22

Найти в тексте слова, в которых все согласные буквы расположены в алфавитном порядке
В текстовом файле input.txt записан русский текст. Найти в тексте слова, в...

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

В строках из файла определить буквы, на которые начинаются слова, в порядке убывания частоты их употребления
подскажите пожалуйста как определить буквы, на которые начинаются слова?!!! ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru