Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c