Проект «Калькулятор»

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

Реализация. Положите на форму кнопки TButton для знаков арифметических операций, кнопки для извлечения квадратного корня и возведения в квадрат. Положите три компонента TEdit: один для первого числа, второй – для второго и третий для вывода результата. Положите три надписи TLabel и подпишите их, как указано на рис. 1. При написании кода обработайте случай деления
на нуль и случай извлечения квадратного корня из отрицательного числа.

Создайте папку «Калькулятор» и сохраните проект в ней. Запустите проект на исполнение.

Рис. 1. Форма проекта «Калькулятор»

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

a,b:real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

edit3.Text:=FloatToStr(a+b);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

edit3.Text:=FloatToStr(a-b);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

edit3.Text:=FloatToStr(a*b);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

b:=StrToFloat(Edit2.Text);

if b<>0 then

edit3.Text:=FloatToStr(a/b)

else

ShowMessage('Деление на нуль!');

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

edit3.Text:=FloatToStr(a*a);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

a:=StrToFloat(Edit1.Text);

if a>=0 then

edit3.Text:=FloatToStr(sqrt(a))

else

ShowMessage('Корень из отрицательного числа!');

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

edit1.text:='';

edit2.text:='';

edit3.text:='';

end;

end.

Задание. Усложните проект, убрав два окна TEdit. Добавьте 10 кнопок для цифр, кнопку для запятой, кнопки для равенства
и «Очистить». Числа вводите поочереди в окно редактора, в нем же должен отображаться результат. Примерный вид калькулятора приведен на рис. 2.

Рис. 2. Проект «Калькулятор»