Форум: "Основная";
Текущий архив: 2011.07.03;
Скачать: [xml.tar.bz2];
Вниз
Помогите Найти похожие ветки
← →
Axtazi © (2009-11-21 13:22) [0]Как в delphi написать программу которая числа писала бы прописью...Например 125- сто двадцать пять
← →
0x00FF00 (2009-11-21 13:54) [1]
function o_0(n: integer): string;
const
a: array [1..3, 0..9] of string =
(("", "один", "два", "три", "четыре", "пять", "шесть", "семь", "восемь", "девять"),
("", "десять", "двадцать", "тридцать", "сорок", "пятьдесят", "шестьдесят", "семьдесят", "восемьдесят", "девяносто"),
("", "сто", "двести", "триста", "четыреста", "пятьсот", "шестьсот", "семьсот", "восемьсот", "девятьсот"));
begin
...
end;
Подскажу немного.
Нужно "разбирать" число по разрядам, последовательно деля на 10 и узнавая остаток от этого деления.
Затем нужно просто дописать в начало строки-результата элемент массива a[<сколько раз уже поделили>, <каков остаток от деления>].
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2011.07.03;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.005 c
