Пример 2.1 Калькулятор

Постановка задачи: Даны два вещественных числа. Выполнить над ними выбранную пользователем арифметическую операцию, вывести результат.

Описание переменных: первый, второй операнды, результат - все вещественного типа.

Алгоритм:

1. Ввести значение первого операнда.

2. Перевести значение первого операнда из строкового представления в вещественное представление.

3. Ввести значение второго операнда.

4. Перевести значение второго операнда из строкового представления в вещественное представление.

5. Обработать выполнение выбранной пользователем арифметической операции.

6. Для операции "деление", проверить не равно ли нулю значение второго операнда, если его значение равно нулю, то вывести сообщение об ошибке.

7. Перевести результат из вещественной формы представления в строковую форму.

8. Вывести результат.

Процедура обработки щелчка на кнопке "Сложить":

procedure TForm1.Button1Click(Sender: TObject);

Begin

edit3.Text:=floattostr(strtofloat(edit1.text)+strtofloat(edit2.text));

End;

Процедура обработки щелчка на кнопке "Вычесть"

procedure TForm1.Button2Click(Sender: TObject);

Begin

edit3.Text:=floattostr(strtofloat(edit1.text)-strtofloat(edit2.text));

End;

Процедура обработки щелчка на кнопке "Умножить"

procedure TForm1.Button3Click(Sender: TObject);

Begin

edit3.Text:= floattostr(strtofloat(edit1.text)*strtofloat(edit2.text));

End;

Процедура обработки щелчка на кнопке " Разделить"

procedure TForm1.Button4Click(Sender: TObject);

Begin

if edit2.text <> '0' then

edit3.Text:= floattostr(strtofloat(edit1.text) / strtofloat(edit2.text))

Else

edit3.text:= 'Ошибка. Деление на нуль';

End;