linkedin facebook linkedin facebook nod32

Delphi da tarmoqlanuvchi algoritmlarga doir dasturlar tuzish

Muallif: Mengliyev Shoydullo

Qo`shilgan sana: 2014-10-26

Delphi da tarmoqlanuvchi algoritmlarga doir dasturlar tuzish.

2.1-masala. Tarmoqlanuvchi dasturlarga doir Delphi da kvadrat tenglamaning haqiqiy ildizlarini topish dasturi tuzilgan. Bu dasturga mos prosteduralarning ko’rinishi quyidagicha bo’ladi:

procedure TForm1.Label4Click(Sender: TObject);
var d,a,b,c,x1,x2:real;
begin
a:=strtofloat(edit1.Text);
b:=strtloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=b*b-4*a*c;
if d<0 then Label4.Caption:='xakikiy echimi yuk'
else begin x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
Label4.Caption:='x1= '+floattostr(x1)+' x2= '+floattostr(x2);
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var d,a,b,c,x1,x2:real;
begin
a:=strtofloat(edit1.Text);
b:=strtofloat(edit2.Text);
c:=strtofloat(edit3.Text);
d:=b*b-4*a*c;
if d<0 then Label4.Caption:='xakikiy echimi yuk'
else begin x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
Label4.Caption:='x1= '+floattostr(x1)+' x2= '+floattostr(x2);
end;
end;

2.2masala. Ikki butun musbat son m va n larning eng katta umumiy bo’luvchisi (EKUB) ni aniqlash dasturini tuzing.

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
label 1,2;
var m,n,x,y:ineteger;
begin
m:=StrToInt(Edit1.Text);
n:=StrToInt(Edit2.Text);
x:=m;y:=n;
1: if x=y then goto 2;
if x>y then x:=x-y else y:=y-x; goto 1;
2: Edit3.Text:=IntToStr(x);
end;

2.3masala. Ikkita x va y sonlarning kattasini tanlash (EKT) dacturini tuzing.

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var m,y,x:ineteger;
begin
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
if x>y then begin m:=x; Edit3.Text:=FloatToStr(m); end
else if y>x then begin m:=y; Edit3.Text:=FloatToStr(m); end
else showmessage(‘Bu sonlar teng!’);
end;

2.4 masala. Raketa v (km/soat) tezlik bilan Er ekvatoridagi nuqtadan Erning quyosh atrofidagi orbitasi bo’ylab uchiriladi. Raketani uchirish natijasi qanday bo’ladi?

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
begin
a:=strtofloat(edit1.Text);
if a<7.9 then label3.Caption:='Raketa Yerga qaytib tushadi';
if (a>=7.9) and (a<11.2) then label3.Caption:='Raketa Yerning sun`iy yo`ldoshiga aylanadi';
if (a>=11.2) and (a<16.7) then label3.Caption:=' Quyoshning sun`iy yo`ldoshiga aylanadi';
if a>=16.7 then label3.Caption:='Raketa Galaktikaning sun`iy yo`ldoshiga aylanadi';
end;
end.

2.5-masala. Optimal og’irlikni aniqlash dasturini yozing. Dastur formasi quyidagicha ko’rinishga ega.

Dastur matni

procedure tform1.button1click(sender: tobject);
var w,h,opt,d:real;
begin
w:=strtofloat(edit1.text);
h:=strtofloat(edit2.text);
opt:=h-100;
if w=opt then
begin
label3.caption:='optimal';
end
else
if w<opt then
begin d:=opt-w;
label3.caption:='siz semirishingiz kerak';
end
else
begin
d:=w-opt;
label3.caption:='siz ozishingiz kerak'+floattostr(d);
end;
end;
end.

2.6-masala. Agar kvadratning tomoni A, doiraning radiusi r ga teng bo’lsa, kvadrat va doiraning yuzlarini solishtirib kattasini aniqlang.

Dastur matni

procedure TForm1.Button1Click(Sender: TObject);
var a,r,sk,sd:real;
begin
a:=StrToFloat(Edit1.Text);
r:=StrToFloat(Edit2.Text);
sk:=a*a;sd:=pi*r*r;
if sk>sd then Edit3.Text:=’Kvadratning yuzi katta!’ else if sk<sd then Edit3.text:=’Doiraning yuzi katta!’ else Edit3.Text:=’Yuzlari teng!’;
end;


2.7-masala. Quyidagi funkstiya hisoblansin: x>0 bo’lganda 1 ga teng; x=0 da nolga teng; x<0 da -1 ga teng.

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var x,y:real;
begin
x:=StrToFloat(Edit1.Text);
if x>0 then y:=1 else if x=0 then y:=0 else y:=-1;
Edit2.Text:=FloatToStr(y);
end;

2.8-masala. Berilgan N yil kabisa yili bo’lish-bo’lmasligini aniqlang.
Izoh. Agar N 100 ga karrali son bo’lmasa va uning oxirgi ikki raqami 4 ga karrali son bo’lsa, u holda N-yil kabisa yilidir. Agar N soni 100 karrali bo’lsa, u holda N soni 400 ga karrali bo’lgandagina mazkur yil kabisa yili bo’ladi.

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var n:integer;
begin
n:=StrToInt(Edit1.Text);
if n mod 100=0 then begin if n mod 400 =0 then Edit2.Text:=’Bu yil kabisa yili!’ else Edit2.Text:=’Bu yil kabisa yili emas!’; end else if n mod 4 =0 then Edit2.Text:=’Bu yil kabisa yili!’else Edit2.Text:=’Bu yil kabisa yili emas!’;
end;

2.9 Kvadrat tenglamaning ildizini topish dasturini tuzing

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
Var
a,b,c:Real; { Tenglama koeffistientlari }
d:Real; { Diskriminant }
x1,x2:Real; { Tenglama ildizlari}
begin
{ Kerakli ma’lumotlarni kiritish }
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
d:=b*b-4*a*c; { Diskriminantni xisoblash }
If d<0 Then
Begin
Label5.Caption:='Diskriminant noldan kichik'+#13+ 'Tenglamaning ildizi yuk.'
End
Else
Begin
x1:=(-b-Sqrt(d))/(2*a); { Ildizlarni xisoblash }
x2:=(-b+Sqrt(d))/(2*a); { x1, x2 natijani chop etish }
Label5.Caption:='Tenglama ildizlari' +#13+'x1='+FloatToStr(x1)+#13+'x2='+FloatToStr(x2);
End;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin Label1.Caption:='Tenglama koeffistientini kiriting' +#13+'va Xisoblash tugmasini bosing';
end;end.

2.10-masala. a, b, c sonlar mos ravishda uchta kesmaning uzunliklarini ifodalaydi. Agar kesmalar uchburchakning tomonlarini ifodalasa, uchburchakning yuzi s, uchburchakka tashqi va ichki chizilgan aylanalarning radiuslari r1 va r2 larni toping.

Dastur matni
procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,r1,r2,s,p:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
c:=StrToFloat(Edit3.Text);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
r2:=s/p;
r1:=a*b*c/(4*s);
Edit4.Text:=FloatToStr(r1);
Edit5.Text:=FloatToStr(r2);
Edit6.Text:=FloatToStr(s); end else showmessage(‘Kiritilgan sonlar uchburchak tomonlarini ifodalamaydi!’);
end;

11480 marta o`qildi.

Foydalanuvchi ismi: Tilovov Mirqosim
Qo`shilgan sana: 2014-03-12

G`oyaga gap yo`q!!! ana shu narsa kerak edi bizga!!!

Foydalanuvchi ismi: bektashev 102
Qo`shilgan sana: 2014-05-28

masivlarda dasturlar tshunarli keltrilgan

Foydalanuvchi ismi: bektashev 102
Qo`shilgan sana: 2014-05-28

masivlarda dasturlar tshunarli keltrilgan

Foydalanuvchi ismi: Marvarid
Qo`shilgan sana: 2014-07-18

yaxshi sayt ekan

Foydalanuvchi ismi: Munisbek
Qo`shilgan sana: 2015-04-08

ajoyib lekin man aurim knopkalarni ishlata olmayapman. masalan = ni Javob: bu juda oddiy misolni tashlab beraman manzil yuboring

Foydalanuvchi ismi: DILMUROD TOJITEV 203
Qo`shilgan sana: 2015-04-17

Yaxshi

Foydalanuvchi ismi: Zilola
Qo`shilgan sana: 2015-04-26

ajoyib

Parol:
Eslab qolish.


Ro`yhatdan o`tish

testing

+998915878681

Siz o`z maxsulotingizni 3D reklama ko`rinishda bo`lishini xohlaysizmi? Unda xamkorlik qilamiz.

3D Reklama


Рейтинг@Mail.ru
Рейтинг@Mail.ru

Besucherzahler
счетчик посещений