Программируем в Lazarus. Программа «Калькулятор».

Программируем в Lazarus. Программа «Калькулятор».

Рис.1 Интерфейс программы

Кнопка	Компоненты	Обработчик событий
	label1  label2 Edit1   Edit2
	button1 button2 button3 button4
	button1	procedure TForm1.Button1Click(Sender: TObject); begin   m:=StrToInt(Edit1.Text);   n:=StrToInt(Edit2.Text);   Edit3.Text:=IntToStr(m+n); end;
	button2	procedure TForm1.Button2Click(Sender: TObject); begin   m:=StrToInt(Edit1.Text);   n:=StrToInt(Edit2.Text);   Edit3.Text:=IntToStr(m-n); end;
	button3	procedure TForm1.Button3Click(Sender: TObject); begin   m:=StrToInt(Edit1.Text);   n:=StrToInt(Edit2.Text);   Edit3.Text:=IntToStr(m*n); end;
	button4	procedure TForm1.Button4Click(Sender: TObject); begin   m:=StrToInt(Edit1.Text);   n:=StrToInt(Edit2.Text);   Edit3.Text:=floattostr(m/n); end;
	Edit3
	button5	procedure TForm1.Button5Click(Sender: TObject); begin   Edit1.Text:='';   Edit2.Text:='';   Edit3.Text:=''; end;

Переменные m,n имеют тип integer.

var

  Form1: TForm1;

   m,n:integer;

implementation

{$R *.lfm}

{ TForm1 } 

Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIcons –biMaximize установить False.

Чтобы поменять иконку: Ctrl + Shift + F11

Основные функции преобразования типов

Обозначение	Действие
Chr(n)	Символ, код которого равен n.
IntToStr(k)	Строка, являющаяся изображением целого k.
FloatToStr(n)	Строка, являющаяся изображением вещественного n.
FloatToStrF(n,f,k,m)	Строка, являющаяся изображением вещественного n. При вызове функции указывают: f - формат; k – точностью (общее количество цифр); m - количество цифр после десятичной точки.Возможны следующие значения параметра Format: ffGeneral – общий числовой формат; ffFixed – фиксированный формат; ffCurrency – денежный формат.
StrToInt(s)	Целое, изображением которого является строка s.
StrToFloat(s)	Вещественное, изображением, которого является строка s.
Round(n)	Целое, полученное путем округления n по известным правилам.
Trunc(n)	Целое, полученное путем отбрасывания дробной части n.
Frac(n)	Дробное, представляющее собой дробную часть вещественного n.
Int(n)	Дробное, представляющее собой целую часть вещественного n.

 Листинг программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Edit1: TEdit;

    Edit2: TEdit;

    Edit3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

    procedure Button5Click(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

   m,n:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

  m:=StrToInt(Edit1.Text);

  n:=StrToInt(Edit2.Text);

  Edit3.Text:=IntToStr(m+n);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  m:=StrToInt(Edit1.Text);

  n:=StrToInt(Edit2.Text);

  Edit3.Text:=IntToStr(m-n);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

  m:=StrToInt(Edit1.Text);

  n:=StrToInt(Edit2.Text);

  Edit3.Text:=IntToStr(m*n);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  m:=StrToInt(Edit1.Text);

  n:=StrToInt(Edit2.Text);

  Edit3.Text:=floattostr(m/n);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

  Edit1.Text:='';

  Edit2.Text:='';

  Edit3.Text:='';

end;

end.

Краткое описание документа:

Кнопка	Компоненты	Обработчик событий
	label1 label2 Edit1 Edit2
	button1 button2 button3 button4
	button1	procedure TForm1.Button1Click(Sender: TObject); begin m:=StrToInt(Edit1.Text); n:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(m+n); end;
	button2	procedure TForm1.Button2Click(Sender: TObject); begin m:=StrToInt(Edit1.Text); n:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(m-n); end;
	button3	procedure TForm1.Button3Click(Sender: TObject); begin m:=StrToInt(Edit1.Text); n:=StrToInt(Edit2.Text); Edit3.Text:=IntToStr(m*n); end;
	button4	procedure TForm1.Button4Click(Sender: TObject); begin m:=StrToInt(Edit1.Text); n:=StrToInt(Edit2.Text); Edit3.Text:=floattostr(m/n); end;
	Edit3
	button5	procedure TForm1.Button5Click(Sender: TObject); begin Edit1.Text:=''; Edit2.Text:=''; Edit3.Text:=''; end;

Переменные m,n имеют тип integer.

var

Form1: TForm1;

m,n:integer;

implementation

{$R *.lfm}

{ TForm1 }

Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIcons –biMaximize установить False.

Чтобы поменять иконку: Ctrl + Shift + F11

Основные функции преобразования типов

Обозначение	Действие
Chr(n)	Символ, код которого равен n.
IntToStr(k)	Строка, являющаяся изображением целого k.
FloatToStr(n)	Строка, являющаяся изображением вещественного n.
FloatToStrF(n,f,k,m)	Строка, являющаяся изображением вещественного n. При вызове функции указывают: f - формат; k – точностью (общее количество цифр); m - количество цифр после десятичной точки.Возможны следующие значения параметра Format: ffGeneral – общий числовой формат; ffFixed – фиксированный формат; ffCurrency – денежный формат.
StrToInt(s)	Целое, изображением которого является строка s.
StrToFloat(s)	Вещественное, изображением, которого является строка s.
Round(n)	Целое, полученное путем округления n по известным правилам.
Trunc(n)	Целое, полученное путем отбрасывания дробной части n.
Frac(n)	Дробное, представляющее собой дробную часть вещественного n.
Int(n)	Дробное, представляющее собой целую часть вещественного n.

Листинг программы

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

m,n:integer;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m+n);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m-n);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=IntToStr(m*n);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

m:=StrToInt(Edit1.Text);

n:=StrToInt(Edit2.Text);

Edit3.Text:=floattostr(m/n);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

end;

end.