Admin CliCours
1. Ecrire une action qui fournit les félicitations ou l’ajournement d’un élève suivant sa note en utilisant Si-alors-sinon.
Action : Jury
Var : note : réel
Début : lire (note)
Si note <10 alors écrire (« ajourné »)
Sinon écrire (« reçu »)
Fin
2. Ecrire un programme qui donne la valeur absolue de 2 réels :
Action : Valeur_absolue
Var : a, b : réels
Début : Ecrire (« saisissez 2 réels »)
Lire (A, B)
Ecrire « les valeurs absolues de A et de B sont : »)
Si A<0 alors écrire (-A)
Sinon écrire (A)
Ecrire (« et »)
Si B<0 alors écrire (-A)
Sinon écrire (A)
Fin
Remarque : on peut aller plus vite en créant une fonction valeur absolue et en faisant appel à cette fonction dans une action :
Fonction : valAbs (x :réel) :réel
Var : absx : réel
Début : si x <0 alors absx <= -x
Sinon absx <= x
Retourner absx
Fin
Et
Action : Valeur_absolue2
Var : A, B réels
Début : Ecrire (« saisissez 2 réels »)
Lire (A, B)
Ecrire (« les valeurs de A et B sont : », valAbs(A), « et », valAbs(B))
3. Faire un programme qui donne le volume d’un cylindre en faisant appel à une fonction ‘aire d’un cercle’.
Fonction : aire_cercle (rayon :réel) :réel
Var : Aire : réel
Const : PI=3.14
Début : Aire <= PI*rayon*rayon
Retourner (Aire)
Fin
Fonction : volume_cercle (hauteur, rayon :réels) :réel
Var : volume : réel
Début : Volume <=aire_cercle (rayon)*hauteur
Retourner volume
Fin
4. Ecrire un algorithme permettant de résoudre une équation du premier degré
Action : premierdegre
Var : a, b, x réels
Début : Ecrire (« saisissez les valeurs a et b de l’équation ax+b=0 : »)
Lire (a, b)
Si a = 0 alors écrire (« pas de solution »)
Sinon écrire (« la solution est x= », -b/a)
Fin
