Тәжірибелік жұмыс №3

Тапсырма: Калькулятор бағдарламасын құру.

Орындалуы: Пуск> Все программы> Borland Delphi 7 ортасын ашып жаңа формаға Button(18), Edit(1) компоненттерін алып, форманы келесі түрге келтіреміз (5-сурет). Алынған компоненттерге келесі қасиеттерді орнатамыз (Кесте 3).

Компонент	Терезе бөлігінен Object Inspector	Қасиеті	Сипаттама
Button1	Properties	Caption	'1'
Button2	Properties	Caption	'2'
Button3	Properties	Caption	'3'
Button4	Properties	Caption	'4'
Button5	Properties	Caption	'5'
Button6	Properties	Caption	'6'
Button7	Properties	Caption	'7'
Button8	Properties	Caption	'8'
Button9	Properties	Caption	'9'
Button10	Properties	Caption	'0'
Button11	Properties	Caption	','
Button12	Properties	Caption	'+\-'
Button13	Properties	Caption	'+'
Button14	Properties	Caption	'-'
Button15	Properties	Caption	'*'
Button16	Properties	Caption	'/'
Button17	Properties	Caption	'='
Button18	Properties	Caption	'c'

5-сурет. Форма түрі.

var a,b,c,d: extended; znak: char;

Form1 компонентінің OnCreate қасиетіне келесі кодты жазамыз:

procedure TForm1.FormCreate(Sender: TObject);

begin

a:=0;

b:=0;

c:=0;

d:=0;

end;

Button1 компонентіне келесі кодты жазамыз:

procedure TForm1.Button1Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'1';

end;

Button2 компонентіне келесі кодты жазамыз:

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'2';

end;

Button3 компонентіне келесі кодты жазамыз:

procedure TForm1.Button3Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'3';

end;

Button4 компонентіне келесі кодты жазамыз:

procedure TForm1.Button4Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'4';

end;

Button5 компонентіне келесі кодты жазамыз:

procedure TForm1.Button5Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'5';

end;

Button6 компонентіне келесі кодты жазамыз:

procedure TForm1.Button6Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'6';

end;

Button7 компонентіне келесі кодты жазамыз:

procedure TForm1.Button7Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'7';

end;

Button8 компонентіне келесі кодты жазамыз:

procedure TForm1.Button8Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'8';

end;

Button9 компонентіне келесі кодты жазамыз:

procedure TForm1.Button9Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'9';

end;

Button10 компонентіне келесі кодты жазамыз:

procedure TForm1.Button10Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+'0';

end;

Button11 компонентіне келесі кодты жазамыз:

procedure TForm1.Button11Click(Sender: TObject);

begin

edit1.Text:=edit1.Text+',';

end;

Button12 компонентіне келесі кодты жазамыз:

procedure TForm1.Button12Click(Sender: TObject);

begin

c:=strtofloat(edit1.text);

c:=c*(-1);

edit1.text:=floattostr(c);

end;

Button13 компонентіне келесі кодты жазамыз:

procedure TForm1.Button13Click(Sender: TObject);

begin

a:=strtofloat(edit1.text);

edit1.text:='';

znak:='+';

end;

Button14 компонентіне келесі кодты жазамыз:

procedure TForm1.Button14Click(Sender: TObject);

begin

a:=strtofloat(edit1.text);

edit1.text:='';

znak:='-';

end;

Button15 компонентіне келесі кодты жазамыз:

procedure TForm1.Button15Click(Sender: TObject);

begin

a:=strtofloat(edit1.text);

edit1.text:='';

znak:='*';

end;

Button16 компонентіне келесі кодты жазамыз:

procedure TForm1.Button16Click(Sender: TObject);

begin

//if strtofloat(edit1.text)<> 0 then

//else edit1.text:='BOlINBEIDI';

a:=strtofloat(edit1.text);

edit1.text:='';

znak:='/';

end;

Button17 компонентіне келесі кодты жазамыз:

procedure TForm1.Button17Click(Sender: TObject);

begin

b:=strtofloat(edit1.text);

case znak of

'+':d:=a+b;

'-':d:=a-b;

'*':d:=a*b;

'/':d:=a/b;

end;

edit1.text:=floattostr(d);

end;

Button18 компонентіне келесі кодты жазамыз:

procedure TForm1.Button18Click(Sender: TObject);

begin

a:=0;

b:=0;

c:=0;

d:=0;

edit1.text:='';

end.

6-сурет. Нәтиже

Дата добавления: 2015-11-16