Программирование в Delphi математических процессов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
и - введённые числа.
В приложении должно быть:
три метки (Label)
два поля редактирования (Edit) для ввода чисел и , по умолчанию в полях должны быть нули
шесть кнопок (+, -, *, /, , Выход)
при нажатии оной из кнопок (кроме кнопки Выход) должно отображаться диалоговое окно с результатом действия
при нажатии на кнопку Выход приложение должно завершать свою работу
Расположите компоненты как показано на рисунке и измените их свойства:
Вычисление результатов арифметических операций можно организовать разными способами. В простейшем случае можно написать команду прямо в процедуре по обработке события, связанного с нажатием соответствующей кнопки, а можно написать отдельную процедуру или функцию для нахождения искомой величины, а затем вызвать её из тела процедуры, принадлежащей соответствующей кнопке.
В тексте программы для нахождения суммы написаны и процедура и функция, но используется только процедура, а команда, вызывающая функцию, и команда, вычисляющая сумму без использования подпрограмм, закомментированы.
Текст файла Unit1.pas
Unit1;
а Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,а Dialogs, StdCtrls;= class(TForm): TEdit;: TEdit;: TLabel;: TLabel;: TLabel;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;Button1Click(Sender: TObject);Button2Click(Sender: TObject);Button3Click(Sender: TObject);Button4Click(Sender: TObject);Button5Click(Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;, y, res1 : integer;: real;
{$R *.dfm}Summa(a,b : integer; var c : integer);:= a+b;;Sum(a,b : integer): integer;:= a+b;;factorial(x : integer): integer;x=1 then factorial := 1factorial := x*factorial(x-1);;TForm1.Button1Click(Sender: TObject);
аx := StrToInt(Edit1.Text);:= StrToInt(Edit2.Text);(x,y,res1);
//res1 := x + y;
//res1 := Sum(x,y);(IntToStr(res1),300,200);;TForm1.Button2Click(Sender: TObject);:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text);:= x - y;(IntToStr(res1),300,200);
end;
procedure TForm1.Button3Click(Sender: TObject);:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text);:= x * y;(IntToStr(res1),300,200);;TForm1.Button4Click(Sender: TObject);:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text);:= x / y;(FloatToStr(res2),300,200);;TForm1.Button5Click(Sender: TObject);:= StrToInt(Edit1.Text); y:= StrToInt(Edit2.Text);:= Sum(x,y);(FloatToStr(factorial(res1)),300,200);
end;.
Таким образом, рассмотрены особенности решения простейших математических задач на объектно-ориентированном языке программирования Delphi.
Гава 3. Процесс разработки программы
.1 Постановка задачи
Перед разработчиком была поставлена задача, спроектировать и разработать программу решающая проблему решения различных математических задач, которая должна быть удобна в использовании. Она включает в себя подробное изучение предметной области данного дипломного проекта: сбор и группировка информации о математике. В результате должен получиться проект, который бы позволял обрабатывать, изменять информацию и автоматизировать некий математический процесс для необходимости в использовании учащихся в школе, а также студентов вуза. Программа должна иметь удобный, лёгкий и доступный для восприятия пользовательский интерфейс. Должны быть продуманы специальные запросы по систематизации и обработке хранимой информации. Пользователю должна быть предоставлена возможность самому задавать параметры имеющихся запросов. В проекте должны быть изучены и хорошо продуманы вопросы защиты и обновления информации. Данный проект должен быть предназначен для круга пользователей, изучающую или использующую математику для своих целей.
В данной дипломной работе проектируется программа, которую может использовать любой пользователь, она также легка в пользовании.
.2 Описание программы
Результатом моего дипломного проекта явилось создание программы в Делфи проецирующая математические процессы. В программе я рассмотрела три вида математических задач такие как: Решение квадратного уравнения, Вычисления определенного интеграла тремя методами (формула Симпсона, формула прямоугольников, формула трапеций) Построения графиков функций.
Программа разработана на языке программирования Delphi 7.0 с использованием объектно-ориентированной методологии.
.2.1 Структура программы
Ключевыми составляющими приложения являются, состоит из 5 форм, где первая форма выступает за главную (рис3.1.) через которую, нажимая на ссылки можно просмотреть последующие форм.
На этой форме распложены ссылки на программы позволяющую, решать важнейшую задачу математического анализа, такие как решение квадратного уравнения, вычисления определенного интеграла тремя методами и построение графиков функций. Использованы стандартные компоненты такие как: Label, BitBtn.
Как показано на рисунке 3.1. вы видите три ссылки, через которые можно выйти на ключевые составляющие приложения, т.е. формы, где запрограммированы математические процессы, что и является целью моего дипломного проекта.
.2.2 Программа Решение квадратного уравнения
Для этого немного вспомним математический смысл решения квадратного уравнения, приведем основные понятия.
Определение. Квадратным уравнением называют уравнением вида:
ax2+bx+c=0 (1)
при а?0.
При b2 -4ac?0 уравнение (2)
Равносильно уравнению a(x-x1)(x-x2)=0, где x1 и x2 - выражения, полученные в п. 10. Так как произведение равно нулю тогда, когда один из сомножитлей равен нулю, то полученное уравнение имеет корни х= x1 x=x2. Эти корни совпадают при b2 -4ac=0.
При b2 -4ac<0 уравнение ax2+bx+c=0 не имеет действительных корней, так как в этом случае выражение ax2+bx+c не обращается в нуль.
Итак, при D0 имеет два действительных корня, которые принято