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

END

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

str1:=nNum[nLenNum-6]

str10:=nNum[nLenNum-7]

str100:=nNum[nLenNum-8]

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

begin

{выбираем падеж слова миллион}

strMln:=str0_999(str100,str10,str1,'M')

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

strN_Mln:='миллион'

ELSE

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

strN_Mln:='миллиона'

ELSE

strN_Mln:='миллионов'

strMln:=strMln+' '+strN_Mln

END

END

{********}

{удаляем пробелы из строки миллионов}

strMln:=Strip('B',' ',strMln)

IF Length(strMln)>0 then

strMln:=strMln+' '

{добавляем справа один пробел}

{удаляем пробелы из строки тысяч}

strTh:=Strip('B',' ',strTh)

IF Length(strTh)>0 then

strTh:=strTh+' '