Pascal - Insertion sort - Ricorsione

Agosto 2017

Pascal è un linguaggio di programmazione nato agli inizi degli anni '70, utilizzato soprattutto dai programmatori alle prime armi che vogliono imparare le prime nozioni per la programmazione.

Ecco una procedura che consente di ordinare un array di n interi utilizzando il metodo di insertion sort con Pascal:

Procedure Ins_Sort (Var t: TAB; n: integer);  
Var aux,i : integer;
begin
If n > 1 Then
begin
Tri_Ins (t,n - 1);
If t[n] < t[n - 1] Then
Begin
aux:= t[n];
i := n;
Repeat
t[i] := t[i - 1];
i := i - 1;
Until (i = 1) Or (aux > t[i - 1]);
t[i] := aux;
End;

Potrebbe anche interessarti

L'articolo originale è stato scritto da Carlos-vialfa. Tradotto da zig@. Ultimo aggiornamento 12 gennaio 2017 alle 13:44 da AntonelloCCM.
Il documento intitolato «Pascal - Insertion sort - Ricorsione» dal sito CCM (it.ccm.net) è reso disponibile sotto i termini della licenza Creative Commons. È possibile copiare, modificare delle copie di questa pagina, nelle condizioni previste dalla licenza, finché questa nota appaia chiaramente.