• 1-mashq. № Misolning berilishi Berilgan qiymatlar
  • Dastur kodi
    		•

    Mashqlarbajarish uchun variantlar




    Download 5,58 Mb.
    Pdf ko'rish
    bet45/47
    Sana17.11.2023
    Hajmi5,58 Mb.
    #100483
    1   ...   39   40   41   42   43   44   45   46   47
    Bog'liq
    амалий iIAKT (2)

    Mashqlarbajarish uchun variantlar: 
     
    1. 
    Koordinata o„qida X va Y nuqtalarining shtrixlangan maydonga 
    tegishli ekanligini aniqlang. 
    2. 
    Berilgan X,Y,Z sonlarining minimal va maksimal qiymatlarining 
    yig„indisini topish dasturi tuzilsin. 
    3. 
    Yil oylarining tartib raqamiga asosan oy nomlarini bosmaga bosib 
    chiqarish dasturi tuzilsin. Misol uchun, 3 sonini kiritsak «Mart» so„zi chiqsin. 
    Quyidagi misolni visual rejim ko„rinishida ishlab ko„ramiz. 
    1-mashq. 
    № Misolning berilishi 
    Berilgan qiymatlar 
    1 

    2
    y 


    3x - 3abx agar a 

    0 
    
    
    13a - b
    2
    x agar a 

    0 
    x=2,7 
    b=3,2 
    a=1,(-
    1) 
     
     
    Formaning ko„rinishini shakllantiramiz. Formada quyidagi komponentalarni 
    o„rnatamiz: 4 ta Label, 3ta Edit va 2 ta Button (Natija va chiqish). Formaga 
    TRadioCroup1 komponentasini joylashtirib, Object inspectordan Items xossasini 
    o„rnatib, qator uchun shartni o„rnatamiz (23- rasm). 

    23-rasm. Formaning ko„rinishi 
    Unit1.h fayl oynasida tanlangan komponentalar quyidagi 
    ko„rinishda bo„ladi: #ifndef Unit1H 
    #define Unit1H 
    // 
    #include  
    #include 
     
    #include 
     
    #include 
     
    // 
    class TForm1 : public TForm 
    { 
    published: // IDE-managed 
    Components TLabel *Label1; 
    TLabel 
    *Label2; 
    TLabel 
    *Label3; 
    TLabel 
    *Label4; TEdit 
    *Edit1; TEdit 
    *Edit2; TEdit 
    *Edit3; TButton 
    *Button1; 
    TRadioGroup 
    *RadioGroup1; TButton 
    *Button2; 
    void fastcall Button1Click(TObject 
    *Sender); void fastcall 
    Button2Click(TObject *Sender); 

    private: // User declarations 
    public:
    // User 
    declarations 
    fastcall TForm1(TComponent* Owner); 
    }; 
    // 
    extern PACKAGE TForm1 *Form1; 
    // 
    #endif 
    Dastur kodi: 
    // 
    #include  
    #pragma hdrstop 
    #include "Unit1.h" 
    // 
    #pragma package(smart_init) 
    #pragma resource 
    "*.dfm" TForm1 
    *Form1; 
    // 
    fastcall TForm1::TForm1(TComponent* Owner) 
    : TForm(Owner) 
    { 
    } 
    // 
    void fastcall TForm1::Button1Click(TObject 
    *Sender) 
    { float a,b,x,y; 
    a=StrToFloat(Edit1-
    >Text); 
    b=StrToFloat(Edit2-
    >Text); 
    x=StrToFloat(Edit3-
    >Text); 
    if(a>0) { y=3*x*x-3*a*b*x; RadioGroup1-
    >ItemIndex=0; Label4-
    >Caption="y="+FloatToStr(y);}; 
    else {y=13*a-b*b*x; RadioGroup1-
    >ItemIndex=1; Label4-
    >Caption="y="+FloatToStr(y);} 
    } 
    // 
    void fastcall TForm1::Button2Click(TObject 
    *Sender) 
    { Close(); } 
    //


    Download 5,58 Mb.
    1   ...   39   40   41   42   43   44   45   46   47




    Download 5,58 Mb.
    Pdf ko'rish