Des simples Algorithmes avec solutions ...

Ecrire l'Algorithme qui permet de calculer :

  1/ Sn = N!
  2/ Sn = X^p
  3/ Sn = 1+2+3+4+......+n 
  4/ Sn = 1*2*3*4*.......*n
  5/ Sn = 1^p + 2^p + 3^p + ......+ n^p
  6/ Sn = (1^2)/1! + (2^2)/2! + (3^2)/3! + ...... + (n^2)/n!

Solution :
         
     *  <-- : affectation

          1/ Sn = N!

Algorithme : Factoriel
var i , N , F : Entier
Debut
     ecrire ("Entrer N")
     lire (N)
     i <-- 1
     F <-- 1
    Tantque (i<=N) faire
        F <-- i * F
        i  <-- i + 1
     Fin Tantque
     ecrire ("F=" ,F)
Fin


          2/ Sn = X^p

Algorithme : Puissance
var i , P    : Entier
var X , M  : Réel
Debut
     ecrire ("Entrer X")
     lire (X)
     ecrire ("Entrer P")
     lire (P)
     i    <-- 1
     M <-- 1
    Tantque (i<=P) faire
        M <-- M * X
         i   <--  i + 1
    Fin Tantque
    ecrire (M)
Fin

          3/ Sn = 1+2+3+4+......+n

Algorithme : Somme
var i , S , N : Entier
Debut
     ecrire ("Entrer N")
     lire (N)
     S <-- 0
     i  <-- 1
     Tantque (i<=N) faire
          S <-- S + 1
          i   <-- i + 1
     Fin Tantque
     ecrire ("S=" ,S)
Fin




          4/ Sn = 1*2*3*4*.......*n


Algorithme : Produit
var i , P , N : Entier
Debut
     ecrire ("Entrer N")
     lire (N)
     P <-- 1
     i  <-- 1
    Tantque (i<=N) faire
         P <-- P * i
         i  <-- i + 1
    Fin Tantque
    ecrire ("P=" ,P)
Fin


          5/ Sn = 1^p + 2^p + 3^p + ......+ n^p


Algorithme : Somme avec puissance
var i , j , M , S , N , P : Entier
Debut
     ecrire ("Entrer N")
     lire (N)
     ecrire ("Entrer N")


     lire (N)
     S <-- 0
     Pour i = 1 à N (pas=1) faire
          M <-- 1
          Pour j = 1 à  P (pas=1) faire
               M <-- M * 1
          Fin pour
          S <-- S + M
    Fin pour
    ecrire ("S=" ,S)
Fin


          6/ Sn = (1^2)/1! + (2^2)/2! + (3^2)/3! + ...... + (n^2)/n!


Algorithme : Crré sur factoriel
var i ,  N , F : Entier
var S            : Réel
Debut
     ecrire ("Entrer N")
     lire (N)
     F <-- 1
     S  <-- 0
     Pour i = 1 à N (pas=1) faire
           F <-- F * i
           S <-- S + (i*i)/F
     Fin pour
     S <-- S + 1
     ecrire ("S=" ,S)
Fin

J'ai d'autre Algorithmes , mais j'ai besoin de m'encourager .

*vous pouvez proposer votre probleme Algorithmique, et j'essaye de vous aidé*

Ne soyer pas avare de commentaires