Приложение "Калькулятор"

Размещено на http://www.allbest.ru

Содержание

1. Постановка задачи

2. Определение свойств и методов

3. Текст программы

4. Результат работы программы

5. Блок-схема

Список литературы

1. Постановка задачи

Разработать структуру объекта «Калькулятор». Объект должен содержать не менее 5 методов и не менее 3 свойств. Разработать программу моделирования работы объекта.

2. Определение свойств и методов

Калькулямтор (лат. calculвtor «счётчик») -- электронное вычислительное устройство для выполнения операций над числами или алгебраическими формулами.

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

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

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

Для калькулятора примем следующее:

калькулятор вычислительный программа

3. Текст программы

unit Unit1;

interface

uses

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

Dialogs, StdCtrls, ExtCtrls;

type Tcalc = class

private

public

state:boolean;{true - включен, false - выключен}

regA,regB:real; {регистры для хранения чисел}

error:integer;{Код ошибки 0 - все ОК, 1 - деление на 0, 2 - переполнение}

errors:array[0..2] of string;

procedure Start;{Включить}

procedure Stop;{Выключить}

procedure clear;{очистка регистров}

procedure add;{складывает содержимое регистров. Результат в регистре А}

procedure mult;{умножает содержимое регистров. Результат в регистре А}

procedure sub;{вычитает содержимое регистров. Результат в регистре А}

procedure divide;{делит содержимое регистров. Результат в регистре А}

end;

type

TForm1 = class(TForm)

Panel1: TPanel;

Memo1: TMemo;

Button1: TButton;

Button2: TButton;

procedure Button2Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure Tcalc.clear;

begin

regA:=0;

regB:=0;

error:=0;

end;

procedure Tcalc.Start;{Включить}

begin

state:=true;

clear;

end;

procedure Tcalc.Stop;{Выключить}

begin

clear;

state:=false;

end;

procedure Tcalc.add;

begin

regA:=regA+regB;

end;

procedure Tcalc.mult;

begin

regA:=regA*regB;

end;

procedure Tcalc.sub;

begin

regA:=regA-regB;

end;

procedure Tcalc.divide;

begin

if regB<>0 then regA:=regA/regB

else error:=1;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var calc:Tcalc;

i:integer;

begin

memo1.Lines.Clear;

calc:=Tcalc.Create;

calc.regA:=10;

memo1.Lines.Add('В регистре А - '+floattostrF(calc.regA,ffFixed,5,3));

calc.regB:=-4.5;

memo1.Lines.Add('В регистре B - '+floattostrF(calc.regB,ffFixed,5,3));

memo1.Lines.Add('Сложение');

calc.add;

memo1.Lines.Add('В регистре А - '+floattostrF(calc.regA,ffFixed,5,3));

memo1.Lines.Add('В регистре B - '+floattostrF(calc.regB,ffFixed,5,3));

memo1.Lines.Add('Вычитаение');

calc.sub;

memo1.Lines.Add('В регистре А - '+floattostrF(calc.regA,ffFixed,5,3));

memo1.Lines.Add('В регистре B - '+floattostrF(calc.regB,ffFixed,5,3));

memo1.Lines.Add('Умножение');

calc.mult;

memo1.Lines.Add('В регистре А - '+floattostrF(calc.regA,ffFixed,5,3));

memo1.Lines.Add('В регистре B - '+floattostrF(calc.regB,ffFixed,5,3));

memo1.Lines.Add('Деление');

calc.divide;

memo1.Lines.Add('В регистре А - '+floattostrF(calc.regA,ffFixed,5,3));

memo1.Lines.Add('В регистре B - '+floattostrF(calc.regB,ffFixed,5,3));

calc.Destroy;

end;

end.

4. Результат работы программы

5. Блок-схема

procedure Tshaver.SetSpeed(s:integer);

begin

speed:=speed+s;

if speed<100 then speed:=100;

if speed>maxspeed then speed:=maxspeed;

end;

Список литературы

1. Алгоритмы и структуры данных с примерами на Паскале / Н. Вирт; пер. с англ. Д.Б. Подшивалова. - 2-е изд. - СПб.: Невский диалект, 2007. - 352 с.

2. Маркова Т.Н. Основы программирования: учеб. пособие / Т.Н. Маркова. - Тула: Изд-во ТулГУ, 2009. - 106 с.

3. Фаронов В.В. Delphi. Программирование на языке высокого уровня: учебник для вузов / В.В. Фаронов. - М.[и др.]: Питер, 2007. - 640 с.

4. Хомоненко А.Д. Delphi 7: [наиболее полное руководство] / А.Д.Хомоненко [и др.]. -СПб.: БХВ-Петербург, 2007. - 1216 с.

Размещено на Allbest.ru