Простой калькулятор

     end;

     procedure TForm1.PoleChange(Sender: TObject);

     begin

       if Pole.Text='' then

     begin

     Button5.Enabled:=false;

     end else

     begin

     Button5.Enabled:=true;

     end;

     end;

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

     var

       back: string;

     begin

       if Button5.Enabled then Button5.SetFocus;

       if key='1' then pole.Text:= pole.Text+'1';

       if key='2' then pole.Text:= pole.Text+'2';

       if key='3' then pole.Text:= pole.Text+'3';

       if key='4' then pole.Text:= pole.Text+'4';

       if key='5' then pole.Text:= pole.Text+'5';

       if key='6' then pole.Text:= pole.Text+'6';

       if key='7' then pole.Text:= pole.Text+'7';

       if key='8' then pole.Text:= pole.Text+'8';

       if key='9' then pole.Text:= pole.Text+'9';

       if key='0' then pole.Text:= pole.Text+'0';

       if key='+' then pole.Text:= pole.Text+'+';

       if key='-' then pole.Text:= pole.Text+'-';

       if key='*' then pole.Text:= pole.Text+'*';

       if key='/' then pole.Text:= pole.Text+'/';

       back:=Pole.Text;

       if key=#8 then delete(back,length(back),1);

       pole.Text:=back;

     end;

     procedure TForm1.N2Click(Sender: TObject);

     begin

     Close;

     end;

     procedure TForm1.N4Click(Sender: TObject);

     begin

     Form2.Top :=

     Trunc(Form1.Top + Form1.Height/2 - Form2.Height/2);

     Form2.Left :=

     Trunc (Form1.Left + Form1.Width/2 - Form2.Width/2);

     Form2.ShowModal;

     end;

     end.

     unit Unit2;

     interface

     uses

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

       Dialogs, StdCtrls, Menus, jpeg, ExtCtrls;

     type

       TForm2 = class(TForm)

         Label1: TLabel;

         Label2: TLabel;

         MainMenu1: TMainMenu;

         N1: TMenuItem;

         Label5: TLabel;

         procedure N1Click(Sender: TObject);

         procedure Label1Click(Sender: TObject);

         procedure Label2Click(Sender: TObject);

         procedure Label5Click(Sender: TObject);

       private

         { Private declarations }

       public

         { Public declarations }

       end;

     var

       Form2: TForm2;

     implementation

     {$R *.dfm}

     procedure TForm2.N1Click(Sender: TObject);

     begin

     Close;

     end;

     procedure TForm2.Label1Click(Sender: TObject);

     begin

     end;

     procedure TForm2.Label2Click(Sender: TObject);

     begin

     end;

     procedure TForm2.Label5Click(Sender: TObject);

     begin

     end;

     end.

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

     Программа «Калькулятор» исходный файл которой Calculator.exe разработана в Системе  программирования – Delphi.

     Системные требования: ОС Windows/98/ME/2000/XP/Vista/7

     Pentium II/Ш/4, ОЗУ 64 Мб, Delphi 5/6/7.

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

     Описание. Поставленная задача является ярким примером использование алгоритмов с применением условных операторов с одной ветвью (с применением If (условие) Then).

     Входные данные. Любые числа представленные в виде  вещественного типа данных, положительные и отрицательные.

     Выходные  данные. Числа вещественного типа данных.

5. Тестирование  программы

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

     Графические результаты тестирования программы  смотрите в Приложении Б.

6. Внедрение

1. Условия выполнения программы

     Для выполнения программы требуется  минимум:

     Pentium II и выше;

     Объем оперативной памяти не менее 64 Мб;

     Жесткий диск не менее 600 Мб;

     2. Выполнение программы

     Запуск  «Calculator.exe» - > на экран появляется окно, аналогичное простейшему калькулятору.

     3. Сообщение оператору

     При делении на ноль программа выдает ошибку, пример изображен на Рисунке 5

     

     Рисунок 5-Ошибка при делении на ноль

     Заключение

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

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

     Данная  программа является типичным примером реализации простейших программ созданных для Windows с помощью Delphi.⁵

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

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

     В результате выполнения данной курсовой работы, мы убедились в широких возможностях языка программирования Delphi и закрепили практические навыки программирования в этой среде.

     Глоссарий

№ п/п	Новое понятие	Содержание
	Windows	операционная  система, обеспечивающая основные функции  управления персональным компьютером  и взаимодействия с пользователем
	Интерфейс   пользователя   и компьютера	организация взаимодействия между пользователем и выполняемой программой
	Испытания системы	проверка, которая  состоит в том, чтобы показать, что система функционирует в  соответствии с разработанными на нее  спецификациями
	Меню	способ проведения диалога, когда на экран (дисплей) выводится  информация в виде списка альтернатив, а пользователь выбирает нужный пункт
	Модуль	автономно компилируемая  программная единица, включающая в себя различные компоненты раздела описаний
	Опция меню	элемент, который отображается в выпадающем списке, когда выбирается определенное меню
	Опция подменю	опция меню, которая отображается в списке после выбора подменю
	Ошибка	сообщение о  том, что работа программного комплекса (процесса) прервана, так как введенные пользователем входные данные не могут быть обработаны
	Процедура	понятие, определяющее аппарат подпрограмм; часть программы, предназначенная для решения определенной задачи или подзадачи
1	Рекурсивная   процедура	процедура, которая  обращается к самой себе
	Тег	набор символов, идентифицирующий элемент документа  и указывающий браузеру способ отображения этого элемента
	Тестирование	действия по контролю правильности функционирования программы
	Технология    программирования	система методов, способов и приемов обработки  и выдачи информации
	Технология   нисходящего   структурного   программирования	технология, которая  позволяет проектировать и кодировать программный комплекс таким образом, чтобы предотвратить большинство  ошибок и обнаружить те, которые  допущены
	Фактические   параметры	реальные объекты  программы, заменяющие в теле процедуры при ее вызове формальные параметры
	Форма	рабочий лист, содержащий текст приложения

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

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

	Internet шаг за шагом [Электронный ресурс] : учебник. - СПб. : ПитерКом, 1997. - Электрон. дан. и программа. - 1 электрон. опт. диск (CD-ROM) + прил. (127 с.).
	Архангельский А.Я. «Приемы программирования в Delphi».: Издательство «Бином-Пресс» 2006г. -944 стр. –ISBN 5-9518-0145-1
	А. Шкрыль «Delphi.Народные советы».: Издательство BHV-СПБ 2007г. – 400стр. – ISBN 5-9775-0047-5
	Бобровский  С.И. Delphi7. Учебный курс. – СПб.: Питер, 2003. – 736 с.
	Г.В. Галисеев «Компоненты в Delphi 7».: Издательство «Вильямс» 2004г. - 624стр. –ISBN 5-8459-0555-9
	Информатика. Базовый курс. 2-е издание/Под ред. С.В. Симоновича. – СПб.: Питер, 2005. – 640 с.
	Иллюстрированный  самоучитель по Delphi 7 для начинающих
	Культин Н.Б. «Основы программирования в Delphi 7».: Издательство BHV
	Лабзина Т.А. Алгоритмические языки и программирование Юнита 5. Издательство НОУ СГУ, 1999.
	Программирование  на языке высокого уровня, юнита 4, часть 2. Разработка приложений на языках Delphi И Visual Basic
	С.И. Бобровский «Delphi 7 Учебный курс».: Издательство «Питер» 2004. - 736 с. – ISBN 5-8046-0086-9

     Приложения

А	Блок-схема  алгоритма к знаку «=»
Б	=   Графические результаты тестирования программы