min:=i; For j:=i+1 to Size Do Begin If a[j] buf:=a[i]; a[i]:=a[min]; a[min]:=buf; For k:=1 to Size Do Write (a[k],’ ‘); Writeln; End; End; Writeln(‘Massiv tartiblashtirildi.’); End.
Dastur natijasi:
Massivni tartiblashtirish
5 ta massiv elementini kiriting
12 -3 56 47 10
Tartiblatirish
-3 12 56 47 10
-3 10 56 47 12
-3 10 12 47 56
-3 10 12 47 56
Massiv tartiblashtirildi.
Almashtirish usuli yordamida massiv elementlarini o’sib borishda tartiblashtirish algoritmi quyidagicha:
1.Massivning birinchi elementidan boshlab ketma-ket hamma qo’shni elementlar bir-biri bilan solishtirilib, agar birinchisi ikkinchisidan kichik bo’lsa ular joyi almashtirilib boriladi.
2.Bu protsess davomida kichik qiymatli elementlar massiv boshiga katta elementlar esa oxiriga siljitilib boriladi. SHu sabab bu usul «puzirka» usuli ham deyiladi.
3.Bu protsess massiv elementlar sonidan bitta kam marta takrorlanadi.
Masalan:
3 2 4 5 1 bunda 3 bilan 2 va 5 bilan 1 almashtiriladi.
2 3 4 1 5 bunda 4 bilan 1 almashtiriladi.
2 3 1 4 5 bunda 3 bilan 1 almashtiriladi.
2 1 3 4 5 bunda 2 bilan 1 almashtiriladi.
1 2 3 4 5
Bu algoritm dastursi quyidagicha bo’ladi:
Program Sort; Const Size=5; Var i,j,min,k,buf: Integer; a: Array[1..Size] of Integer; Begin Writeln (‘Massivni puzirek(kupikcha) usulida tartiblashtirish’); Write (Size:3,’ta massiv elementini kiriting’); For k:=1 to Size Do Read(a[k]); Writeln (‘Tartiblatirish’); For i:=1 to Size-1 Do Begin For k:=1 to Size-1 Do Begin If a[k]>a[k+1] then Begin
