Конспект урока "Простейший калькулятор"


Программирование в Lazarus для школьников.
Занятие № 11.
Простейший калькулятор.
Матыцин Игорь Владимирович
Учитель математики и информатики
МБОУ СОШ с. Девица
Цель: написать программу калькулятора, который выполняет четыре
арифметические операции.
Программирование в Lazarus для школьников
Девица 2012.
Сегодня, наконец, закончим основу для простейшего калькулятора.
Рис. 11.1 Интерфейс программы калькулятор.
Для каждой кнопки с цифрой уже прописано:
form1.Edit1.Text:=form1.Edit1.Text+номер кнопки;
Теперь необходимо сделать так, чтобы после ввода первого числа при
нажатии на операции происходила запись числа в переменную и очистка
поля ввода.
Для записи будем использовать обычную переменную вещественного типа.
А очистить поле можно так:
form1.Edit1.Text:='';
Но встает вопрос как же отличать операции? Давайте создадим
целочисленную переменную в которую будем записывать цифру
соответствующую операции.
1- Сложение
Программирование в Lazarus для школьников
2- Вычитание
3- Умножение
4- Деление
И при нажатии на кнопку операции будем вносить эти значения в
переменную.
А затем при нажатии на равно будем брать второе число и при помощи
оператора Case будем выбирать какую же операцию сделать.
Для вычитания обработчик будет выглядеть так:
x1:=strtofloat(edit1.Text);
form1.Edit1.Text:='';
op:=2;
Здесь x1-это переменная, в которую запишем первое число, op-код
операции.
Вот обработчик кнопки равно:
procedure TForm1.Button17Click(Sender: TObject);
begin
x2:=strtofloat(edit1.Text);
form1.Edit1.Text:='';
case op of
1:edit1.Text:=floattostr(x1+x2);
2:edit1.Text:=floattostr(x1-x2);
3:edit1.Text:=floattostr(x1*x2);
4:edit1.Text:=floattostr(x1/x2);
end;
end;
Тут x2-второе число.
Как видно для результата не создается специальная переменная, а сразу
вставляется выражение соответствующее коду.
После того, как все обработчики событий будут прописаны остается
только создать кнопку для очистки поля ввода. Вот ее обработчик:
procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Edit1.Text:=form1.Edit1.Text+'2';
end;
Программирование в Lazarus для школьников
Рис. 11.2 Итоговый вид программы калькулятор.
Программирование в Lazarus для школьников
Практическое задание.
1. Вставить в калькулятор функцию извлечения корня.
2. Вставить функцию возведения в квадрат.
3. Вставить функции тригонометрии.