Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

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

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

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

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

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

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

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

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

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

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

https://rosettacode.org/wiki/Letter_frequency
rosettacode.org/wiki/Letter_frequency
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

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

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

Код:
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 Кб, 16 просмотров)
D1973 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задание в 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 15:55
Подсчет количества повторяющихся букв в файле _LeO_ PHP 1 22.03.2012 00:50
Гистограмма количества латинских букв LavcCraft Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM 5 17.12.2010 20:27