Exercices simples d’algorithme

Exercice 1 :

Ecrire un algorithme d’une action qui échange deux variables A et B

 Action : Echange

Var : A, B, C : réels

Début :  Ecrire (« Saisissez deux variables »)

             Lire (A, B)

             C <= A

             A <= B

             B <= C

Ecrire (« les valeurs de », A, « et de » , B, « ont été changées »)

Fin

 Exercice 2 :

Ecrire une fonction qui donne les carré d’un réel

 Fonction : carré (x :réel) :réel

Var : x_au_carré

Début

x_au_carré <= x*x

retourner x_au_carré

fin

Remarques :

Dans une fonction, la seule variable qui est définie est celle du résultat, les autres sont définies dans la fonction mère, et apparaissent ici en temps qu’entrées.

Dans une fonction, ne pas oublier de retourner le résultat.

 Exercice en utilisant les structures SI…ALORS…SINON et SELON…QUE

Exercice 3 :

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

 Exercice 4 :

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))

 Ecrire 5 :

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

 Exercice 6 :

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

 Exercice 7 :

Ecrire un algorithme permettant de résoudre une équation du second degré en utilisant des si alors..

 Action : seconddegré

Var : a, b, c, delta

Début : Ecrire (« saisissez les valeurs a, b et c de l’équation ax²+bx+c=0 : »)

             Lire (a, b, c)

             Si a=0 alors écrire (« équation du premier degré »)

             Sinon delta<=b²-4*a*c

Début

Si delta>0 alors écrire (« les solutions de l’équation sont », (-b-sqrt(delta))/(2*a), « et », (-b+sqrt(delta))/(2*a))

Sinon

                            Début

                            Si d=0 alors écrire ( -b/(2a))

                            Sinon écrire (« pas de solutions réelles »)

                                            Fin     

                            Fin

Fin

 Ecrire le même algorithme avec des selon-que :

 Action : seconddegré

Var : a, b, c, delta

Début :  Ecrire (“saisissez les valeurs de a, b et c de l’équation ax²+bx+c)

             Lire (a, b, c)

Si a=0 alors écrire (« résoudre permier degré »)

Sinon début

             Delta <= b²-4*a*c

             Selon que

             Delta > 0 : écrire ((-b-sqrt(delta))/(2*a), (-b+sqrt(delta))/(2*a))

             Delta = 0 : écrire (( -b/(2a))

             Sinon écrire (« pas de solution réelle »)

             Fin selon

Fin

Télécharger le document complet