Довідник:одиниці вимірювання, система числення, час у різних країнах, Детальна інформація

for i := 1 to p do ResultStr[i]:= RadixChar[p-i+1];

// обернення стрічки

end;

end;

end.

3) unit UkrRecog;

{by Andrew Tkachenko, proektwo@netcity.ru, Ukraine}

// Перевід цілого числа в словесну форму

interface

Const

UkrMonthString : array[1..12] of string[9] = (

'січня', 'лютого', 'березня', 'квiтня', 'травня',

'червня', 'липня', 'серпня', 'вересня', 'жовтня',

'листопада','грудня');

Function UkrRecognizeAmount(Amount:real):string;

implementation

Uses Sysutils;

Function UkrRecognizeAmount(Amount:real):string;

{Распознается число <= 999 999 999 999.99*}

const suffBL:string=' ';

suffDCT:string='дцять';

suffNA:string='надцять ';

suffDCM:string='десят';

suffMZ:string='ь';

sot:string='сот';

st:string='ст';

aa:string='а';

ee:string='и'; {e}

ii:string='і'; {и}

oo:string='о';