1Постановка задачи

1.1Создадим калькулятор.

1.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
Btn1	TBtn	Caption	1	OnClick
Btn2	TBtn	Caption	2	OnClick
Btn3	TBtn	Caption	3	OnClick
Btn4	TBtn	Caption	4	OnClick
Btn5	TBtn	Caption	5	OnClick
Btn6	TBtn	Caption	6	OnClick
Btn7	TBtn	Caption	7	OnClick
Btn8	TBtn	Caption	8	OnClick
Btn9	TBtn	Caption	9	OnClick
Btn10	TBtn	Caption	0	OnClick
Btn11	TBtn	Caption	=	OnClick
Btn12	TBtn	Caption	+	OnClick
Btn13	TBtn	Caption	-	OnClick
Btn14	TBtn	Caption	*	OnClick
Btn15	TBtn	Caption	/	OnClick
Btn16	TBtn	Caption	С	OnClick
Btn17	TBtn	Caption		OnClick
Edit1	TEdit	Text	вывод	OnChange

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

var kod:Char;

a,b,c,n:integer;

x,y,z:Real;

s:string;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'1'

end;

procedure TForm1.btn2Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'2'

end;

procedure TForm1.btn3Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'3'

end;

procedure TForm1.btn4Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'4'

end;

procedure TForm1.btn5Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'5'

end;

procedure TForm1.btn6Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'6'

end;

procedure TForm1.btn7Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'7'

end;

procedure TForm1.btn8Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'8'

end;

procedure TForm1.btn9Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'9'

end;

procedure TForm1.btn10Click(Sender: TObject);

begin

edt1.Text:=edt1.text+'0'

end;

procedure TForm1.btn16Click(Sender: TObject);

begin

edt1.clear

end;

procedure TForm1.N3Click(Sender: TObject);

begin

edt1.clear

end;

procedure TForm1.btn12Click(Sender: TObject);

begin

if edt1.text<>'' then

begin x:=StrToFloat(edt1.text);

edt1.Text:=edt1.text+'+';end

else begin x:=0; edt1.Text:='0+'

end;

s:=edt1.text ;

n:=length(s);

label1.Caption:=inttostr(n);

kod:='+';

end;

procedure TForm1.btn13Click(Sender: TObject);

begin

if edt1.text<>'' then

begin x:=StrToFloat(edt1.text);

edt1.Text:=edt1.text+'-';end

else begin x:=0; edt1.Text:='0-'

end;

s:=edt1.text;

n:=length(s);

kod:='-';

end;

procedure TForm1.btn14Click(Sender: TObject);

begin

if edt1.text<>'' then

begin x:=StrToFloat(edt1.text);

edt1.Text:=edt1.text+'*';end

else begin x:=0; edt1.Text:='0*'

end;

s:=edt1.text;

n:=length(s);

kod:='*';

end;

procedure TForm1.btn15Click(Sender: TObject);

begin

if edt1.text<>'' then

begin x:=StrToFloat(edt1.text);

edt1.Text:=edt1.text+'/';end

else begin x:=0; edt1.Text:='0/'

end;

s:=edt1.text;

n:=length(s);

kod:='/';

end;

procedure TForm1.btn11Click(Sender: TObject);

begin

s:=edt1.Text;

label1.Caption:=copy(s,n+1,length(s));

if length(s)<>n then y:=strtofloat(copy(s,n+1,length(s)));

if length(s)<>n then b:=strtoint(copy(s,n+1,length(s)));

case kod of

'+': begin z:=x+y; edt1.text:=floattostr(z) end;

'-': begin z:=x-y; edt1.text:=floattostr(z) end;

'*': begin z:=x*y; edt1.text:=floattostr(z) end;

'/': begin z:=x/y; edt1.text:=floattostr(z) end;

'd': begin c:=a div b; edt1.text:=inttostr(c) end;

'i': begin c:=a mod b; edt1.text:=inttostr(c) end;

end;

end;

procedure TForm1.N4Click(Sender: TObject);

begin

close

end;

procedure TForm1.N5Click(Sender: TObject);

begin

form1.Width:=187;

end;

procedure TForm1.N6Click(Sender: TObject);

begin

form1.Width:=235;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

begin

a:=StrToint(edt1.text);

if edt1.text<>'' then a:=StrToint(edt1.text);

kod:='d';

edt1.clear;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

a:=StrToint(edt1.text);

if edt1.text<>'' then a:=StrToint(edt1.text);

kod:='i';

edt1.clear;

end;

1.4 Контрольный пример

2.2 Организация меню.Создание главного и контекстного меню.

1Постановка задачи

1.1 На форме расположите две панели , две кнопки и компонент RichEdit. Первая панель должна содержать два поля редактирования, а вторая два чекбокса

1.2 Компоненты программы

Имя компонента	Тип компонента	Свойства компонента	Значение компонента	Событие
MainMenu1	TMainMenu			OnClick
PopupMenu1	TPopupMenu			OnClick
ImageList1	TImageList	Images	картинки	OnChange
OpenDialog1	TOpenDialog			OnCanClose
SaveDialog1	TSaveDialog			OnCanClose
Image1	TImage		картинка	OnClick