• Program Sort; Const Size=5; Var i,j,min,k,buf: Integer; a: Array[1..Size] of Integer; Begin
  • For i:=1 to Size-1 Do Begin { kichik elementni topish } min:=i For j:=iq1 to Size Do Begin If a[j]
  • Program Sort; Const Size=5; Var i,j,min,k,buf: Integer; a: Array[1..Size] of Integer; Begin
  • Massiv elementlarini tartiblash usullari




    Download 168,43 Kb.
    bet2/3
    Sana08.06.2024
    Hajmi168,43 Kb.
    #261615
    1   2   3
    Bog'liq
    19 Amaliy mashg’ulot

    Massiv elementlarini tartiblash usullari.
    Massivni tartiblashtirishning bir necha usullari (algoritmlari) mavjud. Ulardan quyidagi usullarni qarab chiqamiz:
    -tanlash usuli;
    -almashtirish usuli.
    Тanlash usuli yordamida massivni o’sish bo’yicha tartiblashtirish algoritmi quyidagicha:
    1.Massivning birinchi elementidan boshlab qarab chiqilib eng kichik element topiladi.
    2.Birinchi element bilan eng kichik element joylari almashtiriladi.
    3.Ikkinchi elementidan boshlab qarab chiqilib eng kichik element topiladi.
    4.Ikkinchi element bilan eng kichik element joylari almashtiriladi.
    5.Bu protsess bitta oxirgi elementgacha takrorlanadi.
    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 tartiblashtirish’);
    Write (Size:3,’ta massiv elementini kiriting’);
    For k:=1 to Size Do Read(a[k]);
    Writeln (‘Тartiblashtirish’);
    For i:=1 to Size-1 Do
    Begin { kichik elementni topish }
    min:=i
    For j:=iq1 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
    Тartiblatirish
    -3 12 56 47 10
    -3 10 56 47 12
    -3 10 12 47 56
    -3 10 12 47 56
    Massiv tartiblashtirildi.
    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’);

    Download 168,43 Kb.
    1   2   3




    Download 168,43 Kb.

    Bosh sahifa
    Aloqalar

        Bosh sahifa



    Massiv elementlarini tartiblash usullari

    Download 168,43 Kb.