Proposition d'algorithme

Bonjour,
je souhaite que qulequ'un me propose un algorithme complet qui me permet à partir d'un menu principal afficher à l'écran d'éffectuer le produit, la somme et la moyenne de trois (03) nombnres réels entrés au clavier.
L'utilisateur fera le choix de son opération par la saisie d'une valeur entière.

Mon algorithme initial est le suvant:
Variables
A,B,C,P,S,M: réel
choix: entier

Debut
Ecrire('entrez trois nombres')
lire(A,B,C)
s<-A+B+C
p<-A*B*C
M<-S/3
Ecrire('entrez votre choix')
lire(choix)
cas (choix) vaut
1: ecrire('la some est:',s)
2: ecrire('le produitest:',p)
3: ecrire('la moyenne est:',M)
sinom
ecrire('erreur de touche')
fincas
Fin

Nb: au lieu de stopper le programme à l'instruction "erreur de touche", je voudrais que celui-ci se réexecute en cas d'erreur de valeurs ou d'opérations.
j'ai voulu utiliser des boucles mais je n'ai pas su le faire.
Configuration: Windows XP
Internet Explorer 7.0

2 réponses

  1. bonsoir,
    alogorithme en français.

    resultat=false
    tant que résultat=false

    calculs
    si calcule fait alors resultat=true

    fin du tant que
    1. bonsoir!

      Variables
      A,B,C,P,S,M: réel
      choix: entier

      Debut
      Ecrire('entrez trois nombres')
      lire(A,B,C)
      s<-A+B+C
      p<-A*B*C
      M<-S/3
      ----------
      afficher("1->calcule de la somme:")
      afficher("2->calcule du produit:")
      afficher("3->calcule de la moyenne:")
      fair
      Ecrire('entrez votre choix')
      lire(choix)
      jusqu'a (choix=1 ou choix=2 ou choix=3)
      ---------
      cas (choix) vaut
      1: ecrire('la some est:',s)
      2: ecrire('le produitest:',p)
      3: ecrire('la moyenne est:',M)
      fincas
      Fin

      :)