"C++ Builder" dasturida arifmetik amallarni bajaruvchi dastur tuzish

1-LABORATORIYA ISHI

“C++ Builder” dasturida arifmetik amallarni bajaruvchi dastur tuzish

612-17, Qodirov Ahmadxon

Amaliy qism

Arifmetik amallarni bajaruvchi dasturni tuzish uchun bizga uchta matn tahrirlash maydoni va 4 ta tugma kerak bo’ladi. Ularni ixtiyorimizga ko’ra tartiblaymiz hamda matn shriftini, o’lchamlarini tanlaymiz.

Endi esa tugmalarga kerakli buyruqlarni kiratamiz.

Qo’shish (+) tugmasi uchun:

1. 
   float birinchi_son=StrToFloat(Edit1->Text);  
   
2. 
   float ikkinchi_son=StrToFloat(Edit2->Text);  
   
3. 
   Edit3->Text=FloatToStr(birinchi_son+ikkinchi_son);  
   

Ayirish (-) tugmasi uchun:

1. 
   float birinchi_son=StrToFloat(Edit1->Text);  
   
2. 
   float ikkinchi_son=StrToFloat(Edit2->Text);  
   
3. 
   Edit3->Text=FloatToStr(birinchi_son-ikkinchi_son);  
   

Ko’paytirish (*) tugmasi uchun:

1. 
   float birinchi_son=StrToFloat(Edit1->Text);  
   
2. 
   float ikkinchi_son=StrToFloat(Edit2->Text);  
   
3. 
   Edit3->Text=FloatToStr(birinchi_son*ikkinchi_son);  
   

Bo’lish (/) tugmasi uchun:

1. 
   float birinchi_son=StrToFloat(Edit1->Text);  
   
2. 
   float ikkinchi_son=StrToFloat(Edit2->Text);  
   
3. 
   Edit3->Text=FloatToStr(birinchi_son/ikkinchi_son);  
   

Umumiy kod:

1. 
   //---------------------------------------------------------------------------  
   
2. 
     
   
3. 
   #include   
   
4. 
   #pragma hdrstop  
   
5. 
     
   
6. 
   #include "Unit1.h"  
   
7. 
   //---------------------------------------------------------------------------  
   
8. 
   #pragma package(smart_init)  
   
9. 
   #pragma resource "*.dfm"  
   
10. 
    TForm1 *Form1;  
    
11. 
    //---------------------------------------------------------------------------  
    
12. 
    __fastcall TForm1::TForm1(TComponent* Owner)  
    
13. 
            : TForm(Owner)  
    
14. 
    {  
    
15. 
    }  
    
16. 
    //---------------------------------------------------------------------------  
    
17. 
      
    
18. 
      
    
19. 
      
    
20. 
    void __fastcall TForm1::Button1Click(TObject *Sender)  
    
21. 
    {  
    
22. 
    float birinchi_son=StrToFloat(Edit1->Text);  
    
23. 
    float ikkinchi_son=StrToFloat(Edit2->Text);  
    
24. 
    Edit3->Text=FloatToStr(birinchi_son+ikkinchi_son);  
    
25. 
    }  
    
26. 
    //---------------------------------------------------------------------------  
    
27. 
      
    
28. 
    void __fastcall TForm1::Button2Click(TObject *Sender)  
    
29. 
    {  
    
30. 
    float birinchi_son=StrToFloat(Edit1->Text);  
    
31. 
    float ikkinchi_son=StrToFloat(Edit2->Text);  
    
32. 
    Edit3->Text=FloatToStr(birinchi_son-ikkinchi_son);  
    
33. 
    }  
    
34. 
    //---------------------------------------------------------------------------  
    
35. 
    void __fastcall TForm1::Button3Click(TObject *Sender)  
    
36. 
    {  
    
37. 
    float birinchi_son=StrToFloat(Edit1->Text);  
    
38. 
    float ikkinchi_son=StrToFloat(Edit2->Text);  
    
39. 
    Edit3->Text=FloatToStr(birinchi_son*ikkinchi_son);  
    
40. 
    }  
    
41. 
    //---------------------------------------------------------------------------  
    
42. 
    void __fastcall TForm1::Button4Click(TObject *Sender)  
    
43. 
    {  
    
44. 
    float birinchi_son=StrToFloat(Edit1->Text);  
    
45. 
    float ikkinchi_son=StrToFloat(Edit2->Text);  
    
46. 
    Edit3->Text=FloatToStr(birinchi_son/ikkinchi_son);  
    
47. 
    }  
    
48. 
    //---------------------------------------------------------------------------  
    

D asturni ishga tushiramiz. Quyida dastur barcha arifmetik amallarni to’g’ri bajarayotganini ko’rishimiz mumkin.





Natija qismidagi matn tahrirlash maydonini belgilab, “Object inspector” orqali ReadOnly qatoriga tushib, uni truega o’zgartirish orqali u yerdagi hosil bo’lgan natijani faqat o’qish uchun mo’ljallaymiz.