Разработка программы-калькулятора на Delphi - Формирование подмножества натуральных чисел с заданными параметрами — страница 6

  • Просмотров 3596
  • Скачиваний 331
  • Размер файла 430
    Кб

программа, выполняющая следующие функции:   Формирование подмножества натуральных чисел, объединенных общими делителями и остатком среди чисел данной размерности.   2. Факторизация числа и формирование множества его делителей и их суммы. Нахождение наименьшего общего кратного (НОК) и наибольшего общего делителя (НОД) задан-ной совокупности чисел.   Нахождение рациональных решений алгебраического уравнения с

целочисленными коэффицен-тами с использованием схемы Горнера.   Представление рациональной дроби в виде цепной.   Представление цепной дроби в виде рациональной.   Программа написана на языке Delphi, ОС Microsoft Windows 7 Ultimate. Аппаратная часть: Процессор: Intel Core i7-920, Видеокарта: GeForce GTX 275 Оперативная память: Kingston 3x2Gb RAM. Проведенные тесты показали работоспособность программы. К плюсам программы можно отнести нетребовательность к

ресурсам компьютера (тестировалась на более слабом оборудовании), простоту в обращении. Программа имеет четкую структуру: главная программа содержит описание и пункты в меню в соответствующие подпрограммы. Интерфейс прост и интуитивно понятен. В каждой подпрограмме есть кнопка «Помощь», которая описывает работу с ней. Недостатком программы является ограниченность в оперировании с числами большой разрядности. Для

устранения этого недостатка в будущем, необходимо будет использовать более эффективные алгоритмы и средства написания, специально предназначенные для использования в вычислительных машинах. Список используемых источников: 1. В.И. Николаев, В. Я. Пашкин “Основы дискретной математики”, 1999г. Приложения Листинг программы. //Main programm unit KPUnit1; interface uses Windows, Messages, SysUtils, Variants, Classes,Graphics, Controls, Forms,Dialogs, Menus, StdCtrls, jpeg, ExtCtrls; type TfrmKP =

class(TForm)MainMenu1: TMainMenu;MmNum: TMenuItem;MmFac: TMenuItem;MmSuperGorner: TMenuItem;MmExpressor: TMenuItem;MmAntiExpresor: TMenuItem;MmNOD_NOK: TMenuItem;Image1: TImage;Image2: TImage;Label1: TLabel;Label2: TLabel;Label3: TLabel;Label4: TLabel;Label5: TLabel;Label6: TLabel;Label7: TLabel;Label8: TLabel;Label9: TLabel;Label10: TLabel;Label11: TLabel;Label12: TLabel;Label13: TLabel;Label14: TLabel;Label15: TLabel;Label16: TLabel;Label17: TLabel;procedure MmNumClick(Sender: TObject);procedure MmFacClick(Sender: TObject);procedure MmExpressorClick(Sender: TObject);procedure MmSuperGornerClick(Sender: TObject);procedure MmNOD_NOKClick(Sender: TObject);procedure MmAntiExpresorClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var frmKP:

TfrmKP; implementation uses dm002Unit, DM003Unit, DM004Unit, DM007Unit,DM005Unit, dm001Unit,DM008Unit; {$R *.dfm} procedure TfrmKP.MmNumClick(Sender: TObject); var frmDM001: TfrmDM001;beginfrmDM001:=TfrmDM001.Create(Self);frmDm001.Show;end; procedure TfrmKP.MmFacClick(Sender: TObject); var Form1: TForm1; beginForm1:=TForm1.Create(Self);Form1.Show;end; procedure TfrmKP.MmSuperGornerClick(Sender: TObject); var frmSuperGorner: TfrmSuperGorner; beginfrmSuperGorner:=TfrmSuperGorner.Create(Self);frmSuperGorner.Show; end; procedure TfrmKP.MmExpressorClick(Sender: TObject); var Form2: TForm2; beginForm2:=TForm2.Create(Self);Form2.Show; end; procedure TfrmKP.MmNOD_NOKClick(Sender: TObject); var frmNumer: TfrmNumer; beginfrmNumer:=TfrmNumer.Create(Self);frmNumer.Show; end; procedure