Разработка программы для преобразования денежных сумм в чековой книжке из формата чисел в словесный формат
Категория реферата: Рефераты по информатике, программированию
Теги реферата: курсовые и дипломные работы, реферат
Добавил(а) на сайт: Каллист.
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата
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
{добавляем недостающие пробелы}
Рекомендуем скачать другие рефераты по теме: реферат на тему предприятие, шпори скачать.
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата