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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: курсовые и дипломные работы, реферат
| Добавил(а) на сайт: Каллист.

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

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

Рекомендуем скачать другие рефераты по теме: реферат на тему предприятие, шпори скачать.

Claw.ru | Рефераты по информатике, программированию | Разработка программы для преобразования денежных сумм в чековой книжке из формата ч