insert sort?

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/insert_sort_110194/page_1 - zur Vollversion wechseln!

Bestox schrieb am 20.03.2004 um 17:58

is dasn insert sort? (pascal; zahlen ist ein array von 1 bis 20)

procedure sortierinsert(var zahlen:tzahlen);
var i,j,index:integer;
begin
index:=0;
for i:=1 to 20 do
begin
index:=zahlen[i];
j:=i;
while ((j>1) and (zahlen[j-1]>index)) do
begin
zahlen[j]:=zahlen[j-1];
j:=j-1;
end;
zahlen[j]:=index;
end;

Ringding schrieb am 20.03.2004 um 18:45

Ja, wie es im Buche steht.

Bestox schrieb am 20.03.2004 um 20:03

herzlichen dank