Приложение 'Калькулятор'
Содержание
1.
Постановка задачи
2.
Определение свойств и методов
3.
Текст программы
4.
Результат работы программы
5.
Блок-схема
Список
литературы
1.
Постановка задачи
Разработать
структуру объекта «Калькулятор». Объект должен содержать не менее 5 методов и
не менее 3 свойств. Разработать программу моделирования работы объекта.
.
Определение свойств и методов
Калькуля́тор (лат.
calculātor
«счётчик»)
- электронное вычислительное устройство для выполнения операций над числами или
алгебраическими формулами.
Калькулятор
заменил ручные (механические) вычислительные устройства и приспособления, такие
как абаки, счёты, математические таблицы (прежде всего - таблицы логарифмов),
логарифмические линейки, механические или электромеханические арифмометры.
В
зависимости от возможностей и целевой сферы применения калькуляторы делятся на
простейшие, бухгалтерские, инженерные (научные), финансовые. В отдельные классы
обычно выделяют программируемые калькуляторы, дающие возможность выполнения
сложных вычислений по предварительно заложенной программе, а также графические
- поддерживающие построение и отображение графиков. Специализированные
калькуляторы предназначены для выполнения вычислений в достаточно узкой сфере
(статистические, медицинские, специальные финансовые расчёты и т. п.); такие
калькуляторы сейчас чаще реализуются в виде программ для универсальных
персональных компьютеров, КПК, планшетов, хотя могут изготавливаться и «в
железе».
По
исполнению калькуляторы могут быть настольными или компактными (карманными).
Отдельные модели имеют интерфейсы для подключения персонального компьютера,
печатающего устройства, внешнего модуля памяти или иных внешних устройств.
Существуют калькуляторы, встроенные в персональные компьютеры, сотовые
телефоны, КПК и даже наручные часы. Специализированные калькуляторы
встраиваются в бытовую технику (например, простой медицинский калькулятор может
встраиваться в спортивный тренажёр).
Для
калькулятора примем следующее:
Свойства
|
Методы
|
state:boolean;{true
- включен, false - выключен}
|
Включить
|
Регистры
|
Код
ошибки
|
Обработать
ошибку
|
Свойство
реального объекта
|
Название
поля
|
Тип
данных
|
state:boolean;{true
- включен, false - выключен}
|
State
|
boolean
|
Регистры
|
regA,regB
|
Real
|
Код
ошибки
|
Error
|
Integer
|
калькулятор вычислительный программа
3. Текст программы
Unit1;
interface, Messages, SysUtils,
Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls;Tcalc = class
private:boolean;{true - включен, false -
выключен},regB:real; {регистры для хранения чисел}:integer;{Код ошибки 0 - все
ОК, 1 - деление на 0, 2 - переполнение}
errors:array[0..2] of string;Start;{Включить}Stop;{Выключить}
TForm1 = class(TForm): TPanel;:
TMemo;: TButton;: TButton;Button2Click(Sender: TObject);Button1Click(Sender:
TObject);
{ Private declarations }
{ Public declarations };: TForm1;
{$R *.dfm}Tcalc.clear;
begin:=0;:=0;:=0;;
procedure
Tcalc.Start;{Включить}:=true;;;Tcalc.Stop;{Выключить};:=false;;Tcalc.add;:=regA+regB;;Tcalc.mult;:=regA*regB;;Tcalc.sub;:=regA-regB;;Tcalc.divide;
if regB<>0 then
regA:=regA/regB
else error:=1;;
procedure
TForm1.Button2Click(Sender: TObject);
begin;;
procedure
TForm1.Button1Click(Sender: TObject);
var calc:Tcalc;:integer;
memo1.Lines.Clear;:=Tcalc.Create;.regA:=10;.Lines.Add('В
регистре
А
- '+floattostrF(calc.regA,ffFixed,5,3));.regB:=-4.5;.Lines.Add('В
регистре
B - '+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add('Сложение');.add;.Lines.Add('В
регистре
А
- '+floattostrF(calc.regA,ffFixed,5,3));.Lines.Add('В
регистре
B - '+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add('Вычитаение');.sub;.Lines.Add('В
регистре
А
- '+floattostrF(calc.regA,ffFixed,5,3));.Lines.Add('В
регистре
B - '+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add('Умножение');.mult;.Lines.Add('В
регистре
А
- '+floattostrF(calc.regA,ffFixed,5,3));.Lines.Add('В
регистре
B - '+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add('Деление');.divide;.Lines.Add('В
регистре
А
- '+floattostrF(calc.regA,ffFixed,5,3));.Lines.Add('В
регистре
B - '+floattostrF(calc.regB,ffFixed,5,3));
calc.Destroy;;.
. Результат работы программы
. Блок-схема
Tshaver.SetSpeed(s:integer);:=speed+s;speed<100
then speed:=100;speed>maxspeed then speed:=maxspeed;
end;
1.
Алгоритмы и структуры данных с примерами на Паскале / Н. Вирт; пер. с англ.
Д.Б. Подшивалова. - 2-е изд. - СПб.: Невский диалект, 2007. - 352 с.
.
Маркова Т.Н. Основы программирования: учеб. пособие / Т.Н. Маркова. - Тула:
Изд-во ТулГУ, 2009. - 106 с.
.
Фаронов В.В. Delphi. Программирование на языке высокого уровня: учебник для
вузов / В.В. Фаронов. - М.[и др.]: Питер, 2007. - 640 с.
.
Хомоненко А.Д. Delphi 7: [наиболее полное руководство] / А.Д.Хомоненко [и др.].
-СПб.: БХВ-Петербург, 2007. - 1216 с.