Накладные расходы, связанные с затратами на содержание помещений и затратами на расходные материалы, принимаются в размере 10% от фонда заработной платы, что составит З3= 106 грн.

Капитальные затраты на разработку программного продукта составят:

= 1060 + 120 + 106 = 1386 грн.

3. Разработка эскизного проекта

Разработку UML диаграмм будем производить в среде IBM Rational Software Architect.

Rational Software Architect версии 7.5 включает в себя следующие возможности:

1. Поддержка Unified Modeling Language версии 2.1

2. Поддержка преобразований типа модель-код и код-модель

3. Возможность прямых преобразований:

3.1. UML в Java

3.2. UML в C#

3.3. UML в C++

3.4. UML в EJB

3.5. UML в WSDL

3.6. UML в XSD

3.7. UML в CORBA IDL

3.8. UML в SQL на основе логической модели данных, поддерживаемой программным обеспечением IBM Rational(сейчас называется Rational Software).

4. Возможность обратных преобразований:

4.1. Java в UML

4.2. C++ в UML

5. Включает в себя все возможности IBM Rational Application Developer

6. Позволяет управлять моделями для параллельной разработки и архитектурного рефакторинга, например, разделять, объединять, сравнивать, производить слияние моделей и частей модели.

7. Предоставление визуальных инструментальных средств для ускорения разработки программного обеспечения и дизайна.

3.1 Use Case диаграмма

Диаграмма прецедентов (англ. use case diagram, диаграмма вариантов использования) -- диаграмма, на которой отражены отношения, существующие между актерами и прецедентами.

Основная задача -- представлять собой единое средство, дающее возможность заказчику, конечному пользователю и разработчику совместно обсуждать функциональность и поведение системы.

В нашем случае заказчик, он же пользователь (User), является актером по отношению к системе.

Для работы с системой пользователю нужны следующие прецеденты:

- ввести число

- рассчитать

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

- Ввести Z1

- Ввести Z2

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

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

- Рассчитать Z1+Z2

- Рассчитать Z1-Z2

- Рассчитать Z1*Z2

- Рассчитать Z1/Z2

Тогда диаграмма вариантов использования приймет следующий вид:

Рисунок 1 - Диаграмма прецедентов использования

3.2 Диаграмма классов

Класс (class) в языке UML служит для обозначения множества объектов, которые обладают одинаковой структурой, поведением и отношениями с объектами из других классов. Графически класс изображается в виде прямоугольника, который дополнительно может быть разделен горизонтальными линиями на разделы или секции. В этих разделах могут указываться имя класса, атрибуты (переменные) и операции (методы).

Базовый класс нашей программы - форма TForm, которая содержит в себе остальные объекты.

На форму выводятся объекты TEdit (поля для ввода данных), TButton (кнопки для обработки команд пользователя), TLabel (метки для передачи информации пользователю), а также в неявном виде TComplex (комплексные числа введенные пользователем, а также результаты вычислений).

Рассмотрим подробнее эти классы.

Class TForm

Основное окно проекта, имеет все соответствующие атрибуты стандартной формы Windows (Width, Height, Top etc.). В проекте используется процедура Create() для инициализации объектов на форме.

Class TEdit

Основной класс на форме для ввода и вывода информации от пользователя. Основной атрибут - Text, строкового типа. Класс содержит процедуру KeyPress в которой обрабатывается корректность ввода числа с клавиатуры.

Class TLabel

Вспомогательный класс для уточнения пользователю назначения тех или иных полей ввода/вывода.

Class TComplex

Базовый класс проекта, содержащий в себе атрибуты комплексных чисел и процедуры конвертации комплексного числа и одной формы в другую.

Атрибуты класса:

Real - вещественная часть комплексного числа в алгебраической форме

Imag - мнимая часть комплексного числа в алгебраическом виде

Modul- модуль вектора числа в экспоненциальном виде

Arg - угол поворота вектора комплексного числа в экспоненциальной форме

Процедуры конвертации комплексного числа из одной формы в другую:

ArgToExp() - перевод числа из алгебраической формы в экспоненциальную

ExpToArg() - перевод числя из экспоненциальной формы в алгебраическую.

Class TButton

Кнопка для инициализации расчетов. Основная процедура - Click, нажате кнопки мышкой.

Диаграмма классов представлена ниже.

Рисунок 2 - Диаграмма классов

3.3 Диаграмма последовательностей

Раскроем последовательность действий для прецедента РАССЧИТАТЬ.

Действующий актер User1 активирует команду Button1.Click через нажатие мышкой.

После этого итет считывание соответствующих полей ввода формы и создание комплексных чисел Z1 и Z2.

Последовательно создаются и рассчитываются результаты арифметических действий над этими числами. Результаты представлены в виде объектов класса TComplex, В соответствующие поля формы выводятся результаты вычислений в комплексной и алгебраической форме.

Диаграмма подледовательности действий для варианта РАССЧИТАТЬ представлена на рис. 3.

Рисунок 3 - Диаграмма последовательности РАССЧИТАТЬ

4 Разработка и описание программы

Проектирование будем выполнять в среде Delphi.

Delphi -- среда программирования, в которой используется язык программирования Object Pascal. Начиная со среды разработки Delphi 7.0, в официальных документах Borland стала использовать название Delphi для обозначения языка Object Pascal. Начиная с 2007 года уже язык Delphi (производный от Object Pascal) начал жить своей самостоятельной жизнью и претерпевал различные изменения связанные с современными тенденциями (например, с развитием платформы .net) развития языков программирования: появились class helpers, перегрузки операторов и другое

4.1 Разработка программного кода

Вид формы в окне проектирования представлен на рис.4.

Рисунок 4 - Внешний вид формы в среде Delphi

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

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;

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

4.2 Руководство пользователя

После запуска программы происходит инициализация полей формы.

Внешний вид запущенной программы на рис.4.

В верхней правой части экрана находится панель навигации. Команды меню:

- Очистить - очищает поля ввода, удаляет объекты комплексных чисел

- Сохранить - сохраняются результаты вычислений в файл в виде

- Выход - выход из программы

Рисунок 5 - Окно программы

В центре формы поля для ввода комплексных чисел Z1 и Z2. Вводить можно как в алгебраической форме a+jb, так и в экспоненциальной форме.

В нижней части экрана 4 поля для вывода результатов вычислений и кнопка для инициализации расчетов. При нажатии кнопки расчет производится конвертирование чисел из одной формы в другую, а потом расчитываются алгебраические действия с ними.

Пример расчетов приведен на рисунке 6.

Рисунок 6 - Окно программы с результатами

программа арифметический комплексный число

Заключение

В результате выполнения курсовой работы была разработана прикладная программа «Калькулятор комплексных чисел». Она упрощает конвертацию комплексных чисел из одной формы в другую, а также производит простые арифметические действия над комплексными числами. Ход вычислений выводится в поле вывода, результаты можно сохранить в текстовый файл.

Список использованной литературы

1. Тонкий Л. В. Системное программное обеспечение. Программа учебной дисциплины и методические указания к выполнению курсовой работы [текст] 2006. - 23 с.

2. Гофман В. Delphi 7. Полное руководство [текст] - Санкт-Петербург, 2002. - 340 с.

3. Юниты «Программирование высокого уровня»-Москва-2005г

4. Т.А.Павловская «Программирование высокого уровня»-2009г- Санкт-Петербург

5. Т.А.Павловская «Языки программирования»- 1-ое издаение-2007г

6. Немнюгин С.А. «Программирование высокого уровня»-2008г- Санкт-Петербург-учебники для вузов.

7. Фаронов В.В. «Программирование высокого уровня»-2009г- Санкт-Петербург

8. Книги » Нехудожественная литература » Учебная литература » C#. Программирование на языке высокого уровня: Учебник для вузов. Автор: Павловская Т. Издатель: Питер.

9. «Информатика и вычислительная техника»- Павловская Т.А. Издательство - Питер- Год - 2007.

10. Каймин В. А., Питеркин В. М. Основы информатики и ВТ. Учебник для студентов, 1985.

11. «Информатика и ИКТ. Базовый уровень» для 10 класса. Автор Угринович Н. Д.-2005г.

12. Трофимов С.А. CASE-технологии. Практическая работа в Rational Rose

Приложение А

Листинг кода основной программы

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, Menus, Mask;

const Digit: set of Char=['1'..'9', '0'];

//Множество символов, воспринимаемых как символ-разделитель:

Separator: set of Char=['/', '.', ',', 'ю', 'Ю', 'б', 'Б'];

firstdigit: set of char=['-','1'..'9', '0'];

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);

private

{ Private declarations }

public

{ Public declarations }

end;

TComplex=record

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

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

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

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

end;

var

Form1: TForm1;

Z1,Z2: TComplex;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var Modul,Angle:extended;

begin

if Edit1.Text<>'' then Z1.Real:=StrToFloat(Edit1.Text);

if Edit2.Text<>'' then Z1.Imag:=StrToFloat(Edit2.Text);

if Edit3.Text<>'' then Z1.Modul:=StrToFloat(Edit3.Text);

if Edit4.Text<>'' then Z1.Angle:=StrToFloat(Edit4.Text);

if Edit5.Text<>'' then Z2.Real:=StrToFloat(Edit5.Text);

if Edit6.Text<>'' then Z2.Imag:=StrToFloat(Edit6.Text);

if Edit7.Text<>'' then Z2.Modul:=StrToFloat(Edit7.Text);

if Edit8.Text<>'' then Z2.Angle:=StrToFloat(Edit8.Text);

if (Edit1.Text<>'') and (Edit2.Text<>'') then

begin

Z1.Modul:=SQRT(SQR(Z1.Real)+SQR(Z1.Imag));

if Z1.Real=0 then Z1.Angle:=1.57

else if(Z1.Real>0) then Z1.Angle:=arctan(Z1.Imag/Z1.Real)

else Z1.Angle:=3.14+arctan(Z1.Imag/Z1.Real);

Edit3.Text:=floatToStrF(Z1.Modul,ffFixed,6,1);

Edit4.Text:=floatToStrF(Z1.Angle,ffFixed,6,1);

end;

if (Edit3.Text<>'') and (Edit4.Text<>'') then

begin

Z1.Real:=Z1.Modul*cos(Z1.Angle);

Z1.Imag:=Z1.Modul*sin(Z1.Angle);

Edit1.Text:=floatToStrF(Z1.Real,ffFixed,6,1);

Edit2.Text:=floatToStrF(Z1.Imag,ffFixed,6,1);

end;

if (Edit5.Text<>'') and (Edit6.Text<>'') then

begin

Z2.Modul:=SQRT(SQR(Z2.Real)+SQR(Z2.Imag));

if Z2.Real=0 then Z2.Angle:=1.57

else if (Z2.Real>0) then Z2.Angle:=arctan(Z2.Imag/Z2.Real)

else Z2.Angle:=3.14+arctan(Z2.Imag/Z2.Real);

Edit7.Text:=floatToStrF(Z2.Modul,ffFixed,6,1);

Edit8.Text:=floatToStrF(Z2.Angle,ffFixed,6,1);

end;

if (Edit7.Text<>'') and (Edit8.Text<>'') then

begin

Z2.Real:=Z2.Modul*cos(Z2.Angle);

Z2.Imag:=Z2.Modul*sin(Z2.Angle);

Edit5.Text:=floatToStrF(Z2.Real,ffFixed,6,1);

Edit6.Text:=floatToStrF(Z2.Imag,ffFixed,6,1);

end;

{Z1+Z2}

If Z1.Imag>=0 then Edit9.Text:=floatToStrF(Z1.Real,ffFixed,6,1)+'+j'+floatToStrF(Z1.Imag,ffFixed,6,1)

else Edit9.Text:=floatToStrF(Z1.Real,ffFixed,6,1)+'-j'+floatToStrF(-Z1.Imag,ffFixed,6,1);

If Z2.Real>=0 then Edit9.Text:=Edit9.Text+'+'+floatToStrF(Z2.Real,ffFixed,6,1)

else Edit9.Text:=Edit9.Text+floatToStrF(Z2.Real,ffFixed,6,1);

If Z2.Imag>=0 then Edit9.Text:=Edit9.Text+'+j'+floatToStrF(Z2.Imag,ffFixed,6,1)

else Edit9.Text:=Edit9.Text+'-j'+floatToStrF(-Z2.Imag,ffFixed,6,1);

Edit9.Text:=Edit9.Text+'='+floatToStrF(Z1.Real+Z2.Real,ffFixed,6,1);

If (Z1.Imag+Z2.Imag)>=0 then Edit9.Text:=Edit9.Text+'+j'+floatToStrF(Z1.Imag+Z2.Imag,ffFixed,6,1)

else Edit9.Text:=Edit9.Text+'-j'+floatToStrF(-(Z1.Imag+Z2.Imag),ffFixed,6,1);

modul:=SQRT(SQR(Z1.Real+Z2.Real)+SQR(Z1.Imag+Z2.Imag));

if (Z1.Real+Z2.Real)=0 then Angle:=1.57

else if (Z1.Real+Z2.Real)>0 then Angle:=arctan((Z1.Imag+Z2.Imag)/(Z1.Real+Z2.Real))

else Angle:=3.14+arctan((Z1.Imag+Z2.Imag)/(Z1.Real+Z2.Real));

Edit9.Text:=Edit9.Text+'='+floatToStrF(modul,ffFixed,6,1)+'exp('+floatToStrF(Angle,ffFixed,6,1)+'j)';

{Z1-Z2}

If Z1.Imag>=0 then Edit10.Text:=floatToStrF(Z1.Real,ffFixed,6,1)+'+j'+floatToStrF(Z1.Imag,ffFixed,6,1)

else Edit10.Text:=floatToStrF(Z1.Real,ffFixed,6,1)+'-j'+floatToStrF(-Z1.Imag,ffFixed,6,1);

If (-Z2.Real)>=0 then Edit10.Text:=Edit10.Text+'+'+floatToStrF(-Z2.Real,ffFixed,6,1)

else Edit10.Text:=Edit10.Text+floatToStrF(-Z2.Real,ffFixed,6,1);

If (-Z2.Imag)>=0 then Edit10.Text:=Edit10.Text+'+j'+floatToStrF(-Z2.Imag,ffFixed,6,1)

else Edit10.Text:=Edit10.Text+'-j'+floatToStrF(Z2.Imag,ffFixed,6,1);

Edit10.Text:=Edit10.Text+'='+floatToStrF(Z1.Real-Z2.Real,ffFixed,6,1);

If (Z1.Imag-Z2.Imag)>=0 then Edit10.Text:=Edit10.Text+'+j'+floatToStrF(Z1.Imag-Z2.Imag,ffFixed,6,1)

else Edit10.Text:=Edit10.Text+'-j'+floatToStrF(-(Z1.Imag-Z2.Imag),ffFixed,6,1);

modul:=SQRT(SQR(Z1.Real-Z2.Real)+SQR(Z1.Imag-Z2.Imag));

if (Z1.Real-Z2.Real)=0 then Angle:=1.57

else if (Z1.Real-Z2.Real)>0 then Angle:=arctan((Z1.Imag-Z2.Imag)/(Z1.Real-Z2.Real))

else Angle:=3.14+arctan((Z1.Imag-Z2.Imag)/(Z1.Real-Z2.Real));

Edit10.Text:=Edit10.Text+'='+floatToStrF(modul,ffFixed,6,1)+'exp('+floatToStrF(Angle,ffFixed,6,1)+'j)';

{Z1*Z2}

Edit11.Text:=floatToStrF(Z1.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z1.Angle,ffFixed,6,1)+

'j)*'+floatToStrF(Z2.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z2.Angle,ffFixed,6,1)+'j)='+

floatToStrF(Z1.Modul*Z2.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z1.Angle+Z2.Angle,ffFixed,6,1)+'j)='+

floatToStrF(Z1.Modul*Z2.Modul*cos(Z1.Angle+Z2.Angle),ffFixed,6,1);

if sin(Z1.Angle+Z2.Angle)>=0 then Edit11.Text:=Edit11.Text+'+j'+floatToStrF(Z1.Modul*Z2.Modul*sin(Z1.Angle+Z2.Angle),ffFixed,6,1)

else Edit11.Text:=Edit11.Text+'-j'+floatToStrF(-Z1.Modul*Z2.Modul*sin(Z1.Angle+Z2.Angle),ffFixed,6,1);

{Z1/Z2}

Edit12.Text:=floatToStrF(Z1.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z1.Angle,ffFixed,6,1)+

'j)/'+floatToStrF(Z2.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z2.Angle,ffFixed,6,1)+'j)='+

floatToStrF(Z1.Modul/Z2.Modul,ffFixed,6,1)+'exp('+floatToStrF(Z1.Angle-Z2.Angle,ffFixed,6,1)+'j)='+

floatToStrF(Z1.Modul/Z2.Modul*cos(Z1.Angle-Z2.Angle),ffFixed,6,1);

if sin(Z1.Angle-Z2.Angle)>=0 then Edit12.Text:=Edit12.Text+'+j'+floatToStrF(Z1.Modul/Z2.Modul*sin(Z1.Angle-Z2.Angle),ffFixed,6,1)

else Edit12.Text:=Edit12.Text+'-j'+floatToStrF(-Z1.Modul/Z2.Modul*sin(Z1.Angle-Z2.Angle),ffFixed,6,1);

end;

procedure TForm1.MenuExitClick(Sender: TObject);

begin

Form1.Close;

end;

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

begin

if (length(edit1.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (length(edit12.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (length(edit4.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (length(edit5.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (length(edit6.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

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

begin

if (length(edit8.Text)=0) then

if (key in firstdigit) then exit

else key:=#0;

if (Key in Separator)

then Key:=DecimalSeparator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=DecimalSeparator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

procedure TForm1.MenuClearClick(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Edit4.Text:='';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Edit8.Text:='';

Edit9.Text:='';

Edit10.Text:='';

Edit11.Text:='';

Edit12.Text:='';

end;

procedure TForm1.MenuSaveClick(Sender: TObject);

var F: TextFile;

FName: TOpenDialog;

begin

FName:=TOpenDialog.Create(self);

FName.InitialDir := GetCurrentDir;

// Разрешено выбрать только .txt

FName.Filter :='Текстовый файл|*.txt';

// Выбор файлов Паскаля как стартовый тип фильтра

FName.FilterIndex := 1;

// Показ диалог открытия файла

if not FName.Execute then exit;

assignfile(f,FName.FileName);

if not FileExists(FName.FileName) then

begin

Rewrite(f);

CloseFile(f);

end;

Append(f);

Writeln(f,DateTimeToStr(now));

Writeln(f,'Z1+Z2='+edit9.Text);

Writeln(f,'Z1-Z2='+edit10.Text);

Writeln(f,'Z1*Z2='+edit11.Text);

Writeln(f,'Z1/Z2='+edit12.Text);

Flush(f);

CloseFile(f);

// Освобождение диалога

FName.Free;

end;

end.

Размещено на Allbest.ru