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

END

end

{str20_90}

{перевод сотен,

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

FUNCTION STR_Hund(nHund:Char):String

begin

str_Hund:=''

CASE nHund of

'1': str_Hund:='сто'

'2': str_Hund:='двести'

'3': str_Hund:='триста'

'4': str_Hund:='четыреста'

'5': str_Hund:='пятьсот'

'6': str_Hund:='шестьсот'

'7': str_Hund:='семьсот'

'8': str_Hund:='восемьсот'

'9': str_Hund:='девятьсот'

END

end

{str_Hund}

{составление строки из единиц, десятков и сотен}

FUNCTION Str0_999(strP_100,strP_10,strP_1,strSex:Char):String

var

Str100: String

begin

IF ((strP_100=' ') OR (strP_100='0')) then

str100:=''

ELSE