Частотный словарь. - Паскаль, Turbo Pascal, PascalABC.NET

dixonich · 21.09.2012, 10:18

Добрый день. Нужно реализовать частотный словать (то есть у меня массив символов, надо подсчитать, сколько раз встречается каждый из них), но никак не получается.
Подскажите алгоритм ориентированный на Паскаль, пожалуйста.

Sciv · 21.09.2012, 10:29

Начиная с начала массива символов, перебором (1 цикл), считать каждый символ во втором цикле "пока не конец массива". Посчитанные символы помещать в множество и при переходе к каждому новому символу проверять, есть он в сете или нет (посчитан или не посчитан)

Sciv · 21.09.2012, 10:30

Цитата:

алгоритм ориентированный на Паскаль

Алгоритм - это алгоритм, последовательность действий. Он не может быть ориентирован на конкретную среду разработки или язык программирования... скорее как раз наоборот: алгоритм первичен по отношению к программе.

evg_m · 21.09.2012, 10:55

Цитата:

надо подсчитать, сколько раз встречается каждый из них

чтобы что-то считать нужно место для хранения подсчитанного.
Для частоты одного символа достаточно переменной.
Каждый из них (символов) Значит нужен массив частот.

В начале подсчетов у нас все количества =0. Значит задаем массиву частот (всем элементам) начальные значения =0.

Берем символ из исходного массива.
Определяем нужную ячейку в массиве частот.
Увеличиваем это значение на 1
переходим к следующему символу в исходной строке или заканчиваем подсчет.
Выводим результаты (значения элементов массива частот).

Sciv · 21.09.2012, 11:10

Цитата:

Определяем нужную ячейку в массиве частот.

А чего ее определять? Задать несколько массивов вида:

Код:

a1: array ['a'..'z'] of word;
a2: array ['A'..'Z'] of word;

и тд

Тогда надо будет определять только, в какой массив писать число.

BDA · 21.09.2012, 11:20

Да легче сразу задать массив для всех символов

a:array[0..255] of longint;
И делать inc(a[ord(c)]);

evg_m · 21.09.2012, 11:31

Цитата:

a1: array ['a'..'z'] of word;
a2: array ['A'..'Z'] of word;

Цитата:

a:array[0..255] of longint;
И делать inc(a[ord(c)]);

Это уже реализация алгоритма

, автор же просил исключительно алгоритм.

Цитата:

Подскажите алгоритм ориентированный на Паскаль

Sciv · 21.09.2012, 12:23

Цитата:

Это уже реализация алгоритма, автор же просил исключительно алгоритм.

Ну увлеклись, увлеклись

21.09.2012, 10:18	#1
dixonich Пользователь Регистрация: 11.10.2009 Сообщений: 79	Частотный словарь. Добрый день. Нужно реализовать частотный словать (то есть у меня массив символов, надо подсчитать, сколько раз встречается каждый из них), но никак не получается. Подскажите алгоритм ориентированный на Паскаль, пожалуйста. Последний раз редактировалось dixonich; 21.09.2012 в 10:21.

21.09.2012, 10:29	#2
Sciv Старожил Регистрация: 16.05.2012 Сообщений: 3,211	Начиная с начала массива символов, перебором (1 цикл), считать каждый символ во втором цикле "пока не конец массива". Посчитанные символы помещать в множество и при переходе к каждому новому символу проверять, есть он в сете или нет (посчитан или не посчитан) Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...

21.09.2012, 11:20	#6
BDA МегаМодератор СуперМодератор Регистрация: 09.11.2010 Сообщений: 7,291	Да легче сразу задать массив для всех символов a:array[0..255] of longint; И делать inc(a[ord(c)]); Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Частотный словарь текста (Си)	Taina	Помощь студентам	6	20.06.2012 11:55
Частотный словарь.	dixonich	Общие вопросы по Java, Java SE, Kotlin	5	19.09.2011 23:31
Java. Частотный словарь.	dixonich	Помощь студентам	1	17.09.2011 07:39
частотный словарь с#	OLGUNYA	C# (си шарп)	5	23.05.2011 14:50
частотный словарь в	sagitron	Microsoft Office Excel	11	07.01.2010 20:55