Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/13: Рейтинг темы: голосов - 13, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 11
1

Посчитать количество слов начинающихся с буквы "б" из вводимого предложения

19.11.2011, 13:37. Показов 2345. Ответов 3
Метки нет (Все метки)

1)посчитать количество слов начинающихся с буквы (б) из вводимого предложения.
Пример:боря любит играть на барабане
Ответ:2

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

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

Подсчитать и вывести на экран количество слов,начинающихся с буквы "а"
В введенной строке подсчитать и вывести на экран количество слов,начинающихся с буквы "а",а также...

Строки: найти количество слов, начинающихся с буквы "b"
Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b/

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

3
66 / 66 / 29
Регистрация: 13.02.2011
Сообщений: 392
19.11.2011, 14:07 2
https://www.cyberforum.ru/pascal/thread365406.html
А поискать-то влом да?
0
0 / 0 / 0
Регистрация: 25.11.2010
Сообщений: 11
19.11.2011, 14:12  [ТС] 3
Проблема в том, что она должна решаться без массива.
0
Почетный модератор
7963 / 3934 / 2464
Регистрация: 30.10.2011
Сообщений: 5,377
19.11.2011, 15:33 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Первая
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
uses crt;
var s: string;
    i,k: integer;
begin
writeln ('Ведите строку');
readln (s);
s:=' '+s;
for i:=1 to length(s)-1 do
    if (s[i]=' ') and (s[i+1]='б') then inc(k);
writeln ('Количество слов, начинающихся на "б" =',k);
readln;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.11.2011, 15:33

Найти количество слов, начинающихся с буквы "б".
Дан текст.Найти количество слов, начинающихся с буквы "б".

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

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

Посчитать количество слов начинающихся с буквы "с"
только начал программировать и не понял как решать help

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

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


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

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

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