Урок Информатики "Простейший калькулятор"

Программирование в Lazarus для школьников

Программирование в Lazarus для школьников.



Занятие № 11.



Простейший калькулятор.

Матыцин Игорь Владимирович

Учитель математики и информатики 

МБОУ СОШ с. Девица







Цель: написать программу калькулятора, который выполняет четыре арифметические операции.





















Девица 2012.



Сегодня,  наконец, закончим основу для простейшего калькулятора.



Рис. 11.1 Интерфейс программы калькулятор.

Для каждой кнопки с цифрой уже прописано:

form1.Edit1.Text:=form1.Edit1.Text+номер кнопки;

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

Для  записи будем использовать обычную переменную вещественного типа.

А очистить поле можно так:

form1.Edit1.Text:='';

Но встает вопрос как же отличать операции? Давайте создадим целочисленную переменную в которую будем записывать цифру соответствующую операции.

Сложение

Вычитание

Умножение

Деление

И при нажатии на кнопку операции будем вносить эти значения в переменную.

А затем при нажатии на равно будем брать второе число и при помощи оператора 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;



Рис. 11.2 Итоговый вид программы калькулятор.



















































Практическое задание.

Вставить в калькулятор функцию извлечения корня.

Вставить функцию возведения в квадрат.

Вставить функции тригонометрии.