Глава 2. Описание программы «Калькулятор для обработки арифметических операций с бесконечной точностью»
Постановка задачи
Название задачи.
Название приложения - «Калькулятор».
Название программы (главного модуля приложения) – Calculator.
Система программирования – Delphi.
Системные требования: ОС Windows/98/ME/2000/XP,
Pentium II/Ш/4, ОЗУ 64 Мб, Delphi 5/6/7.
Описание.Поставленная задача является ярким примером использование алгоритмов с применением условных операторов с одной ветвью (с применением If (условие) Then).
Входные данные.Любые числа представленные в виде вещественного типа данных, положительные и отрицательные.
Выходные данные.Числа вещественного типа данных.
Функциональная и логическая структура программы
Рисунок 13 – структурная диаграмма программы
Алгоритм реализации проекта
TForm1.Button1Click
procedure TForm1.b1Click(Sender: TObject);
var
a, b, rez : real;
begin
a := StrToFloat(e1.Text); {значение переменной а вводится с
клавиатуры в поле Edit с именем e1}
b := StrToFloat (e2.Text); {значение переменной b вводится с
клавиатуры в поле Edit с именем e2}
if r1.Checked = True then
rez := a + b; {если выбран RadioBox под именем r1, то
переменная rez принимает значение суммы a и b}
if r2.Checked = True then
rez := a - b; {если выбран RadioBox под именем r2, то
переменная rez принимает значение разности a и b}
if r3.Checked = True then
rez := a * b; {если выбран RadioBox под именем r3, то
переменная rez принимает значение произведени a и b}
if r4.Checked = True then
rez := a / b; {если выбран RadioBox под именем r4, то
переменная rez принимает значение частного a и b}
l1.Caption := FloatToStr(rez); {вывести в поле Lable с именем l1
значение переменной rez}
end
Описание руководства пользователя
Данная программа предназначена для выполнения математических вычислений, имитируя действия калькулятора.
Инструкция для пользователей:
1. Запустите файл Калькулятор.exe
2. В поля с надписями «введите первое число» и «введите второе число» введите с клавиатуры требуемые числа для произведения действия.
3. Выберете требуемое действие установив маркер кликом левой клавиши мышки по белому кругу возле надписи с требуемым действием.
4. Кликните левой клавишей мышки на кнопку «выполнить действие».
5. Результат вычислений появится в поле «ответ».
Требования к функциональным характеристикам
Использование два поля для ввода операторов и одно для вывода результата. Расширенный набор действий: вычисление тригонометрических функций, возведение в степень, факториал, экспонента и т.п. Использование различных типов переменных. Вывод сообщений при делении на нуль, извлечении корня из отрицательного числа, а также вычислении логарифма отрицательного числа и т.д.
ЗАКЛЮЧЕНИЕ
Целью данной работы являлось создание программного продукта «Калькулятор для обработки арифметических операций с бесконечной точностью» с удобным интерфейсом и набором элементарных арифметических функций.
Программный продукт реализован на языке программирования Delphi.
Задачи, поставленные в работе, были выполнены.
Создан программный продукт «калькулятор», осуществляющий отображение на экран введенные данные и результат вычислений. Программный продукт является автономно запускающимся приложением на операционных системах линейки Windows
1. Разработанное Windows-приложение соответствует требованиям задания на курсовое проектирование.
2. Размер исполнимого файла составляет 379 килобайт.
3. Для более простого поиска программы на рабочем столе, можно нарисовать простой ярлык вызывающий ассоциацию с калькулятором, например как на рисунке 15.
Рисунок 16 – Пример ярлыка
4. Калькулятор можно оснастить клавишами для ввода цифр при помощи кликов мыши, а так же заменить элементы RadioBox на кнопки, однако это приведет к усложнению программы и значительному увеличению программного кода, что соответственно приведет к увеличению затрачиваемого времени на создание программы.
СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ
1. Гагарин, Л.Г. Основы технология разработки программного обеспечения: учеб. пособие для студ. среднего проф. образования /Л.Г. Гагарин. – М.: Форум - Инфа, 2006. – 252 с.
2. Гагарин, Л.Г. Технология разработки программных продуктов: учеб. пособие для студ. среднего проф. образования /Л.Г. Гагарин., Е.В. Кокорев, Б.Д.. Виснадул. – М.: Форум - Инфа, 2008. – 465 с.
3. Голицын О.Л., Партыко Г.Л., Попов И.И. Программное обеспечение. – М.: Форум - Инфа, 2006. – 784 с.
4. Основы теории коммуникации: учебник / М.А. Василик, М.С. Вершинин, В.А. Павлов / под ред. проф. М.А. Василика. – М.: Гардарики, 2006. – 615 с.
5. ГОСТ 7.1-2003 Библиографическая запись. Библиографическое описание. Общие требования и правила составления. – Введ. 2004-01-07. – М. : Издательство стандартов, 2004. – 156 с.
6. Боголюбов, А. Н. О вещественных резонансах с неоднородным заполнением / А. Н. Боголюбов, А. Л. Делицын, М. Д. Малых // Вест. Моск. ун-та. Сер. 3. Физика. Астрономия. – 2002. - № 5. – С. 23-25.
7. Большая энциклопедия Кирилла и Мефодия [Электронный ресурс] / 2 электрон. опт. диска (СD-ROM) : зв. цв. – 5-е изд. – Электрон. текст дан. – М.: Большая Российская энциклопедия, 2003.
8. Исследовано в России [Электронный ресурс] : многопредмет. науч. журн. / Моск. физ.-техн. ин-т. – Электрон. журн. – Долгопрудный : МФТИ, 1998. – Режим доступа к журн. : http: // zhurnal. mipt.rssi.ru / - Загл. с экрана. – N гос. регистрации 03299000013.
Приложение А
Размещено на
Приложение Б
Текст программы.
TForm1.Button1Click
procedure TForm1.b1Click(Sender: TObject);
var
a, b, rez : real;
begin
a := StrToFloat(e1.Text); {значение переменной а вводится с
клавиатуры в поле Edit с именем e1}
b := StrToFloat (e2.Text); {значение переменной b вводится с
клавиатуры в поле Edit с именем e2}
if r1.Checked = True then
rez := a + b; {если выбран RadioBox под именем r1, то
переменная rez принимает значение суммы a и b}
if r2.Checked = True then
rez := a - b; {если выбран RadioBox под именем r2, то
переменная rez принимает значение разности a и b}
if r3.Checked = True then
rez := a * b; {если выбран RadioBox под именем r3, то
переменная rez принимает значение произведени a и b}
if r4.Checked = True then
rez := a / b; {если выбран RadioBox под именем r4, то
переменная rez принимает значение частного a и b}
l1.Caption := FloatToStr(rez); {вывести в поле Lable с именем l1
значение переменной rez}
end;