Shell Sort

**kronika** · 11-21-2007, 15:38

Shell sort algoritması Insertion algoritmasına benzer ancak bu algoritma daha hızlıdır.Çünkü sıralama işlemini bütün dizi üzerinde değilde diziyi guruplara bölerek yapar.Insertion sort metodunu dizinin belli bölümlerine uyguladığımızda Shell sort algoritmasını elde ederiz.

USES CRT;
CONST
N=10;
TYPE
Ary=Array[1..n]of integer;
Indis=1..n;
VAR
list:Ary;
i:indis;
PROCEDURE { shell } Sort(VAR A:Ary);
VAR
Done: Boolean;
Jump,I,J,temp: Integer;
BEGIN
Jump := N;
WHILE Jump > 1 DO
BEGIN
Jump := Jump DIV 2;
REPEAT
Done := True;
FOR J := 1 TO N - Jump DO
BEGIN
I := J + Jump;
IF A[J] > A[i] THEN
BEGIN
temp:=A[J];
A[J]:=A[i];
A[i]:=temp;
Done := False
END;
END;
UNTIL Done
END;
END;
BEGIN
for i:=1 to n do begin
Write('Listenin ',i,'.elemanı: ');Readln(list[i]);
end;
sort(list);
for i:=1 to n do
Writeln(list[i]);
Readln;
END.

11-21-2007, 15:38	#1 (permalink)
Üye Bilgileri kronika Kalfa Giriş: Oct 2006 Şehir : Belirtilmedi Mesaj: 12,044 Rep Gücü: 2699 Rep Puanı : 268460 Rep Seviyesi:	Shell Sort Shell sort algoritması Insertion algoritmasına benzer ancak bu algoritma daha hızlıdır.Çünkü sıralama işlemini bütün dizi üzerinde değilde diziyi guruplara bölerek yapar.Insertion sort metodunu dizinin belli bölümlerine uyguladığımızda Shell sort algoritmasını elde ederiz. USES CRT; CONST N=10; TYPE Ary=Array[1..n]of integer; Indis=1..n; VAR list:Ary; i:indis; PROCEDURE { shell } Sort(VAR A:Ary); VAR Done: Boolean; Jump,I,J,temp: Integer; BEGIN Jump := N; WHILE Jump > 1 DO BEGIN Jump := Jump DIV 2; REPEAT Done := True; FOR J := 1 TO N - Jump DO BEGIN I := J + Jump; IF A[J] > A[i] THEN BEGIN temp:=A[J]; A[J]:=A[i]; A[i]:=temp; Done := False END; END; UNTIL Done END; END; BEGIN for i:=1 to n do begin Write('Listenin ',i,'.elemanı: ');Readln(list[i]); end; sort(list); for i:=1 to n do Writeln(list[i]); Readln; END. *..Lâl’im…*

Konu Araçları
Yazıcı Çıktısını Göster Sayfayı E-posta ile Yolla
Görünüm Modları
Düzenli Mod Karışık Moda Geç Konu Moduna Geç

Şu an bu konuyu görüntüleyen kullanıcı sayısı: 1 (0 üye ve 1 misafir)