Exo algo

Bonjour,
svp je veux une correction a mon zxo d'algorithme : ecrire en programme qiu permet de calculer le factoriel d'une valeur "n" donnée .
et merci d'avance
Configuration: Windows XP
Internet Explorer 7.0

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Bonsoir,

    Prenons factorielle de 5
    5! = 1 × 2 × 3 × 4 × 5

    Il suffit d'initialiser un int à 1 puis de boucler en l'incrémentant jusqu'à atteindre n en multipliant à chaque fois.
    1. algorithme factoriel;
      var f,i,n:entier;
      debut
      ecrire("tapez lz vzleur de n");
      lire(n);
      pour ide 1à n faire
      f =f*i;
      fin pour
      ecrire (f);
      fin
      1. algorithme factoriel;
        var f,i,n:entier;
        début
        écrire("tapez la valeur de n");
        lire(n);
        pour i de 1 à n faire
        f =f*i;
        fin pour
        écrire (f);
        fin