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

end

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

str1:=nNum[nLenNum]

str10:=nNum[nLenNum-1]

str100:=nNum[nLenNum-2]

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

begin

{переводим в словесный формат сотни}

strHun:=str0_999(str100,str10,str1,strSex)

{выбираем 'рубль', 'рубля' или 'рублей'}

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

strNOne:=strUnit1

ELSE

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

strNOne:=strUnit2

ELSE

strNOne:=strUnitM

strHun:=strHun+' '+strNOne

end

ELSE

strHun:=strUnitM

{********}

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

IF nLenNum>3 then

begin

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

IF nLenNum<6 then

begin

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