Разработка приложения вычисления определенных интегралов по формуле левых прямоугольников - Программирование, компьютеры и кибернетика курсовая работа

Главная

Программирование, компьютеры и кибернетика
Разработка приложения вычисления определенных интегралов по формуле левых прямоугольников

Средства Delphi для разработки Windows приложений. Математическая формулировка задачи, описание программы вычисления определенного интеграла по формуле левых прямоугольников. Руководство пользователя, методика испытаний продукта. Листинг программы.


посмотреть текст работы


скачать работу можно здесь


полная информация о работе


весь список подобных работ


Нужна помощь с учёбой? Наши эксперты готовы помочь!
Нажимая на кнопку, вы соглашаетесь с
политикой обработки персональных данных

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Министерство образования и науки Республики Беларусь
Белорусский национальный технический университет
Международный институт дистанционного образования
Кафедра программного обеспечения вычислительной техники и автоматизированных систем
«Конструирование программ и языки программирования»
Разработка приложения вычисления определенных интегралов по формуле левых прямоугольников
Delphi - это современный программный продукт, позволяющий создавать широкий спектр приложений. Он объединяет в себе высокопроизводительный компилятор с языка ObjectPascal, являющийся объектно_ориентированным расширением структурного языка третьего поколения Pascal, средств наглядного (визуального) создания программ и масштабируемую технологию управления БД. Основное назначение Delphi - служить средством для быстрого создания широкого класса Windows_приложений, включая приложения, отвечающие технологии распределенной обработки данных, называемой технологией клиент_сервер.
Для разработки Windows_приложений Delphi имеет следующие средства:
Имеющийся в составе Delphi компилятор с языка ObjectPascal, являющийся одним из самых производительным в мире, позволяющий компилировать приложения со скоростью до 120000 строк в минуту. Среда Delphi включает в себя встроенный компилятор. При необходимости можно воспользоваться и пакетным компилятором DCC.EXE.
-объектно_ориентированная модель компонентов
Основным назначением применения в Delphi модели компонентов является обеспечение возможности многократного использования компонентов и создания новых. Для создания Delphi использовались те же компоненты, что входят в состав поставки. Тем не менее, внесенные в объектную модель изменения, в первую очередь, были вызваны необходимостью поддержки технологии визуального программирования. При этом язык остался совместимым с языком Pascal, поддерживаемым компилятором BorlandPascal 7.0
Среда Delphi содержит полный набор визуальных средств для быстрой разработки приложений, поддерживающих как создание пользовательских интерфейсов, так и обработку корпоративных данных (с использованием соответствующих средств). Использование библиотеки визуальных компонентов (VCL) и визуальных объектов для работы с данными позволяет создавать приложения с минимальными затратами на непосредственное кодирование. При этом компоненты, включенные в состав Delphi, максимально инкапсулируют вызовы функций Windows API, тем самым облегчая процесс создания программ.
Delphi является системой с открытой архитектурой, что позволяет дополнять ее новыми средствами и переносить на различные платформы.
Delphi поддерживает практически все форматы существующих реляционных таблиц. Delphi включает в себя локальный сервер InterBase, для того, чтобы можно было разрабатывать расширяемые на любые внешние SQL_серверы приложения в онлайновом режиме.
Итак, Delphi - это новый продукт, позволяющий создавать широкий спектр приложений для Windows. Среда Delphi включает в себя полный набор визуальных средств для быстрой разработки приложений, поддерживающих как создание пользовательских интерфейсов, так и таблиц базы данных. Библиотека классов, входящих в Delphi, содержит большое количество классов, инкапсулирующих различные группы функций Windows API. Delphi является системой с открытой архитектурой, что позволяет дополнять ее новыми средствами, и переносить на различные платформы.
1 . М атематическая формулировка задачи
Требуется составить программу вычисления определенного интеграла по формуле левых прямоугольников.
Формула левых прямоугольников имеет вид:
Вычислить значение интеграла. Подынтегральную функцию представить в графическом виде, показать геометрическое значение интеграла в виде заштрихованной площади.
1. Главную, на которой располагаются элементы управления:
В программе используется конвертация данных расчета в приложение Microsoft Office Excel. Создана справочная система программы.
Для запуска программы необходимо запустить файл “Pintegral.exe”.
Внешний вид главной формы представлен в ч.3.
Для правильной работы программы необходимо загрузить в неё данные посредством ввода их в поля TЕdit:
Для вычисления значения интеграла есть возможность воспользоваться пунктом Данные -> Применить ла из главного меню
или кнопкой Применить , расположенной на форме:
После вычисления результат отобразится на форме, будет построен график подинтегральной функции и создана таблица результатов расчета.
3. Конвертация данных расчета в приложение Microsoft Office Excel.
Данную операцию можно совершить либо выбрав в главном меню Файл->Экспорт в Excel либо нажав на кнопку на главной форме.
Для вывода справочной информации ?->Справка либо нажав на кнопку на главной форме.
Для вывода информации о программе ?-> About либо нажав на кнопку на главной форме.
Внешний вид окна представлен в ч.3.
Для выхода из программы необходимо выполнить одно из следующих действий:
Либо щёлкнуть на крестике в правом верхнем углу формы
Целью проведения испытаний являлась проверка работоспособности программы при различных исходных данных.
значение левого предела интегрирования: 1,6;
значение правого предела интегрирования: 2,7;
После нажатия кнопки Применить был получен результат вычислений, построен график функции и составлена таблица с результатами расчета. Программа успешно экспортировала данные в приложение Microsoft Office, показала информацию о программе и файл помощи.
В ходе тестирования не было выявлено ошибок и сбоев в работе приложения: процессы вычисления значений интегралов, вывода графиков функций и геометрических смыслов интегралов происходили по мере запросов без ошибок.
Доступ к методам класса, а также методам COM-сервера и динамической библиотеки “ pServer.dll” осуществлялся без ошибок.
Возможно использования приложения как вспомогательного средства при изучении интегрального исчисления.
С писок использованных источников
Фаронов В.В. Delphi. Программирование на языке высокого уровня. - СПб: Издательство «Питер», 2000.- 639 с.
Марко Кэнту. Delphi 5 для профессионалов.-СПб.: Питер. 2001. - 944 с.
А.Я.Архангельский. Delphi 7. Учебное пособие. - СПб: Издательство «Питер», 2004.- 1087 с.
П риложение 1. Л истинг программы
// ****************************************************** //
// The types declared in this file were generated from data read from a
// Type Library. If this type library is explicitly or indirectly (via
// another type library referring to this type library) re-imported, or the
// 'Refresh' command of the Type Library Editor activated while editing the
// Type Library, the contents of this file will be regenerated and all
// manual modifications will be lost.
// ********************************************************** //
// File generated on 15.11.2005 22:46:27 from Type Library described below.
// ************************************************* //
// Type Lib: C:\Documents and Settings\Sergh\Рабочий стол\Разработка приложения вычисления определенных интегралов по формуле левых прямоугольников (Delphi)\Source\Server\pServer.tlb (1)
// LIBID: {73AF5EFB-ABD6-4565-91C3-0E7C137DA989}
// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
// ********************************************************* //
{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
uses Windows, ActiveX, Classes, Graphics, StdVCL, Variants;
// ****************************************************//
// GUIDS declared in the TypeLibrary. Following prefixes are used:
// ********************************************************//
// TypeLibrary Major and minor versions
LIBID_pServer: TGUID = '{73AF5EFB-ABD6-4565-91C3-0E7C137DA989}';
IID_IIntegral: TGUID = '{2877719B-94E7-45FB-82BE-7F9CD8A6017C}';
CLASS_Integral: TGUID = '{3AD7BD31-8C15-49ED-A0B5-436060913721}';
// ***************************************************//
// Forward declaration of types defined in TypeLibrary
// *******************************************************//
// *******************************************************//
// Declaration of CoClasses defined in Type Library
// (NOTE: Here we map each CoClass to its Default Interface)
// *********************************************************//
// *******************************************************//
// GUID: {2877719B-94E7-45FB-82BE-7F9CD8A6017C}
// *****************************************************//
['{2877719B-94E7-45FB-82BE-7F9CD8A6017C}']
function Func(x: Double): Double; stdcall;
// **********************************************************//
// The Class CoIntegral provides a Create and CreateRemote method to
// create instances of the default interface IIntegral exposed by
// the CoClass Integral. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// ***********************************************************//
class function CreateRemote(const MachineName: string): IIntegral;
class function CoIntegral.Create: IIntegral;
Result := CreateComObject(CLASS_Integral) as IIntegral;
class function CoIntegral.CreateRemote(const MachineName: string): IIntegral;
Result := CreateRemoteComObject(MachineName, CLASS_Integral) as IIntegral;
Windows, ActiveX, Classes, ComObj, pServer_TLB, StdVcl;
TIntegral = class(TTypedComObject, IIntegral)
function Func(x: Double): Double; stdcall;
function TIntegral.Func(x: Double): Double;
Result := (x + 0.8) / sqrt (x * x + 1.2);
TTypedComObjectFactory.Create(ComServer, TIntegral, Class_Integral,
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, ExtCtrls, TeEngine, Series, TeeProcs, Chart,
Grids, Menus, ToolWin, ComCtrls, ImgList;
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure nExitClick(Sender: TObject);
procedure ExcelClick(Sender: TObject);
procedure NApplyClick(Sender: TObject);
procedure NLoadClick(Sender: TObject);
procedure NSaveClick(Sender: TObject);
procedure nAboutClick(Sender: TObject);
procedure NHelpClick(Sender: TObject);
procedure TfrmMain.FormCreate(Sender: TObject);
Integral := TIntegral.Create(1.6, 2.7, 95);
pnlRes.Caption := 'Результат = ' + FloatToStr(Integral.Calculate);
procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TfrmMain.nExitClick(Sender: TObject);
procedure TfrmMain.ExcelClick(Sender: TObject);
procedure TfrmMain.NApplyClick(Sender: TObject);
Integral.A := StrToFloat(edtA.Text);
Integral.B := StrToFloat(edtB.Text);
pnlRes.Caption := 'Результат = ' + FloatToStr(Integral.Calculate);
procedure TfrmMain.NLoadClick(Sender: TObject);
Integral.LoadFromFile(OpenDialog.FileName);
edtA.Text := FloatToStr(Integral.A);
edtB.Text := FloatToStr(Integral.B);
pnlRes.Caption := 'Результат = ' + FloatToStr(Integral.Calculate);
procedure TfrmMain.NSaveClick(Sender: TObject);
Integral.SaveToFile(SaveDialog.FileName);
procedure TfrmMain.nAboutClick(Sender: TObject);
procedure TfrmMain.NHelpClick(Sender: TObject);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Panel1Click(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure Timer1Timer(Sender: TObject);
procedure TfrmLogo.Panel1Click(Sender: TObject);
procedure TfrmLogo.FormClose(Sender: TObject; var Action: TCloseAction);
procedure TfrmLogo.Timer1Timer(Sender: TObject);
uses pServer_TLB, Series, Chart, SysUtils, grids,
ComObj, ActiveX, Windows, StdCtrls;
// Методы записи для property-значений
procedure SetN(const Value: integer);
// Конструктор (принимает все необходимые для вычислений значения)
constructor Create(ANew, BNew: real; NNew: integer);
property A: real read _A write SetA; // начало интегрирования
property B: real read _B write SetB; // конец интенрирования
property N: integer read _N write SetN; // кол-во разбиений
// Вычисление интеграла (возвращаем интегральную сумму)
procedure LoadFromFile(fName: string);
procedure SaveToFile(fName: string);
procedure Draw(Series: TAreaSeries);
procedure FillTable(Stg: TStringGrid);
procedure ExcelExport (Stg: TStringGrid);
// Вычисление интеграла (возвращаем интегральную сумму)
function TIntegral.Calculate: real;
h := (_B - _A)/_N; // Вычисляем шаг
s := s + h * Func.Func(_A + tmp); // релизация метода
Result := s; // возвращаем результат
// Конструктор (принимает все необходимые для вычислений значения)
constructor TIntegral.Create(ANew, BNew: real; NNew: integer);
procedure TIntegral.Draw(Series: TAreaSeries);
h := (_B - _A)/_N; // Вычисляем шаг
Series.AddXY(_A + tmp, h*Func.Func(_A + tmp));
procedure TIntegral.ExcelExport (Stg: TStringGrid);
// Указать программный идентификатор приложения-сервера
Result := GetActiveObject(ProgIDToClassID(AppProgID),nil,Unknown);
if (Result = MK_E_UNAVAILABLE) then
// Соединиться с уже запущенной копией сервера
App := GetActiveOleObject(AppProgID);
//------------------------------------------------------
App.ActiveWorkbook.WorkSheets[1].Name := 'Результат';
//Подготовка данных для построения графика
App.ActiveWorkbook.WorkSheets[1].Cells[j,1].Value :=StrToFloat(Stg.Cells[1,j+1]);
App.ActiveWorkbook.WorkSheets[1].Cells[j,2].Value := StrToFloat(Stg.Cells[2,j+1]);
// показать окно приложения на экране
procedure TIntegral.FillTable(Stg: TStringGrid);
h := (_B - _A)/_N; // Вычисляем шаг
Stg.Cells[1,i+1] := FloatToStr(_A + tmp);
Stg.Cells[2,i+1] := FloatToStr(h*Func.Func(_A + tmp));
procedure TIntegral.LoadFromFile(fName: string);
res := (IOResult = 0) and (fName <> '');
ShowMessage('Неправильное чтение из файла')
else begin {Записываем данные в класс}
procedure TIntegral.SaveToFile(fName: string);
res := (IOResult = 0) and (fName <> '');
else begin {Записываем данные в файл}
// Описание методов записи для property-значений
procedure TIntegral.SetA(const Value: real);
procedure TIntegral.SetB(const Value: real);
procedure TIntegral.SetN(const Value: integer);
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
procedure Button1Click(Sender: TObject);
procedure TfrmAbout.Button1Click(Sender: TObject);
Методы левых и правых прямоугольников численного интегрирования для вычисления интегралов. Геометрический смысл определённого интеграла. Программная реализация, блок-схемы алгоритмов. Результат работы тестовой программы. Решение задачи с помощью ЭВМ. курсовая работа [180,4 K], добавлен 15.06.2013
Формулирование и создание программы по вычислению определенного интеграла по формуле трапеций с тремя десятичными знаками и по формуле Симпсона. Выбор Delphi как программного средства разработки программы. Создание алгоритма и листинг программы. курсовая работа [990,9 K], добавлен 15.06.2009
Теория вычисления интеграла и описание используемых численных методов (метод левых и правых прямоугольников, метод трапеции, метод Симпсона). Расчеты в пакете Matlab. Отчет о результатах вычисления в MS Excel. Описание приложения созданного в Delphi. курсовая работа [2,8 M], добавлен 18.08.2014
Постановка задачи и математическое описание ее решения. Назначение программного обеспечения. Описание принятых идентификаторов. Выбор языка программирования и написание программы на входном языке. Методика отладки программы и проведение ее тестирования. курсовая работа [96,1 K], добавлен 25.06.2013
Рассмотрение методов прямоугольников и трапеций как способов вычисления определенных интегралов. Характеристика графика зависимости погрешности от числа разбиений N. Создание приложения по вычислению интеграла с помощью методов приближенного вычисления. курсовая работа [1,6 M], добавлен 20.06.2012
MPI - библиотека передачи сообщений на языке программирования C/C++, ее переносимость, стандартизация, эффективная работа, функциональность. Форматы фактических вызовов MPI. Метод прямоугольников для приближенного вычисления определенного интеграла. курсовая работа [286,0 K], добавлен 20.06.2012
Разработка различных программ для вычисления X и Y по формуле, для вычисления интеграла, для вычисления таблицы значений функции и для вычисления элементов вектора. Составление блок-схемы программы. Ввод значений, описание переменных и условия расчета. контрольная работа [148,1 K], добавлен 08.11.2013
Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д. PPT, PPTX и PDF-файлы представлены только в архивах. Рекомендуем скачать работу .

© 2000 — 2021



Разработка приложения вычисления определенных интегралов по формуле левых прямоугольников курсовая работа. Программирование, компьютеры и кибернетика.
Контрольная работа: Качество управленческих решений
Реферат: Fall Of Constantinople Essay Research Paper The
Реферат: Коллегии Госуправления
Курсовая работа: Институт двойного гражданства
Реферат: Ознакомительной практике на ЗСМК
Реферат по теме Философия Феофана Прокоповича
Контрольные Работы Класс Математика Дорофеев
Реферат: Банковская система СССР. Скачать бесплатно и без регистрации
Реферат по теме ВОВ (1941-1945)
Реферат: Бизнес-план завода по сжиганию твёрдых бытовых отходов
Реферат: Неполадки при загрузке Windows и их устранение. Загрузочная дискета
Реферат: Управление персоналом как механизм реализации государственной кадровой политики
Доклад: Сертификация по требованиям стандарта ISO 14001
Сочинение 9 Класс Огэ 9.3
Реферат по теме Этапы античной философии
Дипломная работа: Пасажирські перевезення
Кто Пишет Дважды Читает Эссе
Сочинение На Тему Олеся Куприна 11 Класс
Международное право и национальные правовые системы.
Курсовая Работа На Тему Философия В Поэзии Фета
Учебные тренинговые игры на уроках истории России и исторического краеведения - Педагогика методичка
Влияние коррупции на социально-экономическое развитие стран Ближнего Востока и Северной Африки - Международные отношения и мировая экономика контрольная работа
Деятельность секретаря в системе документационного и информационного обеспечения управления организацией - Менеджмент и трудовые отношения дипломная работа