45836 (665180), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

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

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

Применённая при разработке программы библиотека ТТТ упростила работу программиста , увеличила простоту и надёжность работы программы.

Применение этой программы возможно на IBM - совместимых компьютерах , где установлена система MS - DOS и оснащённых любым видеоадаптером , поддерживающем текстовый режим 80х25 символов.

Список литературы

1. Шахов Э.К. Разработка и документирование программ. Методические ука зания к курсовой работе по программированию. -Пенза : Изд-во Пенз.гос.техн.ун-та,1994. - 59 с.,ил. 8 , табл. 6., библиогр.8 назв.

2. Сергиевский М.В., Шалашов А.В. Турбо Паскаль 7.0 язык, среда программирования. -М: Машиностроение.-1994,-254 с.ил.

Листинг программы

{Преобразование денежных сумм из числового формата в словесный}

Program Currency

Uses Strings, Crt, FastTTT5, StrnTTT5, ReadTTT5, WinTTT5

Const

{Денежные единицы}

strUnit1 : String='рубль'

strUnit2 : String='рубля'

strUnitM : String='рублей'

{Род денежной единицы

М : мужской

Ж : женский}

strSex : Char='М'

var

ch : Char

Sum : LongInt

{Сумма в числовом формате}

Str1, Str2, Prop : String

{сумма в словесном формате}

Index : Byte

{для разбиения 'Prop' на две строки,

если 'Prop' длиннее 60 символов}

{Переводит денежную сумму из числового формата в словесный}

FUNCTION ValToStr(nSumNum:LongInt):String

var

Tmp_Prop :String

str1,str10,str100 : Char

{единицы, десятки, сотни}

nNum : String

{сумма в виде String}

nLenNum : Integer

{длина nNum}

{временные строки}

str99,strMld,strHun,strNOne,strTh,strNTh,strMln,strN_Mln : String

{*************** служебные функции ****************}

{перевод единиц,

n9 : число в символьном виде}

FUNCTION STR0_9(n9,strS:Char):String

begin

CASE n9 of

'1':IF strS='М' then str0_9:='один'

ELSE str0_9:='одна'

'2':IF strS='М' then str0_9:='два'

ELSE str0_9:='две'

'3': str0_9:='три'

'4': str0_9:='четыре'

'5': str0_9:='пять'

'6': str0_9:='шесть'

'7': str0_9:='семь'

'8': str0_9:='восемь'

'9': str0_9:='девять'

END

end

{str0_9}

{перевод второго десятка,

n19 : число в символьном виде}

FUNCTION STR10_19(n19:Char):String

begin

str10_19:=''

CASE n19 of

'0': str10_19:='десять'

'1': str10_19:='одиннадцать'

'2': str10_19:='двенадцать'

'3': str10_19:='тринадцать'

'4': str10_19:='четырнадцать'

'5': str10_19:='пятнадцать'

'6': str10_19:='шестнадцать'

'7': str10_19:='семнадцать'

'8': str10_19:='восемнадцать'

'9': str10_19:='девятнадцать'

END

end

{str10_19}

{перевод десятков,

n99 : число в символьном виде}

FUNCTION STR20_90(n99:Char):String

begin

str20_90:=''

CASE n99 of

'2': str20_90:='двадцать'

'3': str20_90:='тридцать'

'4': str20_90:='сорок'

'5': str20_90:='пятьдесят'

'6': str20_90:='шестьдесят'

'7': str20_90:='семьдесят'

'8': str20_90:='восемьдесят'

'9': str20_90:='девяносто'

END

end

{str20_90}

{перевод сотен,

nHund : число в символьном виде}

FUNCTION STR_Hund(nHund:Char):String

begin

str_Hund:=''

CASE nHund of

'1': str_Hund:='сто'

'2': str_Hund:='двести'

'3': str_Hund:='триста'

'4': str_Hund:='четыреста'

'5': str_Hund:='пятьсот'

'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

str100:=str100+' '

Str0_999:=Strip('B',' ',str100+str99)

end

{***************** ValToStr *********************************}

Begin

{функция из StrnTTT5-переводит целое число в строку}

nNum:=Int_To_Str(nSumNum)

{функция из StrnTTT5-удаляет из строки символы,

(откуда удалять, что удалять, строка)}

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

nLenNum:=length(nNum)

{вычисляем длину}

strHun:=''

strTh:=''

strMln:=''

{если сумма меньше 100}

IF nLenNum<3 then

begin

{функция из StrnTTT5-добавляем слева несколько пробелов}

nNum:=Squeeze('L',' ',3-nLenNum)+nNum

nLenNum:=Length(nNum)

end

{выделяем единицы, десятки и сотни}

str1:=nNum[nLenNum]

str10:=nNum[nLenNum-1]

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

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

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

{если меньше 999.999.999}

IF nLenNum<9 then

begin

{добавляем пробелы}

nNum:=Squeeze('L',' ',9-nLenNum)+nNum

nLenNum:=Length(nNum)

END

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

str1:=nNum[nLenNum-6]

str10:=nNum[nLenNum-7]

str100:=nNum[nLenNum-8]

IF NOT ((str1='0') AND (str10='0') AND (str100='0')) then

begin

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

strMln:=str0_999(str100,str10,str1,'M')

IF (str1='1') AND (str10<>'1') then

strN_Mln:='миллион'

ELSE

IF (str1 in ['1'..'5']) AND (str10<>'1') then

strN_Mln:='миллиона'

ELSE

strN_Mln:='миллионов'

strMln:=strMln+' '+strN_Mln

END

END

{********}

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

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:=''

clrscr

{функция из WinTTT5-очищаем экран от текста}

ClearText(1,1,80,25,White,Blue)

{функция из ReadTTT5-считываем длинное целое, допустимые значения 0-999999999

(столбец, строка, длина поля ввода, приглашение, тип рамки,

минимальное значение, максимальное значение)}

Read_LongInt(25,10,9,'Введите число : ',4,Sum,0,999999999)

{переводим из числового формата в символьный}

Prop:=ValToStr(sum)

{функция из WinTTT5-отключаем курсор}

OffCursor

Index:=61

{максимальная длина строки для вывода на экран}

{функция из FastTTT5-выводим текст в нужном месте

(столбец, строка, цвет текста, фон, текст)}

WriteAt(2,14,Yellow,Blue,'Сумма прописью : ')

{если символьная строка длиннее 60 символов}

if Length(Prop)>60 then

begin

{ищем слева от 60-го символа первый пробел}

repeat

dec(Index)

until Prop[Index]=' '

{выделяем левую часть символьной строки (до 60-го символа)}

Str1:=Squeeze('L',Prop,Index)

{выделяем правую часть символьной строки (после 60-го символа)}

Str2:=Squeeze('R',Prop,Length(Prop)-Index+1)

{выводим левую часть}

WriteAt(19,14,White,Blue,Str1)

{выводим правую часть}

WriteAt(19,15,White,Blue,Str2)

end

else {выводим символьную строку полностью}

WriteAt(19,14,White,Blue,Prop)

{ждем нажатия клавиши}

ch:=readkey

{функция из WinTTT5-восстанавливаем исходный режим экрана}

Reset_StartUp_Mode

end.

Приложение В

( рекомендательное )

Результаты тестирования программы

Список литературы

Для подготовки данной работы были использованы материалы с сайта http://kurslab.chat.ru/

Характеристики

Список файлов реферата