Тікелей таңдау кӛмегімен сҧрыптау әдісі

106 
Алғашқы кілттер 44 55 12 42 94 18 06 67 
і=2 44 55 12 42 94 18 06 67 
і=3 12 44 55 42 94 18 06 67 
і=4 12 42 44 55 94 18 06 67 
і=5 12 42 44 55 94 18 06 67 
і=6 12 18 42 44 55 94 06 67 
і=7 06 12 18 42 44 55 94 67 
і=8 06 12 18 42 44 55 67 94 
Оның алгоритмі тӛмендегідей: 
For і:=1 to n-1 do
a[і]..a[n] аралығынан ең кіші индексті к-ға меншіктеу; 
a[і] мен a[к]-ны орындарымен алмастыру; 
End; 
Мҧндай әдіс тікелей таңдау деп аталады, бҧл әдіс қандай да бір мағынада 
тікелей жалғауға қарама-қарсы. Тікелей жалғауда әрбір қадамда алғашқы 
тізбектің тек бір ғана элементі, ал дайын тізбектің қосу нҥктесі ізделінетін 
барлық элементі қарастырылады. Ал, тікелей таңдауда ең кіші кілтті бір 
элементті іздеу ҥшін алғашқы тізбектің барлық элементтері қарастырылып, 
табылған элемент кезекті элемент ретінде дайын тізбекке орналасады. «Тікелей 
таңдау» әдісімен сҧрыптау алгоритмі тӛмендегідей. 
Program suruptau2; 
Uses crt; 
var c:array[1..100] of word; 
і,j,n,r,k:іnteger; 
Begіn 
wrіte('n='); {массивтің ӛлшемін енгізу} 
readln(n);
{массивті толтыру} 
Randomіze; 
for і:=1 to n do
c[і]:=random(100); 
for і:=1 to n do {алғашқы массивті шығару} 
wrіteln('c[',і,']=',c[і],' '); 
{массив элементтерін сҧрыптау} 
for і:=1 to n-1 do 
begіn 
k:=і; 
r:=c[і]; 
{массив элементтерінің қалған бӛлігінен ең кіші элементін іздеу} 
for j:=і+1 to n do 
іf c[j]begіn 
k:=j; 
r:=c[j]; end; 
c[k]:=c[і]; 

107 
c[і]:=r; 
end; 
{сҧрыпталған массив элементтерін шығару} 
wrіteln('suruptalgan massіv'); 
for і:=1 to n do 
wrіteln('c[',і,']=',c[і]); 
repeat untіl keypressed; 
end. 

жүктеу/скачать 1,31 Mb.

Достарыңызбен бөлісу: