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

nLenNum:=Length(nNum)

end

{выделям тысячи, десятки и сотни тысяч}

str1:=nNum[nLenNum-3]

str10:=nNum[nLenNum-4]

str100:=nNum[nLenNum-5]

IF NOT ((str1='0') AND (str10='0') AND (str100='0')) then

begin

strTh:=str0_999(str100,str10,str1,'Ж')

{выбираемпадежслова 'тысяча'}

IF (str1='1') AND (str10<>'1') then

strNTh:='тысяча'

ELSE

IF (str1 in ['1'..'4']) AND (str10<>'1') then

strNTh:='тысячи'

ELSE

strNTh:='тысяч'

strTh:=strTh+' '+strNTh

end

END

{********}

{если больше больше 999.999}

IF nLenNum>6 then

begin

{еслименьше 999.999.999}

IF nLenNum<9 then

begin

{добавляемпробелы}

nNum:=Squeeze('L',' ',9-nLenNum)+nNum