3-laboratoriya mashg‘ulot. Borland C++ Builderda tarmoqlanuvchi dasturlar tuzish


Misol 1: Berilgan a sonini juft yoki toqligini aniqlovchi dastur tuzilsin. Borland C++ Builder da dastur


Download 53.48 Kb.
bet2/2
Sana19.06.2023
Hajmi53.48 Kb.
#1622050
1   2
Bog'liq
Laboratoriya mashg‘ulot. Borland C Builderda tarmoqlanuvchi

Misol 1: Berilgan a sonini juft yoki toqligini aniqlovchi dastur tuzilsin.
Borland C++ Builder da dastur:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a;
a=StrToFloat(Edit1->Text);
if (a%2==0) Label1->Caption=("bu son juft!");
else Label1->Caption=("bu son toq!");
}
NATIJA:


Dasturlashning yaxshi usuli: Shart operatorida doimiy ravishda bloklardan foydalanish yo‘l qo‘yilishi mumkin bo‘lgan xatoliklarni oldini oladi. Ba'zi dasturchilar oldin ochuvchi va yopuvchi qavslarni {, } yozish, undan keyin blok ichidagi operatorlarni yozish lozimligini takidlashadi.
? : shart amali
Agar tеkshirilayotgan shart nisbatan sоdda bo‘ lsa, shart amalini «?: » ko‘ rinishini
ishlatish mumkin. Bu operator quyidagi ko‘rinishga ega:
? : ;
if shart оpеratоriga o‘ хshash hоlda bu shart amali quyidagicha ishlaydi: agar rоst (true) bo‘lsa bajariladi, aks hоlda . Оdatda ifоdalar qiymatlari birоrta o‘zgaruvchiga o‘zlashtiriladi.Misol 2: 2 ta sondan kattasini topuvchi dastur tuzilsin.
Borland C++ Builder da dasturu:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a,b,c;
a=StrToFloat(Edit1->Text);
b=StrToFloat(Edit2->Text);
c=(a>b)?a:b;
Edit3->Text=FloatToStr(c);
}
NATIJA


Agar a>b shart bajarilsa max o‘zgaruvchisi a ni, aks xolda b ni o‘zlashtiradi.


Tanlash operatorida bir nechta qiymatga bir hil operator ishlatishi quyidagicha bo‘ladi.
Borland C++ Builder da dastur:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int a;
a=StrToFloat(Edit1->Text);
switch(a);
{
case1:
case3:
case5:
case7:
case9:
Label2->Caption=("Kiritilgan son toq");
case2:
case4:
case6:
case8:
case10:
Label2->Caption=("Kiritilgan son juft");
default : Label2->Caption=(1 dan kichik yoki 10 dan katta son kiritilgan!);
}
}NATIJA:

Download 53.48 Kb.

Do'stlaringiz bilan baham:
1   2




Ma'lumotlar bazasi mualliflik huquqi bilan himoyalangan ©fayllar.org 2024
ma'muriyatiga murojaat qiling