Stian Søiland, IT 111, øvingsgruppe 15 (stud.ass. Kari Alvheim)

Delphi - Øving 4 - Oppgave 2

// eksempeltyper
type datatype=real;
     matrise=array[0..50] of datatype;

procedure sortering(var matrise1:matrise);
 var i,j,pos:integer;
     funnet:boolean;
     temp:datatype;
 begin
  for i:=low(matrise1) to high(matrise1) do
   begin
    funnet := false;
    j := low(matrise1)-1;
    while not funnet do
    begin
     j := j+1;
     if matrise1[i] <= matrise1[j] then
      begin
       funnet := true;
       pos := j;
      end;
    end;
   // flytt elementer nedover
   temp := matrise1[i];
   for j:=i downto pos do matrise1[j] := matrise1[j-1];
   matrise1[pos] := temp;
   end;
 end;