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

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

'6': str_Hund:='шестьсот'

'7': str_Hund:='семьсот'

'8': str_Hund:='восемьсот'

'9': str_Hund:='девятьсот'

END

end

{str_Hund}

{составление строки из единиц, десятков и сотен}

FUNCTION Str0_999(strP_100,strP_10,strP_1,strSex:Char):String

var

Str100: String

begin

IF ((strP_100=' ') OR (strP_100='0')) then

str100:=''

ELSE

str100:=Str_Hund(strP_100)

IF ((strP_10=' ') OR (strP_10='0')) then

str99:=Str0_9(strP_1,'М')

ELSE

IF strP_10='1' then

str99:=Str10_19(strP_1)

ELSE

str99:=Str20_90(strP_10)+' '+str0_9(strP_1,'M')

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

IF length(str100)>0 then

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

Предыдущая страница реферата | 4 5 6 7 8 9 10 11 12 13 14 | Следующая страница реферата

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