Разработка и проектирование приложения «Калькулятор комплексных чисел»

Автор работы: Пользователь скрыл имя, 05 Декабря 2013 в 18:33, курсовая работа

Краткое описание

Задачи:
рассмотреть основы вычисления комплексных чисел
изучить и проанализировать среду разработки Delphi;
разработать приложение в среде Delphi, реализующее возможности операций с комплексными числами.

Содержание

Введение. 2
1. Исследование предметной области поставленной задачи. 4
1.2. Среда программирования Delphi. 7
2. Разработка программы для решения комплексных чисел. 11
2.1. Проектирование графического интерфейса. 11
2.2. Разработка программного обеспечения. 15
2.3. Руководство пользователя для «Калькулятора комплексных чисел». 18
Заключение 20
Список использованной литературы. 21

Вложенные файлы: 1 файл

Комплексные числа.docx

— 264.65 Кб (Скачать файл)

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.

 


Информация о работе Разработка и проектирование приложения «Калькулятор комплексных чисел»