Ш. И. Раззоќов, М. Д. Юнусова turbo pascal алгоритмик тилида дастурлаш касб-ћунар коллеж талабалари учун ўќув ќўлланма

program InsertionSort;
uses Crt;
const
n = 20; { массив узунлиги }
type
TVector = array [1..n] of Real;
var
Vector : TVector;
В : Real;
i, j, k : Integer;
begin
ClrScr;
Writeln (' Массив элементларини киритиш:');
for i : = 1 to n do Read (Vector [i]) ; Readln;
{----------------------------------------------------------------}
for i := 2 to n do
begin
В := Vector[i]; { сараланмаган элементни олиш}
{Ќўйиш ўрнини топиш цикли }
j := 1;
while (В > Vector[j]) do
j := j + 1; {j индекс цикл тугагандан кейин }
{ќўйиш ўрнини белгилайди. }
{Ќўйиш ўрнини бўшатиш учун элементларни }
{ силжитиш цикли}
for k := i-1 downto j do
Vector[k+1] := Vector[k];
{ Топилган ўринга олинган элементни киритиш }
Vector[j] := В;
end;
{-----------------------------------------------------------------------------------------}
Writeln ('Сараланган массив:');
for i := 1 to n do Write (Vector[i]:8:2);
Writeln;
end.
9.1.2.2. Танлаш йўли билан саралаш.
Усул тамойили:
Массивда 1-элементдан n-элементгача (охирги) бўлган оралиќда минимал ќийматли элементни топамиз (танлаймиз) ва уни биринчи элемент ўрни билан алмаштирамиз. Иккинчи ќадамда 2-дан n-гача оралиќда минимал ќийматли элементни топамиз ва уни иккинчи элемент ўрни билан алмаштирамиз.
Шундай тарзда n-1 элементгача алмаштиришларни бажарамиз.
Танлаш алгоритми схемасини кўрамиз.

Танлаш усулини амалга оширувчи дастур матнини келтирамиз.

9.2-дастур
program SelectionSort;
uses Crt;
const
n = 20; { массив узунлиги }