1. Question 1 Une série d'échantillons sont analysés dans un laboratoire. On constate que la teneur en carbone des différents échantillons varie d'un échantillon à l'autre. On demande d'écrire un programme VB qui détermine La teneur minimum en carbone (TMIN) La teneur maximum en carbone (TMAX) La teneur moyenne en carbone (TMOY) De plus, on divise l'ensemble des échantillons en 5 classes de largeur identique. Le programme doit fournir, aussi, 5 valeurs qui reprennent le nombre d'échantillons de chaque classe. Les n données (les teneurs) sont fournies sous forme de nombres réels (compris entre 0 et 100). Exemple: la série TENEURS a n = 8 composantes: les nombres 20,0 28,5 32,3 45,5 32,6 38,1 41,0 29,5 pour cette série d'analyse, on obtiendra: TMIN = 20,0 TMAX = 45,5 TMOY = 33,4 et pour les 5 composantes de HISTO: 1 2 2 1 2 correspondant respectivement aux échantillons contenant de 20,0 à 25,1 % de carbone, de 25,1 à 30,2 %, de 30,2 à 35,3 %, de 35,3 à 40,4 % et de 40,4 à 45,5 % de carbone

2. Question 2  Faire le tableau de sortie du programme (c'est-à-dire le tableau des valeurs successives des variables et expressions), et en déduire ce que le programme affiche. Algorithmeclint Variables a, b, c : Chaine d : entier Début a ← 'jkaihbcaeg' b ← 'wagontedos' c ← '' d ← 7 tant que d <> 0 faire c ← c + b[d] d ← ord(a[d]) - ord('a') fin tant que Ecrire(c) Fin Ord (‘a’) = 97, Ord (‘b’) = 98, Ord (‘c’) = 99, Ord (‘d’) = 100, Ord (‘e’) = 101, Ord (‘f’) = 102, Ord (‘g’) = 103, Ord (‘h’) = 104, Ord (‘i’) = 105, Ord (‘j’) = 106, Ord (‘k’) = 107, Ord (‘l’) = 108, Ord (‘m’) = 109, Ord (‘n’) = 110, etc.

3. Question 3 • Chercher l'erreur dans ce code qui affiche dans une boite de message les résultats de la table de multiplication de 1 à 9: Dim i, j as Integer For i=1 to 9 For j=1 To 9 MsgBox (i*j.ToString) Next i Next j • Déclarer un tableau t de 100 Integer. Le remplir avec un nombre aléatoire compris entre 1 et 100, le trier par ordre croissant. (Utiliser la fonction Int(Rnd()*100) pour la génération des nombres aléatoires compris entre 1 et 100)