Е. Б. Ефлов , Ю. В. Никонова - Программирование на языке Pascal в среде Lazarus: учебное пособие для студентов и преподавателей вузов

результата. Переименуем
форму, дав ей имя «Калькулятор», и разместим на форме три стандартных поля Edit,
четыре кнопки для основных арифметических действий Button1–4, а также кнопку Button5
для выхода из программы. Размеры и размещение объектов на форме можно выбрать
произвольно. В свойствах же формы желательно запретить изменение ее размеров.
Для «наведения порядка» выделим все кнопки, обведя их мышью с нажатой левой
кнопкой, и для выделенной области (объектов) вызовем контекстное меню. Нажав в этой
области правую кнопку мыши, перейдем к пункту Выравнивание этого меню:
горизонтально распределим кнопки равномерно, а вертикально — выровняем их по
верхнему краю. Также можно выровнять и поля Edit, которые мы будем использовать в
качестве полей ввода аргументов. Свяжем с кнопкой Выход код, который будет завершать
программу, повторив действия из первого примера.
Для определения глобальных и текстовых переменных запишем программный код
в области между строками implementation и {$R *.lfm}:

implementation
var

arg1, arg2, result: real;
str1, str2, str_result: string;

{$R *.lfm},
где объявления переменных задаются
var : ;
Итак, выше и в программном коде определены шесть глобальных переменных:
три переменных вещественного типа и три строковых переменных.
Дополним программу минимальным кодом для реализации функционирования
калькулятора. Для каждой кнопки, связанной символом в заголовке с конкретной
операцией, введем для события (либо дважды щелкнув по кнопке, либо выбрав в меню
многоточие) ButtonClick, следующий код:

48

procedure TForm1.Button1Click(Sender: TObject);
begin
str1:=Form1.Edit1.Text;
arg1:=StrToFloat(str1);
str2:=Form1.Edit2.Text;
arg2:=StrToFloat(str2);
result:= arg1+arg2;
str_result:=FloatToStr(result);
Form1.Edit3.Text:=str_result;
end;
После определения действий для всех кнопок, выполним компиляцию. Если
ошибок не обнаружено, можно выполнить получившуюся программу. Программа весьма
неэффективна, содержит много потенциальных пробелов и служит лишь учебным целям,
причем на первом этапе знакомства с Паскалем и средой Lazarus. Попробуем ввести в
первое поле что-то отличное от числа, например слово Привет и выполнить любую из
операций на калькуляторе. Пользователя проинформируют о том, что введенное значение
Привет – неверное число с плавающей точкой:

Собственно с этого момента и начинается труд программиста. Теперь
необходимо протестировать программу в разных режимах и модифицировать код так,
чтобы ошибок во время исполнения не возникало.

49

СПИСОК ЛИТЕРАТУРЫ

1. Алексеев Е. Р. Free Pascal и Lazarus: учебник по программированию /
Е. Р. Алексеев, О. В. Чеснокова, Е. В. Кучер. – М.: ДМК-пресс, 2010. – 438 с.
2. Алексеев Е. Р., Самоучитель по программированию на Free Pascal и Lazarus /
Е. Р. Алексеев, О. В. Чеснокова, Е. В. Кучер – Донецк: ДонНТУ УНИТЕХ,
2011. – 503 с.
3. Гофман В. Э. Delphi. Быстрый старт / В. Э. Гофман, А. Д. Хомоненко — СПб.:
БХВ-Петербург, 2003. — 288 с.
4. Мансуров К. Т. Основы программирования в среде Lazarus / К. Т. Мансуров –
Издательство: Интернет-издание – 2010. – 772 с.
5. Немнюгин С. А. Turbo Pascal: Программирование на языке высокого уровня:
учебник для вузов / С. А. Немнюгин – СПб.: Питер, 2007. – 496 с.
6. Павловская Т. А. Программирование на языке высокого уровня /
Т. А. Павловская – СПб.: Питер Пресс, 2009. – 432 с.
7. Суркова Е. В. Лабораторный практикум по программированию на языке Pascal:
методические указания / Е. В. Суркова – Ульяновск: УлГТУ, 2007. – 59 с.

50

Учебное издание

Составители:
Ефлов Владимир Борисович
Никонова Юлия Васильевна

ПРОГРАММИРОВАНИЕ НА ЯЗЫКЕ PASCAL
В СРЕДЕ LAZARUS
Учебное пособие для студентов и преподавателей вузов

Редактор А. В. Ермашова

Компьютерная верстка
и оформление обложки Ю. В. Никоновой

51

Подписано в печать
Формат 60 x 84 1/8 Бумага офсетная.
Уч.-изд. л. 2,5 Тираж 50 экз Изд. № 184

Федеральное государственное бюджетное образовательное
учреждение высшего профессионального образования

ПЕТРОЗАВОДСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ
От печат а но в т и по гр а ф и и Издате л ьс тва П ет р Г У
1 8 5 9 1 0 , Пе т р о з а водс к, пр . Ле н и на, 3 3

52

--">