VPF::Алгоритм склонения числительных

Сый

Дата 16.2.2006, 13:33 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 131
Регистрация: 23.1.2006

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

Здесь я решил показать алгоритм склонения числительных (простой, но может кому-нибудь пригодится, на Глаголе):

Код


ЗАДАЧА СклонениеЧ(Число:ЦЕЛ; сл1,сл2,сл3:РЯД ИЗ ЗНАК); 
УКАЗ 
  Вывод.ЧЦел("%d ",Число,0,0,0); 
  ЕСЛИ (Число ОСТАТОК 100 >= 5) И (Число ОСТАТОК 100 <= 20) ТО Вывод.Цепь(сл3) 
  ИНАЧЕ 
    ЕСЛИ Число ОСТАТОК 10 = 1 ТО Вывод.Цепь(сл1) 
    АЕСЛИ (Число ОСТАТОК 10 >= 2) И (Число ОСТАТОК 10 <= 4) ТО Вывод.Цепь(сл2) 
    ИНАЧЕ Вывод.Цепь(сл3) 
    КОН; 
  КОН; 
КОН СклонениеЧ;

Для использования вызываем эту задачу, например, с такими параметрами:

Код


СклонениеЧ(4,"час","часа","часов");

В результате на экран выйдет "4 часа". Всё-таки не всегда приятно видеть строки типа "2 часов" или "1 дней".
Эту задачу можно использовать как в Глаголе, так и в Паскале, Обероне, Делфи и др. Однако, думаю, переделать её под C++ или что-то другое не составит никакого труда.

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

Язык программирования, родственный языкам Паскаль и Оберон, использующий русские служебные слова - Глагол: http://glagol.nad.ru

Akina

Дата 16.2.2006, 14:33 (ссылка)

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

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

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

А на Рапире то же не напишешь? smile

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

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

SoWa

Дата 16.2.2006, 20:13 (ссылка)

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

Загрузка ...

Харекришна

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

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

Посмотри в DRKB алгоритм на Паскале.

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

Всем добра smile

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