structure de choix multiple

Aller en bas

structure de choix multiple

Message  Admin le Dim 6 Mar - 23:01

En analyse et en algorithme

Selon sélecteur faire
valeur 1 : <Traitement1>
valeur 2 : <Traitement2>
valeur 3, valeur4 : <Traitement3>
valeur 5..valeur9 : <Traitement4>
… …
… …
valeur N : <Traitement N>
SINON
<Traitement R>
Fin selon

en pascal

Case sélecteur of
valeur1 : <Traitement1> ;
valeur2 : <Traitement2> ;
valeur3, valeur4 <Traitement3> ;
valeur5..valeur9 <Traitement4> ;
… …
… …
valeur N : <Traitement N>
Else
<Traitement R> ;
End ;

Remarques :
- Sélecteur doit être de type scalaire (entier, caractère ou booléen) ou de type intervalle (entier, caractère).
- La partie sinon (else)est facultative.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

application directe : affichage de la saison suivant le caractère saisi

Message  Admin le Dim 6 Mar - 23:26

en algorithmeen pascal
0) Début Saison
1) Ecrire (" donner le caractère : "), lire(S)
2) Selon S faire
"E", "e " : saison A "Été"
"A", "a " : saison A "Automne"
"H", "h ": saison A "Hiver"
"P", "p ": saison A "Printemps"
Sinon
siason A "saison introuvable "
Fin Selon
3) Ecrire (saison)
4) Fin Saison
Program Saison ;
uses wincrt ;
var
S : char ;
saison : string ;
begin
Write (‘ donner le caractere: ‘);
Readln (S);
Case S Of
‘E’, ‘e’: saison := ‘Eté’ ;
‘A’, ‘a’: saison := ‘Automne’ ;
‘H’, ‘h’: saison := ‘Hiver’ ;
‘P’, ‘p’: saison := ‘Printemps’
Else
siason := ‘saison non existante’ ;
End;
Writhen (saison);
End.

Admin
Admin

Messages : 137
Date d'inscription : 29/12/2010

Voir le profil de l'utilisateur http://aidescolaire.yoo7.com

Revenir en haut Aller en bas

Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum