User:Touaiti ahmed

lesson 11:(turbo pascale)Trie insertion

procedure tri_insertion(n:integer;var t:tab);

var i,j,aux:integer;

begin for i:=2 to n do   begin aux:=t(i];   j:=i;    while(t[j-1]>aux)and(j>1)do      begin      t[j]:=t[j-1];      j=j-1;      end;    t[j]:=aux;   end; end;