Exemple de programmation itérative

Soit n un nombre entier :

   n! = 1 * 2 * ... * (n - 1) * n

Ceci est une définition itérative, car il faut utiliser une boucle pour réaliser l'algorithme associé.

La fonction Pascal correspondante est :

function factorielle(n:integer):longint;

var

   i : integer;

   fact : longint;

begin

   fact:=1;

   for i := 1 to n do

      fact := fact * i;

   factorielle := fact;

end;