logo

Delphi da matematik masalalarni yechish ilovalarini yaratish.

Загружено в:

15.08.2023

Скачано:

0

Размер:

1073.9921875 KB
Delphi da matematik masalalarni yechish 
ilovalarini yaratish. Re ja:
•
1. Delphi da chiziqli algoritmlarga doir dasturlar tuzish.
•
2.Chiziqli misollar yechish.
•
3.Foydalanilgan adabiyotlar. Delphi da chiziqli dasturga misol sifatida arifmetik 
amallarni hisoblash dasturini ko’rib chiqamiz.
Bu dasturni tuzish uchun yangi formada kiritiladigan 
ikkita son uchun aloxida «oyna» ochamiz. Buning 
uchun komponentalar ro’yxatidan Edit tanlanadi. Edit 
da kiritiladigan ma’lumotlar matnli ma’lumot bo’ladi, 
shuning uchun biz kiritgan matn shaklidagi sonlarni 
haqiqiy songa aylantirish kerak. Buning uchun Delphi 
da strtofloat(edit1.text) funkstiyasi ishlatiladi. Bunda 
strtofloat funkstiya nomi edit1.text esa argumenti. 
Biz hosil qilgan formaning ko’rinishi quyidagicha 
bo’ladi:  Bu formadagi birinchi son, ikkinchi son, Natija 
yozuvlari komponentalar ro’yxatidan Label ni tanlash 
bilan hosil qilingan. Odatda formada Label ishlatilsa, 
uning ishlatilish soniga qarab Label1, Label2 va 
hakazo shaklda chiqadi, buni o’zgartirish uchun 
Caption da Label1, Label2 va hakozolarni o’chirib 
o’rniga dasturga mos matn kiritiladi. Formada 
qo’shish, ayrish, ko’paytirish, bo’lish amallariga 
standart tugmalardan Button komponentasi 
tanlangan. Bunda ham Caption da Button lar o’rniga 
mos ravishda qo’shish, ayrish, ko’paytirish, bo’lish deb 
o’zgartirilgan. Delphi da tuzilgan dasturdan normal holda chiqib 
ketish uchun standart x tugmasidan tashqari yana 
boshqa tugma ishltiladi. Buning uchun komponentalar 
menyu satridan Additional bandi tanlanadi va uning 
ichidan BitBtn komponentasi tanlanadi. Agar Caption 
da &Close deb o’zgartirila, Kind da Bkclose deb yozib 
qo’ysak, u holda yopish tugmasida tagiga 
chizilgan Close yozuvi hosil bo’ladi. Amallarni bajarib, natijani olish uchun mos tugmalarning ustida 
sichqonchaning chap tugmasini ikki marta bosilsa, u holda shu 
tugmaga mos bo’lgan prosteduraning ichiga avtomatik kiriladi. 
Bunda har bir tugmaga mos bo’lgan prosteduralarning ko’rinishi 
quyidagicha bo’ladi: procedure TForm1.Button1Click(Sender: TObject);
begin
label3.Caption:=floattostr(strtofloat(edit1.Text)+ strtofloat(edit2.Text));
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
label3.Caption:=floattostr(strtofloat(edit1.Text)- strtofloat(edit2.Text));
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
label3.Caption:=floattostr(strtofloat(edit1.Text)* strtofloat(edit2.Text));
end; procedure TForm1.Button4Click(Sender: TObject);
begin
label3.Caption:=floattostr(strtofloat(edit1.Text)/
strtofloat(edit2.Text));
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
label3.Caption:=floattostr(strtofloat(edit1.Text)- 
strtofloat(edit2.Text));
end;
Bu dastur bajarilgandan keyingi ekranda hosil bo’ladigan 
natijaning ko’rinishi quyidagicha bo’ladi: A va B ikkita haqiqy sonlar berilgan. Ularning yig`indisi va ko’paytmasini 
hisoblash dasturini tuzing                                           Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var a,b,s,p:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
s:=a+b;
p:=a*b;
Edit3.Text:=FloatToStr(s);
Edit4.Text:=FloatToStr(p);
end;
end. E’TIBORINGIZ UCHUN
RAHMAT.

Delphi da matematik masalalarni yechish ilovalarini yaratish.

Re ja: • 1. Delphi da chiziqli algoritmlarga doir dasturlar tuzish. • 2.Chiziqli misollar yechish. • 3.Foydalanilgan adabiyotlar.

Delphi da chiziqli dasturga misol sifatida arifmetik amallarni hisoblash dasturini ko’rib chiqamiz. Bu dasturni tuzish uchun yangi formada kiritiladigan ikkita son uchun aloxida «oyna» ochamiz. Buning uchun komponentalar ro’yxatidan Edit tanlanadi. Edit da kiritiladigan ma’lumotlar matnli ma’lumot bo’ladi, shuning uchun biz kiritgan matn shaklidagi sonlarni haqiqiy songa aylantirish kerak. Buning uchun Delphi da strtofloat(edit1.text) funkstiyasi ishlatiladi. Bunda strtofloat funkstiya nomi edit1.text esa argumenti. Biz hosil qilgan formaning ko’rinishi quyidagicha bo’ladi:

Bu formadagi birinchi son, ikkinchi son, Natija yozuvlari komponentalar ro’yxatidan Label ni tanlash bilan hosil qilingan. Odatda formada Label ishlatilsa, uning ishlatilish soniga qarab Label1, Label2 va hakazo shaklda chiqadi, buni o’zgartirish uchun Caption da Label1, Label2 va hakozolarni o’chirib o’rniga dasturga mos matn kiritiladi. Formada qo’shish, ayrish, ko’paytirish, bo’lish amallariga standart tugmalardan Button komponentasi tanlangan. Bunda ham Caption da Button lar o’rniga mos ravishda qo’shish, ayrish, ko’paytirish, bo’lish deb o’zgartirilgan.

Delphi da tuzilgan dasturdan normal holda chiqib ketish uchun standart x tugmasidan tashqari yana boshqa tugma ishltiladi. Buning uchun komponentalar menyu satridan Additional bandi tanlanadi va uning ichidan BitBtn komponentasi tanlanadi. Agar Caption da &Close deb o’zgartirila, Kind da Bkclose deb yozib qo’ysak, u holda yopish tugmasida tagiga chizilgan Close yozuvi hosil bo’ladi.