Экспериментальная часть. 
Разработка прикладных программ с различным функционалом

Рисунок 3. Вывод прейскуранта.

Рисунок 4. Вывод прейскуранта с расчетом.

Часть 2

Постановка задачи

Задание № 42.

Заданное натуральное число, не превосходящее 1000, записать прописью, то есть вывести, соответствующее количественное числительное, например: 375 — «триста семьдесят пять».

Анализ данных и моделирование

Для создания программы мне понадобились девять переменных, пять из них целочисленного типа (cislo, j, ed, des, sot: integer) — для описания разрядности чисел и переменная j — вычисляет длину строки. Так же переменные четыре переменные строкового типа (s1, s10, s100, s: string) — для описания разрядности чисел и переменная s — для ввода строки пользователем. Помимо переменных мне понадобились четыре массива строкового типа — для вывода чисел прописью.

Массивы: программа листинг тестирование.

sotni: array [0.9] of string=('','сто','двести','триста','четыреста','пятьсот','шестьсот','семьсот','восемьсот','девятьсот'); //сотни.

desyatki: array [0.9] of string=('','десять','двадцать','тридцать','сорок','пятьдесят','шестьдесят','семьдесят','восемьдесят','девяносто');// десятки.

edenici: array [0.9] of string=('','один','два','три','четыре','пять','шесть','семь','восемь','девять');// единицы.

special: array [0.9] of string=('десять','одиннадцать','двенадцать','тринадцать','четырнадцать','пятнадцать','шестнадцать','семнадцать','восемнадцать','девятнадцать'); // //специальные числа.

Созданная мной программа записывает прописью введенные числа, не превосходящие 1000. Для ввода данных необходимо записать число в поле ввода (компонент Edit) и нажать на кнопку «Ввод». После нажатия на кнопку ниже появится соответствующее количественное числительное прописью.