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

end ;

end .

3) unit UkrRecog;

{by Andrew Tkachenko, [email protected], 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='о';

ov:string='ів';{ов}

C2:string='дв';