Ajiniyoz nomidagi nukus davlat pedagogika

O(n
2 
).
2
 
 
 
Berilgan 
massiv 
 
 
1-qadam 
                                                 
2
 Колдаев В.Д. Основы алгоритмизации и программирования: Учебное пособие/ Под ред. 
проф.  Л.Г.Гагариной.-М.:ИД  «Форум»:  ИНФА-М,  2006.-416  с.:  ил.  –(Профессиональное 
образование).  
71-72 cc. 
 

---

 
 
2-qadam 
 
Dastur kodi: 
Var A : array[1..1000] of integer; 
N,i,j,p : integer; 
Min, Max : integer; 
Begin 
readln(n); randomize; 
for i:=1 to n do 
begin 
a[i]:=random(120); 
write(a[i],’ ‘); 
end; 
writeln; 
for i:=1 to n div 2 do 
begin 
if A[i]>A[i+1] then 
begin 
Min:=i+1; 
Max:=i; 
end 
else 
begin 
Min:=i; 
Max:=i+1; 
end; 
for j:=i+2 to n-i+1 do 
if A[j]>A[Max] then 
Max:=j 
else 
if A[j]P:=A[i]; 

---

A[i]:=A[min]; 
A[min]:=P; 
if max=i then 
max:=min; 
P:=A[N-i+1]; 
A[N-i+1]:=A[max]; 
A[max]:=P; write(a[i],’ ‘); 
end; 
writeln; 
for i:=1 to n do 
write(a[i],’ ‘); 
readln; 
End. 
 
Olinadigan natija: 
 
 
 
Pufakcha (qalqib chiqish) usuli.
 
A[0], A[1],.., A[N] massivning elementlari berilgan bo‘lsin.  Ketma-ket ravishda A[0], va 
A[1],  A[1],  va  A[2]  elementlar  o‘zaro  taqqoslanib  agar  A[i]>a[i+1]  bo‘lsa,  ular  o‘zaro  o‘rin 
almashadilar.  Ikkinchi  qadamda  shu  holat  A[N-1]  gacha  davom  ettiriladi  va  hokazo.  Bu  usul 
hubobcha
(qalqib  chiqish)  usuli  deyilishiga  sabab  har  safar  hajmi  katta  «sharcha»  element 
qolganlarini ortda qoldirib yuzaga “qalqib” chiqadi. 
 
Ushbu algoritmni Delphi dasturlash tilida keltirib o‘tamiz. 
proсedure TForm1.BitBtn1Сliсk(Sender: TObjest); 
var A:ARRAY[1..15] OF INTEGER; I,D,K,Z,QAT:INTEGER; 
begin 
RANDOMIZE; QAT:=2; StringGrid1.RowSount:=1; 

---

for I := 1 to 15 do 
BEGIN 
A[I]:=RANDOM(39); StringGrid1.Sells[I,1]:=FloatToStr(A[I]); 
END; 
K:=14; 
while (K>=1) do 
BEGIN 
I:=1; 
while (I<=K) do 
BEGIN 
if A[I]>A[I+1] then 
BEGIN D:=A[I]; A[I]:=A[I+1]; A[I+1]:=D; 
END; 
I:= I+1; 
END; 
K:=K-1; 
for Z := 1 to 15 do 
BEGIN StringGrid1.Sells[Z,QAT]:=FloatToStr(A[Z]); END; 
QAT:=QAT+1; StringGrid1.RowSount:=StringGrid1.RowSount+1; 
END; 
end; 
end.