Создание программы «Калькулятор»

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

Данная программа предназначена для выполнения математических вычислений, имитируя действия калькулятора. Для работы с ней нужно запустить файл Калькулятор.exe. Аппаратные требования: мышь/клавиатура. Системные требования: 486 или совместимый процессор, 16 Mb RAM, ОС Windows9x. Для работы программы требуется 1003 kb дискового пространства.

Для начала работы нужно запустить исполнимый файл Калькулятор.exe.

Инструкция по эксплуатации программы:

Выполнение простых вычислений:

1.Откройте программу калькулятор;

2.Введите первое число;

3.Нажмите кнопку + (сложение), - (вычитание), * (умножение) или / (деление);

4.Введите следующее число;

5.Нажмите кнопку =.

6. Листинг программы

unit Catman;

interface

uses

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

  Dialogs, Menus, jpeg, ExtCtrls, StdCtrls, Buttons;

type

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N2: TMenuItem;

    N3: TMenuItem;

    N4: TMenuItem;

    N5: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    Edit1: TEdit;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    BitBtn4: TBitBtn;

    BitBtn5: TBitBtn;

    BitBtn6: TBitBtn;

    BitBtn7: TBitBtn;

    BitBtn8: TBitBtn;

    BitBtn9: TBitBtn;

    BitBtn10: TBitBtn;

    BitBtn11: TBitBtn;

    BitBtn12: TBitBtn;

    BitBtn13: TBitBtn;

    BitBtn14: TBitBtn;

    BitBtn15: TBitBtn;

    BitBtn16: TBitBtn;

    BitBtn17: TBitBtn;

    BitBtn18: TBitBtn;

    BitBtn21: TBitBtn;

    BitBtn22: TBitBtn;

    BitBtn23: TBitBtn;

    BitBtn24: TBitBtn;

    Image1: TImage;

    Edit2: TEdit;

    SpeedButton1: TSpeedButton;

    SpeedButton2: TSpeedButton;

    procedure N4Click(Sender: TObject);

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

    procedure BitBtn4Click(Sender: TObject);

    procedure BitBtn5Click(Sender: TObject);

    procedure BitBtn6Click(Sender: TObject);

    procedure BitBtn7Click(Sender: TObject);

    procedure BitBtn8Click(Sender: TObject);

    procedure BitBtn9Click(Sender: TObject);

    procedure BitBtn10Click(Sender: TObject);

    procedure BitBtn18Click(Sender: TObject);

    procedure BitBtn11Click(Sender: TObject);

    procedure BitBtn12Click(Sender: TObject);

    procedure BitBtn16Click(Sender: TObject);

    procedure BitBtn15Click(Sender: TObject);

    procedure BitBtn14Click(Sender: TObject);

    procedure BitBtn13Click(Sender: TObject);

    procedure BitBtn17Click(Sender: TObject);

    procedure BitBtn20Click(Sender: TObject);

    procedure BitBtn21Click(Sender: TObject);

    procedure BitBtn22Click(Sender: TObject);

    procedure BitBtn23Click(Sender: TObject);

    procedure BitBtn24Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure N7Click(Sender: TObject);

    procedure SpeedButton1Click(Sender: TObject);

    procedure SpeedButton2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

  kod: char;

  x, y, z : real;

implementation

uses Unit2;

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'1';

edit1.Clear;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'2';

edit1.Clear;

end;

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'3';

edit1.Clear;

end;

procedure TForm1.BitBtn4Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'4';

edit1.Clear;

end;

procedure TForm1.BitBtn5Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'5';

edit1.Clear;

end;

procedure TForm1.BitBtn6Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'6';

edit1.Clear;

end;

procedure TForm1.BitBtn7Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'7';

edit1.Clear;

end;

procedure TForm1.BitBtn8Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'8';

edit1.Clear;

end;

procedure TForm1.BitBtn9Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'9';

edit1.Clear;

end;

procedure TForm1.BitBtn10Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+'0';

edit1.Clear;

end;

procedure TForm1.BitBtn18Click(Sender: TObject);

begin

edit2.Text:=edit2.Text+',';

edit1.Clear;

end;

procedure TForm1.BitBtn11Click(Sender: TObject);

begin

edit1.Clear;

edit2.Clear;

end;

procedure TForm1.BitBtn12Click(Sender: TObject);

begin

close;

end;

procedure TForm1.BitBtn16Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.text);

kod := '+';

edit2.Clear;

end;

procedure TForm1.BitBtn15Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.text);

kod := '-';

edit2.Clear;

end;

procedure TForm1.BitBtn14Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.text);

kod := '*';

edit2.Clear;

end;

procedure TForm1.BitBtn13Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.text);

kod := '/';

edit2.Clear;

end;

procedure TForm1.BitBtn17Click(Sender: TObject);

begin

if edit2.Text<>'' then  y:=strtofloat(edit2.text);

case kod of

    '+': z:=x+y;

    '-': z:=x-y;

    '*': z:=x*y;

    '/': z:=x/y;

    end ;

edit1.Text:=floattostr(z);

edit2.Clear;

end;

procedure TForm1.BitBtn20Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.Text);

     edit2.clear;

     z:=sqr(x);

     edit1.Text:=floattostr(z);

end;

procedure TForm1.BitBtn21Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.Text);

     x:=(x*3.14)/180;

     edit2.Clear;

     z:=sin(x);

     edit1.Text:=floattostr(z);

end;

procedure TForm1.BitBtn22Click(Sender: TObject);

begin

if edit2.Text<>'' then  x:=strtofloat(edit2.Text);

     x:=(x*3.14)/180;

     edit2.Clear;

     z:=cos(x);

     edit1.Text:=floattostr(z)

end;

procedure TForm1.BitBtn23Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.Text);

     x:=(x*3.14)/180;

     edit2.Clear;

     z:=sin(x)/cos(x);

     edit1.Text:=floattostr(z) ;

end;

procedure TForm1.BitBtn24Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.Text);

     x:=(x*3.14)/180;

     edit2.Clear;

     z:=cos(x)/sin(x);

     edit1.Text:=floattostr(z)

end;

procedure TForm1.N5Click(Sender: TObject);

begin

Edit1.CopyToClipboard;

Edit2.CopyToClipboard;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

Edit1.PasteFromClipboard;

Edit2.PasteFromClipboard;

end;

procedure TForm1.N7Click(Sender: TObject);

begin

form2.show;

end;

procedure TForm1.SpeedButton1Click(Sender: TObject);

begin

if edit2.Text<>'' then  x:=strtofloat( edit2.Text);

     edit2.clear;

     z:=sqrt(x);

     edit1.Text:=floattostr(z);

end;

procedure TForm1.SpeedButton2Click(Sender: TObject);

begin

if edit2.Text<>'' then x:=strtofloat(edit2.Text);

     edit2.clear;

     z:=sqr(x);

     edit1.Text:=floattostr(z);

end;

end.

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls, jpeg, ExtCtrls;

type

  TForm2 = class(TForm)

    Image1: TImage;

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Close;

end;

end.

Заключение

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

Выполнив курсовую работу, я убедился, что язык программирования Delphi позволяет создавать программы, способные решить задачи, связанные с обработкой, компоновкой и выводом информации в различных видах. Особенно важен вывод информации, так как он позволяет легко ориентироваться и делать различные анализы (прогнозы). Впервые создавал программу такой сложности на языке программирования Delphi, я освоил некоторые методы программирования. Особо важен при написании программы отладчик (Debuger), который контролирует ход выполнения программы и отдельных операторов различными способами, что позволяет смотреть и изменять промежуточные значения, которые влияют на конечный результат. Также были углублены и закреплены знания по алгоритмизации, программированию и решению в интегрированной визуальной среде программирования Delphi задач по экономике и управлению на предприятии.

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

1.                  Архангельский А.Я. Программирование в Delphi 6 ––М.: ЗАО «Издательство БИНОМ», 2002г. – 1200 с.

2.                  Кандзюба С.П., Громов В.Н. Delphi 6. Базы данных и приложения. Лекции и упражнения. – К.: Издательство «ДинСофт», 2001. – 576 с.

3.                  Фаронов В.В. Delphi 6. Учебный курс. Издательство Молгачев С.В., 2001. – 672с.

4.                  Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. – Мн.; БГУИР, 1998. – 94 с.

5.                  Основы информатики и вычислительной техники. Методические указания к выполнению курсовой работы для студентов факультета предпринимательства и управления специальности Э 03. 02. 00 «Экономическая информатика». Фурунжиев Р.И. – Ротапринт БАТУ, Мн.: 2000. – 25 с.

6.                  Архангельский А.Я. Программирование в Delphi 6 ––М.: ЗАО «Издательство БИНОМ», 2002г. – 1200 с.

7.                  Кандзюба С.П., Громов В.Н. Delphi 6. Базы данных и приложения. Лекции и упражнения. – К.: Издательство «ДинСофт», 2001. – 576 с.

8.                  Фаронов В.В. Delphi 6. Учебный курс. Издательство Молгачев С.В., 2001. – 672с.

9.                  Программирование в среде Delphi: Лабораторный практикум для студентов всех специальностей. Под общей редакцией Синицына А.К. – Мн.; БГУИР, 1998. – 94 с.

10.             Основы информатики и вычислительной техники. Методические указания к выполнению курсовой работы для студентов факультета предпринимательства и управления специальности Э 03. 02. 00 «Экономическая информатика». Фурунжиев Р.И. – Ротапринт БАТУ, Мн.: 2000. – 25 с.

Приложение

К данному курсовому проекта прилагается  носитель информации (CD-R диск, 700Mb) с электронной версией пояснительной записки, полученным Windows-приложением (файл Калькулятор.exe), исходными текстами программы (файл Project1.pas), а также другими необходимыми файлами для компиляции приложения.

13