Exercices ALGORITHMIQUE
.jpg)
Ecrire un algorithme permettant
de lire une suite de nombres réels sur le clavier. Le dernier élément à lire
est un zéro. L’algorithme doit afficher le plus petit élément de la suite ainsi
que la somme des éléments lus.
Exercice2
Ecrire un algorithme qui
lit les noms des athlètes désirant participer à un marathon et s’arrête
lorsqu’il rencontre deux noms consécutifs identiques. L’algorithme doit
afficher, à la fin , le nombre de participants.
Exercice3
Dans un cinéma, on désire calculer la
moyenne d’âges de personnes s’intéressant à voir un film particulier.
Pour finir, l’utilisateur doit répondre
par ‘N’à la question posée par l’algorithme : ‘’ Encore une
autre personne (O/N) ? ’’ Et on doit afficher la moyenne d’âges des
personnes à l’écran.
Exercice 4
Ecrire un algorithme qui
calcule la valeur absolue d’un nombre réel .|x|= x si
x>0 , |x|= -x si x<0
Exercice5
Ecrire un algorithme qui
permet d’afficher la valeur absolue de la différence entre deux nombres réels
saisis au clavier.|x-y|= x –y si x>y ; |x-y|=
-(x –y) si x<y
Exercice6
Ecrire un algorithme qui
permet de saisir deux nombres entiers x ,y et les afficher à l’écran dans
l’ordre croissant.
Correction
Exercice 1
Var a,s : réels ;
Debut
Repeter
Ecrire(‘entrer un
nombre: ‘) ;
Lire(a) ;
S= s+a ;
Jusqu'à (a=0)
Ecrire(‘la
somme des nombres est : ‘,s) ;
fin
|
Exercice 2
Var Nom1,nom2 : chaine de 30 caractères ;
Compteur
i :entier ;
Debut
Ecrire(‘entrer un nom d’athlète : ‘) ;
Lire(nom1) ;
Ecrire(‘entrer un nom d’athlète : ‘) ;
Lire (nom2) ;
I= 2 ;
Tantque(nom1 <> nom2)
Nom1 ß nom2 ;
Ecrire(‘entrer un nom
d’athlète : ‘) ;
Lire(nom2) ;
I= i+1;
Fintantque
Ecrire(‘le nombre des participants est : ‘,i) ;
fin
|
Exercice 3
Var i ,age,som :entier ;
i = 0 ;
age = 0 ;
Repeter
Ecrire(‘ entrer l’age du personne ’) ;
Lire(‘age’ ) ;
I= i+1 ;
Som = som+
age ;
Ecrire(‘Encore une autre personne
(O/N) ?’)
Lire(rep) ;
Jusqu'à (rep=’N’)
Ecrire(‘la moyenne d’âges des personnes est : ‘,som/i) ;
|
Exercice 4
Var
X :réels;
Debut
Ecrire(‘entrer un nombre : ‘) ;
Lire(X) ;
Si X>0 alors
Ecrire(‘la valeur absolue de X=’,X);
Sinon
Ecrire(‘la valeur absolue de X=’,X);
Finsi
fin
|
Exercice 5
Var
x,y :réels;
Debut
Ecrire(‘entrer x : ‘) ;
Lire(x) ;
Ecrire(‘entrer y : ‘) ;
Lire(y) ;
Si x>y
alors
Ecrire(‘la valeur absolue de x-y=’,x-y);
Sinon
Ecrire(‘la valeur absolue de x-y =’,y-x);
Finsi
fin
|
Exercice 6
Var x,y :réels;
Debut
Ecrire(‘entrer x : ‘) ;
Lire(x) ;
Ecrire(‘entrer y : ‘) ;
Lire(y) ;
Si
x>y alors
Ecrire(y,’ ‘,x);
Sinon
Ecrire(y,’ ‘,x);
Finsi
fin
|
