Exercice 1
Écrire un algorithme qui prend en entrée une liste de nombres et retourne leur moyenne.
Algo : moyenne
Déclaration
tab: tableau[1..10] de entier
s, i: entier
m: reel
Début
Pour i allant de 1 à 10 Faire
afficher("Donner un entier")
saisir(tab[i])
Fin Pour
s <- 0
Pour i allant de 1 à 10 Faire
s <- s + tab[i]
Fin Pour
m <- s/10
afficher("la moyenne du tableau est de ", m)
Fin moyenne
Exercice 2
Écrire un algorithme qui résout l’équation du type ax + b = 0 et affiche la solution.
Algo : equation
Déclaration
a, x, b: réel
Début
afficher("donner le premier coef")
saisir(a)
afficher("donner le second coef")
saisir(b)
si a = 0
alors si b=0
alors afficher("ensemble des solution est R")
sinon afficher("ensemble des solutions est vide")
fin si
sinon
x <- -b/a
afficher("la solution est:",x)
fin si
Fin equation
Exercice 3
Écrire un algorithme qui détermine si un nombre est parfait ou non.
Algo : parfait
Déclaration
n, s, i : entier
Début
afficher("Donner un nombre : ")
saisir(n)
s<-0
pour i allant de 1 à n-1 faire
si n%i=0
alors s<-s+i
fin si
fin pour
si n=s
alors afficher("Votre nombre est parfait")
sinon afficher("Votre nombre n'est pas parfait")
fin si
Fin parfait
Exercice 4
Écrire un algorithme qui calcule le factoriel d’un nombre donné.
Algo : calcul_fact
Déclaration
Procédure factoriel(n:entier)
Déclaration
fact, i: entier
Début
fact <- 1
Pour i allant de 1 à n Faire
fact <- fact*i
Fin pour
Afficher ("le factoriel est de:",fact)
Fin factoriel
nb: entier
Début
Afficher ("donner un entier")
Saisir (nb)
factoriel (nb)
Fin calcul_fact
Exercice 5
Écrire un algorithme qui ouvre un fichier, affiche son contenu caractère par caractère, et compte le nombre total de caractères.
Algo : affiche_fichier
Déclaration
f : fichier
nom : chaine
nb : entier
c : caractère
Début
afficher ("Donner le nom du fichier")
saisir(nom)
f <- ouvrir (nom,lecture)
nb <- 0
tant que fin_fichier(f) = faux faire
lire (f,c)
afficher (c)
nb <- nb+1
Fin tant que
fermer (f)
afficher ("Ce fichier contient ",nb,"caractères")
Fin affiche_fichier