In [ ]:
1 Exercice 1
2 **********
3 Algorithme : résultion d une équation de second degré dans R
4
5 Variables a,b,c, solution1, solution2 : Réel
6
7 Début
8 Ecrire("Saisir le coefficient a de l'équation : ax²+bx+c")
9 Lire(a)
10 Ecrire("Saisir le coefficient b de l'équation : ax²+bx+c")
11 Lire(b)
12 Ecrire("Saisir le coefficient c de l'équation : ax²+bx+c")
13 Lire(c)
14
15 delta = (b*b)-(4*a*c)
16
17 Si delta < 0
18 Ecrire("L'équation ne possède pas de solution dans R")
19 Sinon
20 Si delta = 0
21 Ecrire( "L'équation possède une solution unique", -b / (2*a) )
22 Sinon
23 solution1 = (-b - racine(delta) ) / (2*a)
24 solution2 = (-b + racine(delta) ) / (2*a)
25 Ecrire("L'équation possède deux solutions", solution1, solution2)
26 FinSi
27 FinSi
28 Fin
29
30 Remarque : On suppose que racine est une fonction existante permettant
31 de calculer la racine carré.
In [ ]:
1 Exercice 2.1
2 ************
3 Ecrire un algorithme qui demande un nombre de départ, et qui calcule
4 sa factorielle.
5
6 Algorithme : Calcul de la factorielle d un nombre entier
7 Variable n, compteur, fact : Entier
8
9 Début
10 Ecrire ("Saisir un nombre entier")
11 Lire(n)
12 fact <-- 1
13
14 Pour compteur allant de 1 à n:
15 fact <-- fact * compteur
16 FinPour
17
18 Ecrire("La factorielle de ", n, "est : ", fact)
19 Fin
20
21 Remarque : si n=0, la boucle n’est pas exécutée et la factorielle
22 est égale à 1
In [ ]:
1 Exercice 2.2
2 ************
3 Ecrire un algorithme qui permet de calculer la somme :
4 1! + 2! + 3! + 4! + ... + 10!
5
6 Solution 1 :
7 ************
8 Algorithme : Calcul d’une somme de factorielle des 10 premiers
9 nombres entiers
10 Variable n, compteur, fact, somme : Entier
11
12 Début
13 somme = 0
14 Pour n allant de 1 à 10:
15
16 fact <-- 1
17 Pour compteur allant de 1 à n:
18 fact <-- fact * compteur
19 FinPour
20 somme <-- somme + fact
21
22 FinPour
23
24 Ecrire("La somme de factorielles est : ", somme)
25 Fin
26
27 Solution 2 : cette solution est plus efficace puisqu’elle garde
28 en mémoire (n-1)! pour calculer n! sans devoir le
29 recalculer en entier.
30 ************
31 Début
32 somme = 0
33 fact <-- 1
34 Pour n allant de 1 à 10:
35 fact <-- fact * n
36 somme <-- somme + fact
37 FinPour
38
39 Ecrire("La somme de factorielles est : ", somme)
40 Fin
In [ ]:
1 Exercice 3.1
2 ************
3 Ecrire un algorithme qui demande à l’utilisateur de saisir la valeur
4 de X et la valeur de N et qui calcule X à la puissance N
5 (N est un entier positif).
6
7
8 Algorithme calcule de X à la puissance N
9 Variables X, puissance : Réel
10 N, compteur : Entier
11
12 Début
13 Ecrire("Saisir la valeur de X")
14 Lire(X)
15 Ecrire("Saisir la valeur de N")
16 Lire(N)
17
18 puissance <-- 1
19 Pour compteur allant de 1 à N:
20 puissance <-- puissance * X
21 FinPour
22
23 Ecrire(X, " à la puissance ", N, " est : ", puissance)
24 Fin
25
26 Remarque : si N=0, la boucle n’est pas exécutée et la puissance
27 est égale à 1
In [ ]:
1 Exercice 3.2
2 ************
3 Ecrire un algorithme qui permet de calculer la somme :
4 1 + X + X² + X³ + X⁴+ X⁵ + ... jusqu à X puissance N
5
6 Solution 1 :
7 ************
8 Algorithme calcule de X à la puissance N
9 Variables X, puissance : Réel
10 N, compteur, compteur_somme : Entier
11
12 Début
13 Ecrire("Saisir la valeur de X")
14 Lire(X)
15 Ecrire("Saisir la valeur de N")
16 Lire(N)
17
18 somme = 0
19 pour compteur_somme allant de 0 à N:
20
21 puissance <-- 1
22 Pour compteur allant de 1 à N:
23 puissance <-- puissance * X
24 FinPour
25 somme <-- somme + puissance
26
27 FinPour
28
29 Ecrire(X, " à la puissance ", N, " est : ", puissance)
30 Fin
31
32 Solution 2 : cette solution est plus efficace puisqu’elle garde en
33 mémoire la puissance précédemment calculée
34 pour calculer la puissance suivante.
35 ************
36 Début
37 Ecrire("Saisir la valeur de X")
38 Lire(X)
39 Ecrire("Saisir la valeur de N")
40 Lire(N)
41
42 somme = 1
43 puissance <-- 1
44
45 pour compteur_somme allant de 1 à N:
46 puissance <-- puissance * X
47 somme <-- somme + puissance
48 FinPour
49
50 Ecrire(X, " à la puissance ", N, " est : ", puissance)
51 Fin
In [ ]:
1 Exercice 4
2 ************
3 Ecrire un algorithme permettant d’imprimer le triangle suivant,
4 le nombre de lignes (N) étant donné par l’utilisateur :
5
6 1
7 12
8 123
9 1234
10 12345
11
12 Algorithme : imprimer N lignes
13 Variables N, i, j : Entier
14
15 Début
16 Ecrire("Saisir le nombre de lignes")
17 Lire(N)
18
19 pour i allant de 1 à N:
20 pour j allant de 1 à i:
21 Ecrire(j)
22 FinPour
23 Ecrire('\n')
24 FinPour
25 Fin
26
27 Remarque : '\n' est le caractère de retour à la ligne
