gt;
Розділ II. Практична частина Створення програми Найпростіший калькулятор
У середовищі Lazarus на мові програмування Pascal, я в своїй роботі зроблю програму Калькулятор .
Калькулятор (лат. calcul? tor лічильник ) - електронне обчислювальний пристрій для виконання операцій над числами або алгебраїчними формулами.
Рис. 1 - Програма калькулятор до запуску. Початковий вигляд.
Для початку я створюю приблизну форму, як виглядатиме надалі мій калькулятор. Додаю в форму 8 кнопки (Button1,2,3,4,56,7,8). Вони виконуватимуть функції (додавання, віднімання, множення, ділення, знаходження синуса, косинуса квадрата і кореня квадратного). Так само у формі є дві кнопки (Label1,2). Вони призначені для виведення готових даних на екран. Кнопки Edit1,2 відповідають за введення числових даних, які необхідно розрахувати.
Для того, щоб змусити кнопку + складати дані, кнопку sin знаходити кут альфа, необхідно знати коди програмування.
Для операції додавання програмний код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, b, c: Single ;:=StrToFloat (Edit1. Text) ;:=StrToFloat (Edit2. Text) ;:=a + b ;. Caption:=FloatToStr (c) ;;
Для операції віднімання програмний код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, b, c: Single ;:=StrToFloat (Edit1. Text) ;:=StrToFloat (Edit2. Text) ;:=ab ;. Caption:=FloatToStr (c) ;;
Для операції твір програмний код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, b, c: Single ;:=StrToFloat (Edit1. Text) ;:=StrToFloat (Edit2. Text) ;:=a * b ;. Caption:=FloatToStr (c) ;;
Для знаходження sin кута код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, c: Single ;:=StrToFloat (Edit1. Text) ;:=sin (a) ;. Caption:=FloatToStr (c) ;;
Для знаходження cos кута код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, c: Single ;:=StrToFloat (Edit1. Text) ;:=cos (a) ;. Caption:=FloatToStr (c);
end;
Для знаходження квадрата код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, c: Single ;:=StrToFloat (Edit1. Text) ;:=SQR (a) ;. Caption:=FloatToStr (c) ;;
Для знаходження квадратного кореня код буде виглядати так:
Procedure TForm1. Button1. Click (Sender: TObject); a, c: Single ;:=StrToFloat (Edit1. Text) ;:=SQRT (a) ;. Caption:=FloatToStr (c);
end;
На ділі в самому Lazarus-e вихідний програми буде виглядати наступним чином:
Рис. 2 - Вихідний код програми Калькулятор .
Необхідно звернути увагу на команду Single raquo ;. Вона вважає цілі числа. А команда Real крім цілих, вважає ще й дробові числа. Так само слід зауважити, що після кожної команди не варто забувати ставити знак laquo ;; raquo ;, інакше при компіляції буде виходити синтаксична помилка.
У Lazarus-e також можна міняти властивості об'єктів:
1) Name - (програмне ім'я об'єкта);
2) Height - (ширина об'єкта);
) Left, Top - (положення об'єкта відносно кордону; вліво і вгору);
4) Caption - (редаговане ім'я об'єкта);
) Font - редагування (розміру, шрифту, курсиву, підкреслення і т.д.) тексту;
6) Text (редагована напис на об'єкті;
7) Image (вставка картинки за вибором користувача).
Після завершення редагування та написання вихідного коду програми необхідно зробити компіляцію. Робиться вона за допомогою натискання кнопки F9 raquo ;. Якщо все зроблено правильно, компіляція завершиться успішно і відкриється створена користувачем програма.
Якщо ж компіляція з якоїсь причини завершується некоректно, програма сама виділить в діалоговому вікні можливе місце, де швидше за все допущена помилка. Тому слід бути уважним при складанні програми. Будь-яка синтаксична помилка (відсутність точки, крапки з комою, зайвий знак, або цифра у вихідному коді) веде до неправильної компіляції.
Рис. 3 - Програма Калькулятор післ...
