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

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

{********}

{удаляем пробелы из строки миллионов}

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

IF Length(strMln)>0 then

strMln:=strMln+' '

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

{удаляем пробелы из строки тысяч}

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

IF Length(strTh)>0 then

strTh:=strTh+' '

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

{удаляем пробелы из строки сотен}

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

{складываем строки миллионов, тысяч и сотен в одну строку}

Tmp_Prop:=strMln+strTh+strHun

{переводим первый символ полученной строки в верхний регистр}

Tmp_Prop[1]:=UpCase(Tmp_Prop[1])

{возвращаем итоговую строку}

ValToStr:=Tmp_Prop

end

{ValToStr}

{*********** MAIN ***********}

Begin

Str1:=''

Str2:=''

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

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