Разработка программного обеспечения

Программа «Калькулятор комплексных чисел» разработана в ранее рассмотренной программе Delphi, версия 7. Для работы с системой пользователю нужны следующие прецеденты:

• — ввести число
• — рассчитать

Вариант использования «Ввести число» включает в себя дополнительно два варианта использования:

• — Ввести Z1
• — Ввести Z2

То есть для расчетов пользователь должен ввести как минимум 2 комплексных числа. Может ввести комплексное число в какой-то одной форме, экспоненциальной или алгебраической, либо в обоих сразу. В зависимости от того введет он число в обеих формах или в какой-либо одной, вариант использования «Рассчитать» расширяется вариантами преобразования комплексных чисел из алгебраической формы в экспоненциальную и обратно.

Также вариант использования «Рассчитать» включает в себя следующие арифметические действия над числами:

• — Рассчитать Z1+Z2
• — Рассчитать Z1-Z2
• — Рассчитать Z1*Z2
• — Рассчитать Z1/Z2

Раскроем последовательность действий для прецедента «Рассчитать».

Действующий актер User1 активирует команду Button1. Click через нажатие мышкой. После этого идет считывание соответствующих полей ввода формы и создание комплексных чисел Z1 и Z2. Последовательно создаются и рассчитываются результаты арифметических действий над этими числами. Результаты представлены в виде объектов класса TComplex. В соответствующие поля формы выводятся результаты вычислений в комплексной и алгебраической форме.

Классы и процедуры, используемые в программе:

type.

TForm1 = class (TForm).

Edit1: TEdit;

GroupBox1: TGroupBox;

MainMenu1: TMainMenu;

MenuClear: TMenuItem;

MenuExit: TMenuItem;

Label1: TLabel;

Edit2: TEdit;

Label5: TLabel;

Edit9: TEdit;

Edit3: TEdit;

Edit4: TEdit;

GroupBox3: TGroupBox;

Label2: TLabel;

Edit5: TEdit;

Edit6: TEdit;

Edit7: TEdit;

Edit8: TEdit;

Label3: TLabel;

Edit10: TEdit;

Label8: TLabel;

Edit11: TEdit;

Label6: TLabel;

Edit12: TEdit;

Button1: TButton;

Label4: TLabel;

MenuSave: TMenuItem;

procedure Button1Click (Sender: TObject);

procedure MenuExitClick (Sender: TObject);

procedure Edit1KeyPress (Sender: TObject; var Key: Char);

procedure Edit2KeyPress (Sender: TObject; var Key: Char);

procedure Edit3KeyPress (Sender: TObject; var Key: Char);

procedure Edit4KeyPress (Sender: TObject; var Key: Char);

procedure Edit5KeyPress (Sender: TObject; var Key: Char);

procedure Edit6KeyPress (Sender: TObject; var Key: Char);

procedure Edit7KeyPress (Sender: TObject; var Key: Char);

procedure Edit8KeyPress (Sender: TObject; var Key: Char);

procedure MenuClearClick (Sender: TObject);

procedure MenuSaveClick (Sender: TObject);

end;

TComplex=record.

Real: Extended;//Вещественная часть комплексного числа.

Imag: Extended;//Мнимая часть комплексного числа.

Modul: Extended;//модуль комплексного числа.

Angle: Extended;//угол поворота.

end;

В основном модуле хранятся процедуры доступа к базе данных. Листинг полного кода модуля приведен в Приложении.