Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.07.03;
Скачать: 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 вся ветка

Текущий архив: 2011.07.03;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
15-1300133801
tesseract
2011-03-14 23:16
2011.07.03
аквариум


2-1301387189
ZV
2011-03-29 12:26
2011.07.03
Как вывести значение переменной в виде символа


1-1258707280
4el0vek
2009-11-20 11:54
2011.07.03
TStreamReader | TStream | Проблема с чтением потока


2-1300958713
Дмитрий С
2011-03-24 12:25
2011.07.03
Есть какие нибудь известные грабли Graphics и много-поточности.


2-1301090452
Aleks
2011-03-26 01:00
2011.07.03
Как выводить окно "Что нового?"?