Для проведения испытаний необходим персональный компьютер типа IBM - PC стандартной конфигурации, файл программы - currency.exe, файлы библиотеки ТТТ. Для проверки правильности работы программы необходимо вызвать на выполнение файл currency.exe. Затем необходимо ввести все возможные варианты денежных сумм, проверить реакцию на ввод нечисловых данных.
Результаты испытания
При запуске программы и проверки её работоспособности были получены следующие результаты:
При вводе числа 1 - Сумма прописью: один рубль
При вводе числа 12 - Сумма прописью: двенадцать рублей
При вводе числа 123 - Сумма прописью: сто двадцать три рубля
При вводе числа 1234 - Сумма прописью: одна тысяча двести тридцать четыре рубля
При вводе числа 12345 - Сумма прописью: двенадцать тысяч триста сорок пять рублей
При вводе числа 123456 - Сумма прописью: сто двадцать три тысячи четыреста пятьдесят шесть рублей
При вводе числа 1234567 - Сумма прописью: один миллион двести тридцать четыре тысячи пятьсот шестьдесят семь рублей
При вводе числа 12345678 - Сумма прописью: двенадцать миллионов триста сорок пять тысяч шестьсот семьдесят восемь рублей
При вводе числа 123456789 - Сумма прописью: сто двадцать три миллиона четыреста пятьдесят шесть тысяч семьсот восемьдесят девять рублей.
При вводе нечислового символа - буквы "a" программа выдала звуковой сигнал.
Описание применения
Программа запускается обычным образом с клавиатуры персонального компьютера. Запускаемый файл называется currency.exe.
Программа currency.exe запускается из опереционной системы MS-DOS или из оболочки Norton Commander.
После запуска программы на экране появляется окно для ввода денежной суммы в числовом формате.
Диапазон входной информации равен от 0 до 999999999 рублей.
Окончанием ввода денежной суммы служит нажатие пользователем клавиши Enter.
В качестве результата программа выводит на экран словесный эквивалент введённой пользователем денежной суммы.
Заключение
В результате проделанной работы была разработана программа преобразования денежных сумм в чековой книжке из формата чисел в словесный формат. Данная программа может выполнять задачу узкого профиля и обладает удобным интерфейсом.
Разработка предоставляет возможность пользователю за короткое время получить словесный эквивалент от исходной денежной суммы.
Применённая при разработке программы библиотека ТТТ упростила работу программиста, увеличила простоту и надёжность работы программы.
Применение этой программы возможно на 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.
Приложение В
(рекомендательное)
Результаты тестирования программы
Список литературы
Для подготовки данной работы были использованы материалы с сайта https://kurslab.chat.ru/