Зміст
1. Постановка завдання
2. Визначення властивостей і методів
3. Текст програми
4. Результат роботи програми
5. Блок-схема
Список літератури
1. Постановка завдання
Розробити структуру об'єкта «Калькулятор». Об'єкт повинен містити не менше 5 методів і не менше 3 властивостей. Розробити програму моделювання роботи об'єкта.
. Визначення властивостей і методів
Калькулят? тор (лат. calcul? tor «лічильник») - електронне обчислювальний пристрій для виконання операцій над числами або алгебраїчними формулами.
Калькулятор замінив ручні (механічні) обчислювальні пристрої і пристосування, такі як абаки, порахунки, математичні таблиці (насамперед - таблиці логарифмів), логарифмічні лінійки, механічні або електромеханічні арифмометри.
Залежно від можливостей і цільової сфери застосування калькулятори діляться на найпростіші, бухгалтерські, інженерні (наукові), фінансові. В окремі класи зазвичай виділяють програмовані калькулятори, що дають можливість виконання складних обчислень за попередньо закладеною програмою, а також графічні - підтримуючі побудова та відображення графіків. Спеціалізовані калькулятори призначені для виконання обчислень в досить вузькій сфері (статистичні, медичні, спеціальні фінансові розрахунки і т. П.); такі калькулятори зараз частіше реалізуються у вигляді програм для універсальних персональних комп'ютерів, КПК, планшетів, хоча можуть виготовлятися і «в залізі».
По виконання калькулятори можуть бути настільними або компактними (кишеньковими). Окремі моделі мають інтерфейси для підключення персонального комп'ютера, друкувального пристрою, зовнішнього модуля пам'яті чи інших зовнішніх пристроїв. Існують калькулятори, вбудовані в персональні комп'ютери, мобільні телефони, КПК і навіть наручний годинник. Спеціалізовані калькулятори вбудовуються в побутову техніку (наприклад, простий медичний калькулятор може вбудовуватися в спортивний тренажер).
Для калькулятора приймемо наступне:
СвойстваМетодиstate: boolean; {true - включений, false - вимкнений} ВключітьРегістриВиполніть действіеКод ошібкіОбработать помилку
Властивість реального об'ектаНазваніе поля Тип даннихstate: boolean; {true - включений, false - вимкнений} StatebooleanРегістриregA, regBRealКод ошібкіErrorInteger калькулятор обчислювальний програма
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; {Вимкнути}
procedure clear; {очищення регістрів} add; {складає вміст регістрів. Результат в регістрі А} mult; {примножує вміст регістрів. Результат в регістрі А} sub; {віднімає вміст регістрів. Результат в регістрі А} divide; {ділить вміст регістрів. Результат в регістрі А};
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 lt; gt; 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 - raquo;+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add(laquo;Сложениеraquo;);.add;.Lines.Add(laquo;В регістрі А - + floattostrF (calc.regA, ffFixed, 5,3)) ;. Lines.Add ( У регістрі B - raquo;+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add(laquo;Вычитаениеraquo;);.sub;.Lines.Add(laquo;В регістрі А - + floattostrF (calc.regA, ffFixed, 5,3)) ;. Lines.Add ( У регістрі B - raquo;+floattostrF(calc.regB,ffFixed,5,3));.Lines.Add(laquo;Умножениеraquo;);.mult;.Lines.Add(laquo;В регістрі А - + floattostrF (calc.regA, ffFixed, 5,3)) ;. Lines...
