VPF::Подсчет символов - Форум программистов

litis

Дата 16.4.2008, 11:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 15.4.2008
Где: Кривой Рог

Репутация: нет
Всего: нет

Помогите решить, уже голова пухнет от этой задачи smile

!
Определить какие символы и сколько раз встречаются в тексте.

Sartorius

Дата 16.4.2008, 12:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1568
Регистрация: 18.7.2006
Где: Ivory tower

Репутация: нет
Всего: 37

Код


var cout : array[0..255] of integer;
...
for I:= 1 to Length(Str) do
 inc(count[ord(Str[I])]);

volvo877

Дата 16.4.2008, 17:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Даже проще:

Код


var cout : array[#0..#255] of integer;
...
for I:= 1 to Length(Str) do inc(count[Str[I]]);

MetalFan

Дата 16.4.2008, 22:33 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: нет
Всего: 128

и чем проще?)

--------------------

There are always someone smarter than you...

volvo877

Дата 16.4.2008, 22:44 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Тем, что не надо приводить к Integer-у, поскольку все равно работаем с Char-ами в конечном итоге (ну вот так получилось, что элемент строки в Паскале - не Integer, а Char, что уж поделаешь)...

А лишние действия в программе - зло...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »