Помогите
Axtazi © (2009-11-21 13:22:00)
Как в delphi написать программу которая числа писала бы
прописью...Например 125- сто двадцать пять
0x00FF00 (2009-11-21 13:54:00) [1]
function o_0(n: integer): string;
const
a: array [1..3, 0..9] of string =
(('', 'один', 'два', 'три', 'четыре', 'пять', 'шесть',
'семь', 'восемь', 'девять'),
('', 'десять', 'двадцать', 'тридцать', 'сорок',
'пятьдесят', 'шестьдесят', 'семьдесят', 'восемьдесят',
'девяносто'),
('', 'сто', 'двести', 'триста', 'четыреста',
'пятьсот', 'шестьсот', 'семьсот', 'восемьсот', 'девятьсот'));
begin
...
end;
Подскажу немного.
Нужно "разбирать" число по разрядам, последовательно деля на
10 и узнавая остаток от этого деления.
Затем нужно просто дописать в начало строки-результата
элемент массива
a[<сколько раз уже поделили>, <каков остаток от
деления>].
Наверх 
ЧАТ |
Орешник |
|
