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

Пояснювальна записка до завдання на обчислювальну практику з дисципліни "Основи алгоритмізації та мови програмування "

Виконав: студент гр. 96 АЕ2 Ю. Ф. Фролкін

Пензенський державний технічний університет, Кафедра "Інформаційно -- обчислювальні системи "

1997

Пояснювальна записка містить 21 лист, 2 додатка , 2 джерела.

Об'єктом роботи є грошова сума в чекової книжці.

Метою роботи є розробка програми перетворення грошових сум у чековій книжці з формату чисел у словесний формат.

У результаті проведеної роботи була розроблена і налагоджена програма, здійснює введення користувачем грошової суми в числовому вигляді, перетворення та виведення на екран цієї суми в словесному форматі.

Програма написана на мові Turbo Pascal і призначена для експлуотаціі під управлінням операційної системи MS-DOS.

При розробці даної програми була використання бібліотека ТТТ, яка спростила як саму програму, так і процес її розробки.

Вступ

Зараз, на порозі ХХI століття, величезний вибір програм призначених для допомоги людині в різних сферах його діяльності.

Мною розроблена програма, яка автоматизує процес перетворення грошових сум у чековій книжці з формату чисел у словесний формат, що дозволить скоротити час, пов'язане з проставленням грошової суми у чековій книжці.

Розробка надає користувачеві можливості вводу грошової суми і миттєвого отримання на екрані персонального комп'ютера її словесного еквівалента.

Таким чином, створена програма має велике практичне значення в сфері бізнесу та банківської справи.

1 Аналіз вимог

Потрібно розробити програму, c допомогою якої можна здійснити перетворення грошових сум у чековій книжці з формату чисел у словесний формат.

Визначити доцільність використання при проектуванні даної задачі бібліотеки ТТТ.

2 Технічне завдання

2.1 Підстава для розробки

Підставою для розробки служить завдання на обчислювальну практику по курсу "Основи алгоритмізації і мови програмування ", видане на кафедрі ІТТ ПДТУ, доцентом А. В. Єременко, затверджене завідувачем кафедрою професором Е.К. Шахова.

2.2 Призначення розробки

Програма перетворення грошових сум у чекової книжці з формату чисел у словесний формат призначена для вводу користувачем грошової суми в числовому вигляді, перетворення та виведення на екран цієї суми в словесному форматі.

2.3 Вимоги до програми або програмному виробу

2.3.1 Вимоги до функціональних характеристик

Програма повинна виконувати такі функції:

а) виведення на екран вікна для запиту вихідної числовий суми

б) організація введення даних з відображенням їх на екрані і контролем введення нечислових символів, а також з можливістю видалення вже введених числових символів

в) переклад введеної суми в словесний формат

г) висновок введеної суми на екран у словесному форматі.

Вхідними даними для програми є число -- грошова сума, що вводиться користувачем з клавіатури.

Вихідними даними повинні бути словесне вираження, складене відповідно введеної користувачем грошової суми.

2.3.2 Вимоги до надійності:

Програма повинна працювати без переривань з програмних помилок, а саме:

а) При введенні нечислових символів, програма повинна виводити звуковий сигнал і не враховувати цей символ

б) При заповненні всього відведеного кількості символів (9 символів) і спробі введення наступного програма повинна ввести цей символ як останній - дев'ятим.

в) При виведенні отриманого словесного вираження програма повинна перенести цей вираз на наступний рядок екрана в тому випадку, якщо довжина словесного вираження більше ніж 60 символів.

2.3.3 Вимоги до складу і параметрів технічних засобів

Програма повинна бути призначена для використання на персональному комп'ютері типу IBM AT стандартній комплектації.

2.3.4 Вимоги до інформаційної та програмної сумісності

Програма повинна бути написана на мові Турбо-Паскаль 6.0 або вище. Для її функціонування на персональному комп'ютері повинна бути встановлена операційна система MS-DOS. В якості додаткових програмних коштів можуть використовуватися стандартні модулі Турбо-Паскаля. Повинна бути проаналізовано доцільність використання бібліотеки TTT.

2.4 Вимоги до програмної документації

Пояснювальна записка повинна містити такі програмні документи:

а) технічне завдання

б) опис програми

в) текст програми

г) програма і методика випробувань

д) опис застосування

е) результати тестування.

Правила оформлення і зміст цих програмних документів регламентовані стандартами еурд.

2.5 Порядок контролю та приймання

Для контролю правильності роботи програми повинні бути різні контрольні числові суми в яких повинні бути враховані різні можливі поєднання чисел, що відображають роботу всіх частин програми.

3 Опис методу рішення

Метод вирішення поставленого завдання полягає в послідовному перегляді введеної суми в числовому форматі, виділення в як рядки символів та перевірки кожної числової трійки:

1) одиниці, десятки і сотні

2) тисячі, десятки тисяч і сотні тисяч

3) мільйони, десятки і сотні мільйонів.

Кожна числова трійка (якщо вона є) перетворюється на відповідно до свого вмістом шляхом перегляду кожного елемента трійки і перетворення в словесний еквівалент з урахуванням відмінків.

Якщо в будь-якій з трійок не дістає кількості чисел , То замість них підставляються прогалини і аналізуються.

Потім отримані рядкові вирази складаються разом і виводяться на екран з урахуванням перенесення рядка, якщо вона цілком не вміщується на екрані.

4. Опис програми

4.1 Загальні дані

Розроблена програма має назву currency.exe. Програма написана на алгоритмічній мові Тurbo Pasca v. 6.0. , Її вихідний текст знаходиться у файлі currency.pas. Для її нормального функціонування на персональному комп'ютері повинна бути встановлена операційна система MS-DOS версії 3.0 або вище.

4.2 Функціональне призначення

Програма призначена для перетворення грошових сум у чековій книжці з формату чисел у словесний формат і здійснює введення користувачем грошової суми в числовому вигляді, перетворення та виведення на екран цієї суми в словесному форматі.

4.3 Опис логічної структури

Ця програма містить у собі необхідні процедури і функції з використанням стандартних модулів мови Turbo Pascal:

Сrt - модуль, що містить в собі функції, необхідні для роботи з екраном в текстовому режимі

Strings - модуль, функції якого забезпечують роботу зі рядковими змінними.

Так само при розробці програми для її спрощення були використані модулі з бібліотеки ТТТ: FastTTT5, StrnTTT, ReadTTT5, WinTTT5 , Які предазначени для спрощення процесу програмування при роботі з екраном, поцессом введення і виведення інформації.

На початку програми викликається функція модуля WinTTT5 -- СlearText, яка очищає задану область екрану і запролняет його заданим кольором.

Потім викликається фунуція модуля ReadTTT5 -- Read_Longint, яка малює на екрані рамку в заданих координатах і заданим розміром, виводить запрошення і організовує введення.

Після введення викликається функція ValToStr з параметром sum типу Longint - введена користувачем сума. Ця функція виконує переклад грошової суми з числового формату в словесний. Вона містить у собі кілька службових функцій:

Функція STR0_9 (n9, strS: char): String, де n9 -- грошова сума, що знаходиться в інтервалі значень від 0 до 9, strS - рід деннежной одиниці. Функція здійснює переказ грошової одиниці з числового формату в словесний на заданому інтервалі значень

Функція STR10_19 (n19: char): String, де n19 - грошова сума, що знаходиться в інтервалі значень від 10 до 19. Функція здійснює переклад грошової одиниці з числового формату в словесний на заданому інтервалі значень

Функція STR20_90 (n99: char): String, де n99 - грошова сума, що знаходиться в інтервалі значень від 20 до 90. Функція здійснює переклад грошової одиниці з числового формату в словесний на заданому інтервалі значень

Функція STR_Hund (nHund: char): String, де nHund -- сотенна частина грошової суми. Функція здійснює переклад цієї частини грошової одиниці з числового формату в словесний

Функція STR0_999 (strP_100, strP_10, strP_1, strSex: char): String, де strP_100 - сотенний елемент грошова суми, strP_10 - елемент десятків грошова суми, strP_1 -- елемент одиниць грошова суми, strSex - рід грошової едінци. Функція здійснює з'єднання в один рядок отриманих значень у словесному еквіваленті для частини грошової суми, яка знаходиться в інтервалі від 0 до 999.

Далі в основній програмі викликається фунуція модуля WinTTT5 - OffCursor, яка відключає зображення курсору на екрані.

Потім викликається фунуція модуля FastTTT5 - WriteAT, яка здійснює висновок заданого тексту потрібним кольором в задані координати екрану.

Наприкінці програми викликається фунуція модуля WinTTT5 -- Reset_StartUp_Mode, яка відновлює вихідний режим екрана.

4.4 Використані технічні засоби

Дана програма призначена для її ізпользованія на персональному комп'ютері типу IBM - PC стандартної конфігурації з мінімальним об'ємом оперативної пам'яті 640 К.

4.5 Виклик і завантаження

Для виклику програми на виконання необхідно з допомогою команд операційної системи комп'ютера зробити поточним каталог, в якому знаходиться файл cyrrency.exe і викликати його на виконання.

4.6 Вхідні дані

Вхідними даними є грошова сума в числовому форматі, сума, що вводиться користувачем з клавіатури.

4.7 Вихідні дані

Вихідними даними є грошова сума в словесному форматі, відображається програмою на екрані.

5. Програма і методика випробувань

5.1 Мета випробувань

Випробування мають на меті переконатися в правильності роботи програми перетворення грошових сум у чековій книжці з формату чисел у словесний формат.

5.2 Засоби і порядок випробувань

Для проведення випробувань необхідний персональний комп'ютер типу IBM - PC стандартної конфігурації, файл програми -- currency.exe, файли бібліотеки ТТТ. Для перевірки правильності роботи програми необхідно викликати на виконання файл currency.exe. Потім необхідно ввести всі можливі варіанти грошових сум, перевірити реакцію на введення нечислових даних.

5.3 Результати випробування

При запуску програми та перевірки її працездатності були отримані наступні результати:

При введенні числа 1 - Сума прописом: один рубль

При введенні числа 12 - Сума прописом: дванадцять рублів

При введенні числа 123 - Сума прописом: сто двадцять три рубля

При введенні числа 1234 - Сума літерами: тисяча двісті тридцять чотири рубля

При введенні числа 12345 - Сума прописом: дванадцять тисяч триста сорок п'ять рублів

При введенні числа 123456 - Сума прописом: сто двадцять три тисячі чотиреста п'ятьдесят-шість рублів

При введенні числа 1234567 - Сума прописом: один мільйон двісті тридцять чотири тисячі п'ятсот шістьдесят-сім рублів

При введенні числа 12345678 - Сума прописом: дванадцять мільйонів триста сорок п'ять тисяч шістсот сімдесят вісім рублів

При введенні числа 123456789 - Сума прописом: сто двадцать три миллиона чотиреста п'ятьдесят шість тисяч сімсот вісімдесят дев'ять рублів.

При введенні нечислових символів - букви "a" програма видала звуковий сигнал.

6 Опис застосування

Програма запускається звичайним чином з клавіатури персонального комп'ютера. Запускаємо файл називається 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.

Додаток В

(рекомендаційний)

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

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

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