S_fact : calculer dans la variable fact la factorielle
d'un nombre n positif et quelconque.
Ecrire trois versions de ce calcul avec
chacune des boucles étudiées: for, loop
et while. Pour chaque boucle étudier:
i:= 0;
while i <= n loop
i := i + 1;
somme := somme +i;
end loop;
i:= 1;
while i <= n loop
i := i + 1;
somme := somme +i;
end loop;
i:= 0;
while i <= n loop
somme := somme + i;
i := i + 1;
end loop;
i:= 0;
loop
i := i + 1;
exit when i >= n;
somme := somme + i;
end loop;
i:= 1;
loop
somme := somme + i;
i := i + 1;
exit when i >= n;
end loop;