Algorithme inserer; Var i,k,x: entier; T[1..n] : entier; Début lire(x); n:=n+1; pour i de n à k pas-1 faire T[i+1] := T[i]; finfaire T[k] := x; Fin |
Procédure inserer(L:liste,k:1..lmax, x:élément) var i,n:1..lmax; Début n := L.longueur; L.longueur := n+1; pour i de n à k pas-1 faire L.T[i+1] := L.T[i]; finfaire L.T[i] := x; Fin |
Please disable your ad blocker and refresh the window to use this website.