Algorithme NR C
Algorithme NR C
Algorithme NR C
Algorithmique et Programmation - Section: Sciences de l'informatique - Session principale 2022 Corrigé et barème de notation Page 1 sur 4
NOUVEAU RÉGIME
Exercice 3: (3 points)
1- L’ordre de récurrence de la suite U est 1 puisque le calcul du nième terme dépend seulement d'un
seul terme précédent. 0,75 pt
2- 2,25 pts
Fonction RacineU (x : réel) : réel
DEBUT
Uact(1+x)/2
Répéter
UprédUact
Uact(Upréd + x/Upréd)/2
Jusqu'à (abs((Uact- Upréd)/Upréd) ≤ 0.0001)
Retourner Uact
FIN
Tableau de déclaration des objets
Objet Type/Nature
Upréd, Uact Réel
Exercice 4: (4,5points)
Fonction Rech_Trich(T : Tab , d , f , x : Entier) : Booléen
DEBUT
p1 (2*d+f) DIV 3
p2 (d+2*f) DIV 3
Si (x=T[p1]) ou (x=T[p2]) alors
Retourner Vrai
Sinon Si d > f alors
Retourner Faux
Sinon Si x<T[p1] alors
Retourner Rech_Trich (T , d , p1-1 , x)
Sinon Si x<T[p2] alors
Retourner Rech_Trich(T , p1+1 , p2-1 , x)
Sinon
Retourner Rech_Trich(T , p2+1 , f , x)
Finsi
FIN
Tableau de déclaration des objets
Objet Type/Nature
p1, p2 Entier
Algorithmique et Programmation - Section: Sciences de l'informatique - Session principale 2022 Corrigé et barème de notation Page 2 sur 4
NOUVEAU RÉGIME
Exercice 5: (7 points)
1- 0.75 pt
Tableau de déclaration des nouveaux types
Nouveau Type
Enreg= Enregistrement
N , B : Entier
Rep : Chaine
Fin
Fiche = Fichier d’Enreg
1- 0.5 pt
Ouvrir (Ft, "D:\Nombres.txt","r")
Ouvrir (F, "D:\F_Brésilien.dat","wb")
2- 5,75 pts
Procédure Gen_Bres(@ Ft : texte , @ F : Fiche)
DEBUT
Tant que Non (Fin_fichier(Ft)) faire
Lire_ligne (Ft, ch)
NValeur (ch)
b1
Répéter
b b+1
ch1 Base10B (N,b)
i -1
Répéter
ii+1
Jusqu'à (ch1[i] ≠ ch1[i+1]) ou (i = long(ch1)-2)
Si (ch1[i] = ch1[i+1]) alors
e.NN
e.Bb
e.Rep ch1
Ecrire (F, e)
Fin Si
Jusqu'à (b=N-2) ou (b = 16) ou (ch1[i] = ch1[i+1])
Fin Tant que
Fermer (Ft)
Fermer (F)
FIN
Tableau de déclaration des objets
Objet Type/Nature
i Entier
ch, ch1 Chaine
e Enreg
Base10B Fonction
Algorithmique et Programmation - Section: Sciences de l'informatique - Session principale 2022 Corrigé et barème de notation Page 3 sur 4
NOUVEAU RÉGIME
Fonction Base10B (N,b : Entier): Chaine
DEBUT
ch ""
Répéter
R N MOD b
N N DIV b
Selon R Faire
0..9 : chConvch(R)+ch
10..15 : chChr(Ord(R+Ord("A")-10)) +ch
Fin Selon
Jusqu’à (N=0)
Retourner ch
FIN
Tableau de déclaration des objets
Objet Type/Nature
R Entier
ch Chaine
Algorithmique et Programmation - Section: Sciences de l'informatique - Session principale 2022 Corrigé et barème de notation Page 4 sur 4
NOUVEAU RÉGIME