Помогите

← →
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[<сколько раз уже поделили>, <каков остаток от деления>].

Помогите Найти похожие ветки