Правильное окончание слова

[PaHaNjkee]

Писал программу, возникла проблема, написал функцию может кому-то нужна. Задает правильно окончание слову в зависимости от числа

function GetTrueEnd(i: integer; str1, str2, str3 : String): string;
begin
if (((i mod 10 = 1) and (i < 100)) and (i <> 11)) then result := str1
else if ((i > 1) and (i <5 )) or (((i mod 10 >= 2) and (i mod 10 <= 4)) and ((i mod 100 < 10) or (i mod 100 >= 20))) then result := str2
else result := str3;
end;

Использование:

GetTrueEnd(21,'день','дня','дней');

Вернёт: день

GetTrueEnd(44,'день','дня','дней');

Вернёт: дня

GetTrueEnd(58,'день','дня','дней');

Вернёт: дней

[Serge_Bliznykov]

есть косячок.. попробуйте для 111 (а также 211, 311 и т.д):

111 день

p.s. а на форуме такая задачка неоднократно решалась.. ну, разве что не так универсально
например - тыц

[PaHaNjkee]

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

есть косячок.. попробуйте для 111 (а также 211, 311 и т.д):


p.s. а на форуме такая задачка неоднократно решалась.. ну, разве что не так универсально
например - тыц

Исправил

[Serge_Bliznykov]

Исправил

опять не вышло..
101, 121, 131 и т.д.
у Вас 101 дней, правильно 101 день.


проверял своей функцией:

function getPadezStr(b : integer; strOdin, strDva, strPyt : String) : string;
var c: integer;
begin
  if b <= 0 then getPadezStr := strPyt
  else begin
    c := b mod 100;
    if (c >= 10) and (c <= 20) then getPadezStr := strPyt
    else
      case (b mod 10) of
        1: getPadezStr := strOdin;
        2..4: getPadezStr := strDva;
        5..9, 0: getPadezStr := strPyt;
      end;
  end;
end;

....
вызывать так же:
getPadezStr(i, 'день','дня','дней');

[Smitt&Wesson]

Ориентация на последнюю цифру не будет работать правильно.
Нужно брать две последние цифры в диапазоне 0 - 19.
Причём не важно, число меньше или больше 100.

Делим число на 100 и берём остаток от деления.
Проверяем, число больше 10 и меньше 20?
Если попадает в этот диапазон, то:
11 - 19 дней.
Иначе делим число на 10 и берём остаток: 0 дней, 1 день, 2 - 4 дня, 5 - 9 дней.
Вот и всё.
Проверяем:
121 % 100 = 21. 21 % 10 = 1. Получаем 121 день.
111 % 100 = 11. получаем 111 дней.

int b = dey % 100;
if(b > 10 && b < 20) rez = "дней";
else
{
 b = b % 10;
 switch(b)
   case 1: {rez = "день"; break;}
   case 2..4: {rez = "дня"; break;}
   case 5..9, 0: {rez = "дней";}
}

[Serge_Bliznykov]

Ориентация на последнюю цифру не будет работать правильно.

Полностью согласен.
Более того, в моём коде именно такой алгорим и реализован

А Вы собственно к чему это написали?
и в коде TC и в моём коде анализируется не одна последняя цифра.

Или Вы это написали, чтобы помочь разобраться всем, кто будет эту тему читать?..

[Smitt&Wesson]

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

Или Вы это написали, чтобы помочь разобраться всем, кто будет эту тему читать?..

Типа того. Просто развернул это в словарный алгоритм, ну и для сишников это может быть не безынтересно.

[PaHaNjkee]

Сообщение от Smitt&Wesson

Типа того. Просто развернул это в словарный алгоритм, ну и для сишников это может быть не безынтересно.

Я лишь просто решил поделится, вдруг кому-то пригодится. В моей программе больше 100 переменная быть не может, поэтому мой алгоритм лично мне подходит, ну а так естественно Ваш алгоритм на высоте