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

Программируем в Lazarus. Программа «Калькулятор». Скачать https://yadi.sk/d/1K5Wl9Rh3N44Ls  Рис.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 button3 button4 Edit3 button5 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; Переменные m,n имеют тип integer. var   Form1: TForm1;    m,n:integer; implementation {$R *.lfm} { TForm1 } Чтобы заблокировать кнопку РАЗВЕРНУТЬ ОКНО в свойствах BorderIcons – biMaximize установить False. Чтобы поменять иконку: Ctrl + Shift + F11   Основные функции преобразования типов Обозначение Chr(n) IntToStr(k) Действие Символ, код которого равен n. Строка, являющаяся изображением целого k. FloatToStr(n) Строка, являющаяся изображением вещественного n. FloatToStrF(n,f,k,m) Строка, являющаяся изображением вещественного n.  При вызове функции указывают: f ­ формат; k –  точностью (общее количество цифр); m ­ количество  цифр после десятичной точки.Возможны следующие  значения параметра Format: ffGeneral – общий числовой формат; ffFixed – фиксированный формат; ffCurrency – денежный формат. Целое, изображением которого является строка s. Вещественное,   изображением,   которого   является строка s. Целое,   полученное   путем   округления n по   известным правилам. Целое,   полученное   путем   отбрасывания   дробной части n. Дробное,   представляющее   собой   дробную   часть вещественного n. Дробное, вещественного n.   представляющее   собой   целую   часть StrToInt(s) StrToFloat(s) Round(n) Trunc(n) Frac(n) Int(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.