Поиск реализации алгоритма склонения слов

[IGR]

Ищу реализацию алгоритма автоматического склонения слов в зависимости от количества !!
1 снеговик
2 снеговика
5 снеговиков
21 снеговик

[Tronix]

(с) google

var 
  n: integer;
  m: integer; ( остаток от деления n на 100 (последние две цифры) }
  r: integer; { остаток от деления n на 10 (последняя цифра) } 
begin
 ClrScr;
 Writeln('Введите целое число (от 1 до 999)');
 Readln(n);
 Write(n,' ');
  if n>100 then 
   m := n mod 100;
  if (m >= 11) and (m <= 14) then
   Writeln('рублей') else 
    begin
       r:=n mod 10; 
    case r of
    0, 5 .. 9: writeln('рублей');
    1: writeln ('рубль');  
    2..4: writeln ('рубля');
  end; 
 end; 
 readln; 
end. 


[SBJoker]

Ок, проверьте алгоритм на слове "ножницы" или "кофе"

[IGR]

действительно не так уж и много информации !!
класс для вывода суммы прописью, он же врод изменяет окончание в зависимости от количества http://rsdn.ru/article/files/dotnet/RusNumber.xml !!
Ну вообщем эта штука для бухгалтерей (бухгалтеров), и секретарок (секретарш) !! не подходит !!

вообще буду делать так:
всего нада 2-3-4 формы окончания в зависимости от количества !!
буду хранить эти слова в файле !! и в зависимости от числа выводить нужное !!

[Tronix]

Сообщение от SBJoker

Ок, проверьте алгоритм на слове "ножницы" или "кофе"

А в чем проблема? Я ваще без понятия как они склоняются. Думаю что "Нохницы ед число, Ножниц - мн. число" и "кофе" - ваще не склоняется.
Тоесть:
0 (ноль) ножниц
1 (одни) ножницы
2 (двое) ножниц
114 (сто четырнадцать) ножниц
121 (сто двадцать одни) ножницы

и

0 (ноль) кофе
1 (одно) кофе
5 (пять) кофе
112 (сто двенадцать) кофе

Разве не? Ну тогда вам на граммар.ру или как-то так )))