Delphida massivlar bilan ishlash algoritmlarga doir misollar 1-masala

3.10-masala. 1 dan 10 gacha bo’lgan sonlardan sikl qadami 1 ga teng holda kvadrat chiqaring.
Yechish. Berilgan x sondan chiqarilgan kvadrat ildizning qiymatini y bilan belgilaymiz.y=x²
procedure TForm1.Button1Click(Sender: TObject);
var a,b,i:byte;
s:real; s1,s2:string;
begin
a:=strtoint(edit1.Text);
b:=strtoint(edit2.Text);
memo1.Clear;
for i:=a to b do begin
s:=sqr(i);
str(i,s2); str(s,s1);
memo1.Lines.Add('x='+s2+' ildiz='+s1);
end;
end;
end.

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 wbegin 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 skend;

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;