Раздел 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);
var a, b, c: Single;
begin
a:= StrToFloat (Edit1.Text);
b:= StrToFloat (Edit2.Text);
c:= a + b;
Label2. Caption:= FloatToStr (c);
end;
Для операции «вычитание» программный код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, b, c: Single;
begin
a:= StrToFloat (Edit1.Text);
b:= StrToFloat (Edit2.Text);
c:= a-b;
Label2. Caption:= FloatToStr (c);
end;
Для операции «произведение» программный код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, b, c: Single;
begin
a:= StrToFloat (Edit1.Text);
b:= StrToFloat (Edit2.Text);
c:= a*b;
Label2. Caption:= FloatToStr (c);
end;
Для нахождения «sin» угла код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, c: Single;
begin
a:= StrToFloat (Edit1.Text);
c:= sin(a);
Label2. Caption:= FloatToStr (c);
end;
Для нахождения «cos» угла код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, c: Single;
begin
a:= StrToFloat (Edit1.Text);
c:= cos(a);
Label2. Caption:= FloatToStr (c);
end;
Для нахождения «квадрата» код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, c: Single;
begin
a:= StrToFloat (Edit1.Text);
c:=SQR(a);
Label2. Caption:= FloatToStr (c);
end;
Для нахождения «квадратного корня» код будет выглядеть так:
Procedure TForm1.Button1.Click(Sender: TObject);
var a, c: Single;
begin
a:= StrToFloat (Edit1.Text);
c:= SQRT(a);
Label2. Caption:= FloatToStr (c);
end;
На деле в самом Lazarus-e исходный программы будет выглядеть следующим образом:
Рис.2 – Исходный код программы «Калькулятор».
Необходимо обратить внимание на команду «Single». Она считает целые числа. А команда «Real» помимо целых, считает еще и дробные числа. Так же следует заметить, что после каждой команды не стоит забывать ставить знак «;», иначе при компиляции будет выходить синтаксическая ошибка.
В Lazarus-e также можно менять свойства объектов:
1) Name - (программное имя объекта);
2) Height – (ширина объекта);
3) Left, Top – (положение объекта относительно границы; влево и вверх);
4) Caption – (редактируемое имя объекта);
5) Font – редактирование (размера, шрифта, курсива, подчеркивания и т.д.) текста;
6) Text (редактируемая надпись на объекте;
7) Image (вставка картинки по выбору пользователя).
После завершения редактирования и написания исходного кода программы необходимо сделать компиляцию. Делается она при помощи нажатия кнопки «F9». Если все сделано правильно, компиляция завершится успешно и откроется созданная пользователем программа.
Если же компиляция по какой-то причине завершается некорректно, программа сама выделит в диалоговом окне предположительное место, где скорее всего допущена ошибка. Поэтому следует быть внимательным при составлении программы. Любая синтаксическая ошибка (отсутствие точки, точки с запятой, лишний знак, либо цифра в исходном коде) ведет к неправильной компиляции.
Рис. 3 – Программа «Калькулятор» после запуска.
Программа составлена правильно, компилирование объекта прошло успешно. Сейчас, для того, чтобы вычислить сумму, разность, произведение или деление чисел, необходимо задать свои значения, и, созданная программа «Калькулятор» быстро и правильно рассчитает ответ.