Ȼ
3
: .
: . .
: :
-241 .. ..
-.2015
: WINDOWS- Builder C++.
: 1. , (, , , ). .
:
| a,znak,b |
| znak |
| a-b |
| a+b |
| ! |
| a*b |
| a/b |
| f |
| y= |
| f=0 |
:
.
Builder C++.
.
, ,
.
3. ONClick.
onclick , onclick.
Object Inspector
1: Properties-;
;
: , - . . , +. , . , , .
2: Events-;
, ;
: ,
, . , . . .
:
:
| #include <vcl.h> |
| #include <stdio.h> |
| #include <math.h> |
| #pragma hdrstop |
| #include "Unit1.h" |
| #pragma package(smart_init) |
| #pragma resource "*.dfm" |
| TForm1 *Form1; |
| float a; |
| char z; |
| __fastcall TForm1::TForm1(TComponent* Owner) |
| : TForm(Owner) |
| { |
| } |
| void __fastcall TForm1::Button7Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+1; |
| } |
| void __fastcall TForm1::Button8Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+2; |
| } |
| void __fastcall TForm1::Button9Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+3; |
| } |
| void __fastcall TForm1::Button4Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+4; |
| } |
| void __fastcall TForm1::Button5Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+5; |
| } |
| void __fastcall TForm1::Button6Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+6; |
| } |
| void __fastcall TForm1::Button1Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+7; |
| } |
| void __fastcall TForm1::Button2Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+8; |
| } |
| void __fastcall TForm1::Button3Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+9; |
| } |
| void __fastcall TForm1::Button15Click(TObject *Sender) |
| { |
| Edit1->Text=""; |
| } |
| void __fastcall TForm1::Button10Click(TObject *Sender) |
| { |
| Edit1->Text=Edit1->Text+0; |
| } |
| void __fastcall TForm1::Button13Click(TObject *Sender) |
| { |
| a=StrToFloat(Edit1->Text); |
| Edit1->Text=""; |
| Edit1->SetFocus(); |
| z='+'; |
| } |
| void __fastcall TForm1::Button14Click(TObject *Sender) |
| { |
| a=StrToFloat(Edit1->Text); |
| Edit1->Text=""; |
| Edit1->SetFocus(); |
| z='-'; |
| } |
| void __fastcall TForm1::Button17Click(TObject *Sender) |
| { |
| a=StrToFloat(Edit1->Text); |
| Edit1->Text=""; |
| Edit1->SetFocus(); |
| z='*'; |
| } |
| void __fastcall TForm1::Button16Click(TObject *Sender) |
| { |
| a=StrToFloat(Edit1->Text); |
| Edit1->Text=""; |
| Edit1->SetFocus(); |
| z='/'; |
| } |
| void __fastcall TForm1::Button12Click(TObject *Sender) |
| { |
| float b,r; |
| b=StrToFloat(Edit1->Text); |
| switch(z) |
| { |
| case '+':r=a+b;Edit1->Text=FloatToStr(r);break; |
| case '*':r=a*b;Edit1->Text=FloatToStr(r);break; |
| case '-':r=a-b;Edit1->Text=FloatToStr(r);break; |
| case '/':r=a/b;Edit1->Text=FloatToStr(r);break; |
| } |
| } |
| void __fastcall TForm1::Button18Click(TObject *Sender) |
| { |
| Edit1->Text = Edit1->Text.Delete(Edit1->Text.Length(), 1); |
| } |
|
|
|
