end;
for i:=1 to n do write(A[i],' '); {реттелген жиым}
end.
Алмастырып сқрыптау алгоритімінің келесі нұсқасы соңғы алмастыру орнын есте сақтау арқылы орындалады. Егер циклдың ағымдағы айналымында соңғы алмастырылған A[i] және A[i+1] элементтер болса, демек жиым элементтері i+1-ден бастап соңына дейін реттеліп тұр. Бұл мәлімет бізге келесі айналымға қатысатын қос элементтер санын i-1-ге тең етіп алуға мүмкіндік береді.
Мысал:Соңғы алмастыру орнын есте сақтау арқылы алмастырып сұрыптау.
program Sort_Obmen3;
var A:array[1..100] of integer;
N,i,k,x,m : integer;
begin
write('жиым элементтерінің саны');
read(N);
for i:=1 to n do read(A[i]);
k:=n-1; {бірінші айналымға қатысатын қос элементтер саны }
Достарыңызбен бөлісу: |
