Разработка программы для решения комплексных чисел

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=Decimal Separator)and(pos(DecimalSeparator, Edit1.Text)<>0))

then Key:=#0;

end;

procedure TForm1.Edit6KeyPress(Sender: T Object; 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:=Decimal Separator //Delphi-константа типа Char, равная символу-разделителю Windows

else

if (not(Key in Digit))

then Key:=#0;

if ((Key=Decimal Separator)and(pos(Decimal Separator, 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.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Заключение

В результате выполнения курсовой работы были рассмотрены основные понятия комплексных чисел, процесс их вычисления и формулы. Изучена и проанализирована среда разработки Delphi.

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

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

 

 

 

 

 

 

 

 

 

 

 

 

 

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

1. Бобровский, Сергей Delphi 7. Учебный курс; СПб: Питер, 2008. - 736 c.
2. Дарахвелидзе, П.Г.; Марков, Е.П. Delphi 2005 для Win32 наиболее полное руководство; БХВ-Петербург, 2005. - 479 c.
3. Гофман В. Delphi 7. Полное руководство [текст] - Санкт-Петербург, 2002. - 340 с.
4. Кирсанов А.А. Комплексные числа. Псков. 2002 г.
5. Культин, Никита Основы программирования в Delphi 7; СПб: БХВ, 2003. - 608 c.
6. Маркушевич А.И. Комплексные числа и конформные отображения. – М.: Физматгиз.1960.
7. Понамарев, В. Базы данных в Delphi 7. Самоучитель; СПб: Питер, 2003. - 224 c.
8. Сван, Том Секреты 32-разрядного программирования в Delphi (+ дискета); К.: Диалектика, 1997. - 480 c.
9. Сухарев, М.В. Основы Delphi. Профессиональный подход; М.: Наука и техника, 2004. - 600 c.