Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Acheron1757
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 4
#1

обработка текста

16.05.2013, 10:24. Просмотров 438. Ответов 5

кто сможет подсказать, нужно разработать программу обработки текста, определить в тексте наиболее часто встречающиеся символы, количество символов выбирается.
САМ Я НЕ МОГУ ВСПОМНИТЬ КАК СДЕЛАТЬ СРАВНЕНИЕ СИМВОЛОВ!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2013, 10:24
Ответы с готовыми решениями:

Ввод текста, обработка и вывод текста в то же поле
Здравствуйте!Как сделать в delphi 10 seattle нечто вроде экспертных...

Обработка текста
Уважаемые форумчане, посдкажите...В программе пользователю предложено ввести...

Обработка текста
как сделать, чтобы программа в мемо текст и удаляла его и соседние 2-4...

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

Обработка текста
Добрый вечер, нужна программа с формой, которая убирает заданные слова, к...

5
Санек25
420 / 350 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
16.05.2013, 10:32 #2
Delphi
1
if 's'='s' then showmessage('Ура!!!!!!!!')
так пойдет?
0
Acheron1757
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 4
16.05.2013, 10:35  [ТС] #3
это то я и сам могу написать, а если нужно определить те символы которые чаще остальных встречаются в тексте, вот что интереснее
0
Санек25
420 / 350 / 19
Регистрация: 14.05.2012
Сообщений: 1,437
16.05.2013, 10:38 #4
читайте про функции pos, posex, delete, copy. отпадет куча вопросов
0
Mawrat
12825 / 5733 / 1700
Регистрация: 19.09.2009
Сообщений: 8,807
16.05.2013, 11:42 #5
Это задача на частотный анализ текста. Т. е., надо подсчитать сколько раз в тексте присутствует каждый символ.
Анализ "Войны и мира". - Сколько раз встречается каждая буква.
Частотный анализ текста (символьный)
Разработать программу вычисления частот появления букв русского алфавита
0
Acheron1757
0 / 0 / 0
Регистрация: 16.05.2013
Сообщений: 4
16.05.2013, 11:43  [ТС] #6
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm1.Button1Click(Sender: TObject);
const
   EnglChars = ['A'..'Z','a'..'z'];
var A : array['A'..'z'] of integer;
  ch : char;
  SInput : string;
  i : integer;
begin
  // обнулим счётчики
  for ch:='A' to 'z' do A[ch] := 0;
 
  SInput := Memo1.Text; // возьмём текст для обработки из Memo
 
  // подсчитаем количество появлений для символов из строки SInput
  for i:=1 to Length(SInput) do
    if SInput[i] in EnglChars then
           inc( A[ SInput[i] ] );
 
  // выведем результаты в Memo2
  Memo2.Lines.Clear;
  for ch:='A' to 'z' do
    if A[ch] > 0 then
       Memo2.Lines.Append(' символ '+ch+' встречается '+IntToStr( A[ch] ) + ' раз ');
 
end;
куму интересно, вот подсчет символов
0
16.05.2013, 11:43
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2013, 11:43

Обработка текста
Появилась задумка, но незнаю, возможно ли это вообще сделать: Имеется текст,...

Обработка текста: вывести предложение с наименьшим количеством слов
Задание : "Дан массив строк(всего 8 строк). Необходимо написать процедуру,...

Обработка текста в делфи
Требуется определить все слова в тексте и подсчитать их количество.


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

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

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