Реферат: Разработка программы для преобразования денежных сумм в чековой книжке из формата чисел в словесный формат

{единицы, десятки, сотни}

nNum : String

{сумма в виде String}

nLenNum : Integer

{длина nNum}

{временные строки}

str99,strMld,strHun,strNOne,strTh,strNTh,strMln,strN_Mln : String

{*************** служебные функции ****************}

{перевод единиц,

n9 : число в символьном виде}

FUNCTION STR0_9(n9,strS:Char):String

begin

CASE n9 of

'1':IF strS='М' then str0_9:='один'

ELSE str0_9:='одна'

'2':IF strS='М' then str0_9:='два'

ELSE str0_9:='две'

'3': str0_9:='три'

'4': str0_9:='четыре'

'5': str0_9:='пять'

'6': str0_9:='шесть'

'7': str0_9:='семь'

'8': str0_9:='восемь'

'9': str0_9:='девять'

END

end

{str0_9}

{перевод второго десятка,

n19 : число в символьном виде}