Основные данные о работе

 

     Содержание

      Введение 3

      Основная  часть 4

      1Описание  программы 4

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

      Заключение 28

      Глоссарий 30

      Список  использованных источников 31

      Приложения 32

     Введение

      Программы, работающие на компьютере, можно разделить на три категории:

1. Прикладные программы, непосредственно обеспечивающие выполнение необходимых пользователям работ: редактирование текстов, рисование, обработку информационных массивов и т.д.
2. Системные программы, выполняющие различные вспомогательные функции, например диагностика компьютера или резервное копирование информации.
3. Инструментальные системы (системы программирования), обеспечивающие создание новых программ.

      Данные  категории программ в свою очередь  так – же разделяются на несколько разделов. Например, прикладные программы можно разделить по уровню сложности обработки информации и результатов. Для математических вычислений существует множество различных програмных продуктов. Это известные всем пакеты MathCad, MathLab, Mathematika, Axum. Есть и более порстые: всевозможные программы – калькуляторы (имитирующие работу обычного калькулятора). В среде Windows есть такая программа (Calc.exe), по аналогии с ней было сделано данное задание.

      Задание

      Написать  программу «Калькулятор». Использовать одно поле для ввода операторов и для вывода результата. Предусмотреть возможность выбора типа калькулятора: обычный или инженерный. С помощью инженерного можно вычислять: тригонометрические функции (для углов в градусах и радианах), возведение в степень, факториал, логарифм, экспоненту, целочисленное деление и т.п.

     Основная часть

      1Описание программы

 

      Программа Calc for win (calc4win.exe) разработана в среде Delphi версии 6.

      Для хранения данных в программе используются глобальные переменные типа string, char, real, integer.

      Вывод рисунка из файла на диске в  форму осуществляется с помощью  процедуры LoadFromFile(Name).

      Вывод текстовой информации из файла помощи Help.txt производится процедурой Form2.Memo1.lines.Add(s).

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

 

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

 

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

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

      Программа Calc for win имеет два режима работы: Обычный и Инженерный, которые можно выбрать в меню Вид.

      В Обычном режиме калькулятор вычисляет  только четыре элементарные функции (сложение, вычитание, умножение и деление).

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

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

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

• В меню Вид выберите Обычный или нажмите клавишу F2;

• Введите первое число;
• Нажмите кнопку + (сложение), - (вычитание), * (умножение) или / (деление);
• Введите следующее число;
• Введите необходимый оператор;
• Введите остальные числа и операторы;
• Нажмите кнопку =.

2. Выполнение инженерных вычислений:

• В меню Вид выберите Инженерный или нажмите клавишу F3;
• Выберите систему счисления;
• Введите первое число;
• Выберите нужный оператор;
• Введите следующее число;
• Введите остальные операторы и числа;
• Нажмите кнопку =.

 

      3Программный код

 

      interface 

      uses

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

       Dialogs, StdCtrls, ExtCtrls; 

      type

       TForm5 = class(TForm)

       Edit1: TEdit;

       Edit2: TEdit;

       Button1: TButton;

       Button2: TButton;

         .

         .

        Button39: TButton;

       Label1: TLabel;

       Label2: TLabel;

       Bevel1: TBevel;

       Bevel2: TBevel;

       Bevel3: TBevel;

       Bevel4: TBevel;

       Bevel5: TBevel;

       Bevel6: TBevel;

       Bevel7: TBevel;

       Bevel8: TBevel;

       RadioGroup1: TRadioGroup;

       RadioButton1: TRadioButton;

       RadioButton2: TRadioButton;

       procedure Button1Click(Sender: TObject);

                  .

                  .

       procedure Button39Click(Sender: TObject);

       procedure RadioButton1Click(Sender: TObject);

       procedure RadioButton2Click(Sender: TObject); 

       private

       { Private declarations } 

       public

       { Public declarations } 

       end; 

      var

       Form5: TForm5;

       s,s1,c:string;t,i,j:integer;

       x,y,z,m,f:real;cf:char; 

      implementation

      {$R *.dfm} 
 

      procedure operat(x,y:real;c:string;var z:real);

       begin

       if c='+' then z:=x+y;

       if c='-' then z:=x-y;

       if c='*' then z:=x*y;

        if c='x^y' then z:=exp(y*ln(x));

       if (c='/') then

       if (y<>0) then z:=x/y else

       messagedlg('На 0 делить нельзя',mterror,[mbok],0);

        if c='' then z:=y;

       end; 

       procedure okr(var c:string);

       var i,j:integer;x:real;

      begin

       i:=length(c); j:=i;

       while copy(c,j,1)='0' do

      begin

       delete(c,j,1);

       j:=j-1;

      end;

       val(c,x,i);

       if (x>1E+16) or (x<-1E+16) then

      begin

       s:=' 0';

       messagedlg('Слишком большое чиссло',mtcustom,[mbok],0);

      end;

      end;

       

       procedure o(p:string; var c,c1:string);

      begin

       if length(c)<16 then

      begin

       c:=c+p;c1:=c;

      end;

      end;

 

       procedure TForm5.Button10Click(Sender: TObject);

      begin

      o('0',s,s1);

       edit1.text:=(' '+s)

      end; 

      procedure TForm5.Button1Click(Sender: TObject);

      begin

       o('1',s,s1);

       edit1.text:=(' '+s)

      end;

            .

            .

            .

      procedure TForm5.Button9Click(Sender: TObject);

      begin

      o('9',s,s1);

       edit1.text:=(' '+s)

      end; 
 
 

      procedure TForm5.Button20Click(Sender: TObject);

      begin

      if copy(s,1,1)='-'

       then delete(s,1,1)

       else s:='-'+s ;

       s1:=s;

       edit1.text:=(' '+s)

      end;

      procedure TForm5.Button16Click(Sender: TObject);

      begin

      val(s1,y,i);

       operat(x,y,c,z);

       x:=z; c:='+';

       str(z:6:6,s); okr(s);

       edit1.text:=(' '+s);

       s:='' ;t:=0;

      end; 

      procedure TForm5.Button21Click(Sender: TObject);

      begin

       val(s1,y,i);

       operat(x,y,c,z);

       x:=z; c:='-';

       str(z:6:6,s);okr(s);

       edit1.text:=(' '+s);

       s:='' ;t:=0;

      end; 

      procedure TForm5.Button15Click(Sender: TObject);

      begin

      val(s1,y,i);

       operat(x,y,c,z);

       x:=z; c:='*';

       str(z:6:6,s);okr(s);

       edit1.text:=(' '+s);

       s:='';t:=0;

      end;

 

       procedure TForm5.Button14Click(Sender: TObject);

      begin

      val(s1,y,i);

       operat(x,y,c,z);

       x:=z; c:='/';

       str(z:6:6,s); okr(s);

       edit1.text:=(' '+s);

       s:='';t:=0;

      end; 

      procedure TForm5.Button26Click(Sender: TObject);

      begin

      val(s1,y,i);

       z:=y*y;

       str(z:6:6,s);okr(s);s1:=s;