Delphi da matematik masalalarni yechish ilovalarini yaratish - Алгебра - Презентации

Информация о документе

Цена	3000UZS
Размер	1.0MB
Покупки	0
Дата загрузки	07 Ноябрь 2026
Расширение	pptx
Раздел	Презентации
Предмет	Алгебра

Delphi da matematik masalalarni yechish ilovalarini yaratish

Купить

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

Купить