Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Как купить рекламу на форуме


Вернуться   Форум программистов > Delphi программирование > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 20000 рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.06.2021, 11:43   #1
Сия05
Новичок
Джуниор
 
Регистрация: 06.06.2021
Сообщений: 3
По умолчанию Вывод количества определенных букв!

Какой код что бы подсчитывал количество букв "а" в словах?
Сия05 вне форума Ответить с цитированием
Старый 25.06.2021, 07:40   #2
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,605
По умолчанию

инструменты:
1) цикл while
2) процдура поиска Pos()
3) процедура удаления символов Del
4)счётчик в виде какой-то переменной, типа count
вам осталось собрать всё это воедино и наслаждаться результатом
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 25.06.2021, 09:10   #3
evg_m
Старожил
 
Регистрация: 20.04.2008
Сообщений: 5,290
По умолчанию

Цитата:
2) процдура поиска Pos()
3) процедура удаления символов Del
можно и не удалять ЕСЛИ воспользоваться "расширенным" поиском PosEx
программа — запись алгоритма на языке понятном транслятору
evg_m вне форума Ответить с цитированием
Старый 25.06.2021, 11:06   #4
Arigato
Высокая репутация
СуперМодератор
 
Аватар для Arigato
 
Регистрация: 27.07.2008
Сообщений: 15,628
По умолчанию

А можно и просто циклом все символы перебрать и посчитать.
Arigato вне форума Ответить с цитированием
Старый 25.06.2021, 16:28   #5
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 3,374
По умолчанию

"Лёгкие пути - не для нас" © не помню кто
digitalis вне форума Ответить с цитированием
Старый 25.06.2021, 16:41   #6
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 606
По умолчанию

прошлогодний алгоритм количества букв

https://www.programmersforum.ru/show...7&postcount=89

идея: выделение каждой буквы и сравнение

и ещё всеобъемлющие гигантские примеры

https://rosettacode.org/wiki/Letter_frequency
rosettacode.org/wiki/Letter_frequency
учим C# & basic & excel https://programmersforum.ru/showthre...=327446&page=9 Приоритет Windows никому ничего не рекомендую https://programmersforum.ru/showthre...=338502&page=2

Последний раз редактировалось сфинкс; 25.06.2021 в 16:46.
сфинкс вне форума Ответить с цитированием
Старый 25.06.2021, 21:00   #7
NetSpace
Участник клуба
 
Аватар для NetSpace
 
Регистрация: 03.06.2009
Сообщений: 1,605
По умолчанию

мы, физики, лёгких путей не ищем!
Программирование - это единственный способ заставить компьютер делать то, что тебе хочется, а не то, что приходится.
NetSpace вне форума Ответить с цитированием
Старый 04.07.2021, 04:04   #8
D1973
Пользователь
 
Регистрация: 04.04.2018
Сообщений: 26
По умолчанию

Код:
uses ..., LazUTF8;
...
function LetterCount(Text, Letter: String): integer;
begin
  result := UTF8Length(Text) - UTF8Length(UTF8StringReplace(Text, Letter, '', [rfReplaceAll]));
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := IntToStr(LetterCount(Edit2.Text, Edit1.Text));
end;
Изображения
Тип файла: png Снимок.PNG (4.0 Кб, 10 просмотров)
D1973 вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задание в C: Определить процент гласных и согласных букв от общего количества букв в символьном ряду Meizen Помощь студентам 1 03.02.2017 15:13
задача в паскале на определение количества слов и букв в слове Надина Паскаль, Turbo Pascal, PascalABC.NET 18 20.01.2016 17:56
Подстановка определенных сроков из списка в зависимости от количества дат alexsampler Microsoft Office Excel 4 06.06.2012 14:55
Подсчет количества повторяющихся букв в файле _LeO_ PHP 1 21.03.2012 23:50
Гистограмма количества латинских букв LavcCraft Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 17.12.2010 20:27


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS