Задача по тексту. Сколько раз повторяется буква p в первых трех словах - Turbo Pascal

Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.50/8:

@Odin_9393 0 / 0 / 0 Регистрация: 11.03.2012 Сообщений: 15

	Задача по тексту. Сколько раз повторяется буква p в первых трех словах 14.04.2012, 10:18. Показов 1636. Ответов 1 Метки нет (Все метки) Дан текст. Определить сколько раз повторяется буква p в первых трех словах 0

Заказать работу у эксперта

Лучшие ответы (1)

Сообщение: #2910229

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

14.04.2012, 10:18

Ответы с готовыми решениями:

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

Найти количество букв p в трех первых словах текста
Дан текст. Найти цифру буквы р, которая входит в начальные три слова текста. Найти количество букв p в трех первых словах текста.

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

Фаер

792 / 398 / 260

Регистрация: 09.12.2011

Сообщений: 786

Записей в блоге: 53

14.04.2012, 11:53

Сообщение было отмечено Odin_9393 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Uses crt;
Var p,s:string; i,k,t:integer;
Begin
ClrScr; Writeln('Input text:'); Readln(s);
For i:=1 to length(s) do
 If not(s[i]=' ') then
  Begin
   p:=p+s[i]; If (upcase(s[i])='P') and (t<3) then inc(k);{собираем слова посимвольно, считаем кол-во букв р}
  End
 Else
  Begin
   inc(t); p:='';{считаем кол-во слов}
  End;
Writeln('Kol-vo bukv p:',k); Readln;
End.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

14.04.2012, 11:53

Помогаю со студенческими работами здесь

Определить, сколько раз повторяется задуманная буква в словах
Есть программа которая реализует игру "Угадай букву"... вводятся с клавиатуры слова а она пишет сколько раз повторяется задуманная буква...

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

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

Определить какая буква встречается во всех трех словах максимальное количество раз
Ввести три слова х1, х2, х3. Определить какая буква встречается во всех трех словах максимальное количество раз. Если таких букв нескольео...

Написать программу, которая считает, сколько раз повторяется буква в строке
Помагите, надо написать програму каторая считает сколька раз повтараетса бкви в строке

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

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .	Lazarus. Таблица с объединением ячеек. Massaraksh7 21.03.2025 Понадобилась представление на экране таблицы с объединёнными ячейками. И не одной, а штук триста, и все разные. На Delphi я использовал для этих целей TStringGrid, и то, кривовато получалось. А в. . .	Async/await в Swift: Асинхронное программирование в iOS mobDevWorks 20.03.2025 Асинхронное программирование долго было одной из самых сложных задач для разработчиков iOS. В течение многих лет мы сражались с замыканиями, диспетчеризацией очередей и обратными вызовами, чтобы. . .	Колмогоровская сложность: Приёмы упрощения кода ArchitectMsa 20.03.2025 Наверное, каждый программист хотя бы раз сталкивался с кодом, который напоминает запутанный лабиринт — чем дальше в него погружаешься, тем сложнее найти выход. И когда мы говорим о сложности кода, мы. . .	PostgreSQL в Kubernetes: Подготовка кластера и настройка Mr. Docker 20.03.2025 Когда доходит до контейнеризации баз данных и особенно таких требовательных к ресурсам системах как PostgreSQL, многие команды до сих пор колеблются, прежде чем перенести их в контейнерную. . .
C++26: Индексирование пакетов и метапрограммирование bytestream 20.03.2025 Эволюция C++ продолжается стремительными темпами – каждый новый стандарт приносит функциональность, о которой мы мечтали годами. Звучит слишком громко? Если вы когда-либо боролись с вариадическими. . .	Состояние гонки в C#: подводные камни многопоточного программирования UnmanagedCoder 20.03.2025 Что такое состояние гонки? Это ситуация, когда результат программы непредсказуемо меняется в зависимости от порядка выполнения потоков. Проще говоря, два или более потока пытаются одновременно. . .	Next.js для разработки React: преимущества серверного рендеринга Reangularity 20.03.2025 Next. js решает классическую проблему React-приложений: медленную первоначальную загрузку и плохую индексацию поисковиками. Вместо того чтобы заставлять браузер пользователя выполнять всю работу по. . .	JUnit или TestNG: Выбираем Java-фреймворк для тестирования Javaican 20.03.2025 История тестовых фреймворков в Java началась в конце 90-х, когда Кент Бек и Эрих Гамма разработали JUnit - инструмент, который перевернул представление разработчиков о модульном тестировании. JUnit. . .	Разбиваем монолит на два микросервиса и реализуем CI/CD ArchitectMsa 20.03.2025 Когда команда растет, а функциональность монолита расширяется, поддерживать и развивать такую систему становится все труднее. Разработчики начинают тратить много времени на разбор сложных. . .

Наверх