1C Программирование и поддержка - [48] :: Прикладное программирование

super_yuri
Цитата:

2. а можно по подробней.

пишем функцию
Код:

Функция _Формат (Чис)
    сз = СоздатьОбъект("СписокЗначений");
    сз.добавитьЗначение("Одном");
    сз.добавитьЗначение("Двух");
    сз.добавитьЗначение("Трёх");
    сз.добавитьЗначение("Четырёх");
    сз.добавитьЗначение("Пяти");
    сз.добавитьЗначение("Шести");
    сз.добавитьЗначение("Семи");
    сз.добавитьЗначение("Восьми");
    сз.добавитьЗначение("Девяти");
    сз.добавитьЗначение("Одной");
    сз.добавитьЗначение("Двух");
    сз.добавитьЗначение("Десяти");
    сз.добавитьЗначение("Одиннадцати");
    сз.добавитьЗначение("Двенадцати");
    сз.добавитьЗначение("Тринадцати");
    сз.добавитьЗначение("Четырнадцати");
    сз.добавитьЗначение("Пятнадцати");
    сз.добавитьЗначение("Шестнадцати");
    сз.добавитьЗначение("Семнадцати");
    сз.добавитьЗначение("Восемнадцати");
    сз.добавитьЗначение("Девятнадцати");
    сз.добавитьЗначение("Двадцати");
    сз.добавитьЗначение("Тридцати");
    сз.добавитьЗначение("Сорока");
    сз.добавитьЗначение("Пятидесяти");
    сз.добавитьЗначение("Шестидесяти");
    сз.добавитьЗначение("Семидесяти");
    сз.добавитьЗначение("Восьмидесяти");
    сз.добавитьЗначение("Девяносто");
    сз.добавитьЗначение("Стах");
    сз.добавитьЗначение("Двухстах");
    сз.добавитьЗначение("Трёхстах");
    сз.добавитьЗначение("Четырёхста");
    сз.добавитьЗначение("Пятисот");
    сз.добавитьЗначение("Шестистах");
    сз.добавитьЗначение("Семистах");
    сз.добавитьЗначение("Восьмистах");
    сз.добавитьЗначение("Девятистах");
    сз.добавитьЗначение("Тысяче");
    сз.добавитьЗначение("Тысячах");
    сз.добавитьЗначение("Тысячах");
    сз.добавитьЗначение("Миллионе");
    сз.добавитьЗначение("Миллионов");
    сз.добавитьЗначение("Миллионов");
    сз.добавитьЗначение("Миллиарде");
    сз.добавитьЗначение("Миллиардах");
    сз.добавитьЗначение("Миллиардов");
    сз.добавитьЗначение("Триллионе");
    сз.добавитьЗначение("Триллионах");
    сз.добавитьЗначение("Триллионов");
    сз.добавитьЗначение("Ноле");
    сзз = СоздатьОбъект("СписокЗначений");
    сзз.ДобавитьЗначение("");
    сзз.ДобавитьЗначение(сз);

    Пропись(сзз);
    стр = Формат(Чис, "ЧП");
    Пропись("");
    Возврат стр;
КонецФункции

- вызов её
Код:

Для н = 1 по 1000 Цикл
        Сообщить(""+_формат(н));

    КонецЦикла;

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

----------
Век живи - век учись!

Модерирует : ShIvADeSt
ShIvADeSt (30-10-2009 09:51): http://forum.ru-board.com/topic.cgi?forum=33&topic=10715	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101