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