Problème modulaire : deux tableaux parallèles, cumul pondéré et affichage de tous les ex æquo

Une bibliothèque scolaire suit ses emprunts. Un tableau AD contient les noms de na adhérents, chaque nom étant une chaine de caracteres, avec 5 ≤ na ≤ 100. Un tableau NB de même longueur contient, à l'indice correspondant, le nombre de livres empruntés par l'adhérent. Une procedure Remplir saisit les noms, une procédure Compter met NB à jour à partir de ne fiches d'emprunt, et une procédure Editer affiche les adhérents ayant emprunté le plus de livres.

1. Donner le tableau des nouveaux types nécessaires à cette solution.
2. Donner le tableau des objets globaux, avec pour chacun son type ou sa nature et son rôle.
3. Dire pourquoi le type des deux tableaux ne peut pas figurer dans le tableau des objets globaux.

On veut remplir un tableau TP par n titres de projets. Chaque titre est une chaine de caracteres ne comportant que des lettres et des espaces, sa longueur est comprise entre 4 et 30, et deux projets ne peuvent pas porter le même titre. Le nombre de projets n doit être compris entre 5 et 40.

On dispose des deux modules suivants, à utiliser sans les développer : Alpha(ch), fonction booléenne vraie si ch ne contient que des lettres et des espaces ; Rang(ch, T, k), fonction retournant l'indice de la case de T contenant ch parmi ses k premières cases, ou -1 si ch n'y figure pas.

1. Écrire l'algorithme de la procedure Remplir(TP, n) respectant toutes les contraintes.
2. Donner son tableau des objets locaux.

On veut remplir un tableau T de type TabCh par n noms (3 ≤ n ≤ 25), chaque nom étant une chaîne non vide composée uniquement de lettres alphabétiques et d'espaces.

1. Écrire une fonction booléenne Alphabetique(ch) qui parcourt ch et s'arrête dès le premier caractère qui n'est ni une lettre ni un espace.
2. Combien de caractères la fonction examine-t-elle pour "Ben Ali", pour "Ali2" et pour "R2D2 Robot" ? Quel résultat retourne-t-elle dans chaque cas ?
3. Que retourne Alphabetique pour la chaîne vide ? En déduire la condition de la boucle de saisie.
4. Écrire la procédure Remplir(@T, @n) qui saisit n puis les n noms en respectant toutes les contraintes.

Une société enregistre les identifiants de n cartes (3 ≤ n ≤ 40) dans un tableau ID de chaînes ; un identifiant est une chaîne formée d'exactement 8 chiffres, par exemple "01234567".

1. Écrire une fonction booléenne Est8Chiffres(ch) qui vérifie, par un parcours caractère par caractère, que ch est formée d'exactement 8 chiffres.
2. Proposer une seconde écriture de la même condition, en une seule expression, avec les fonctions prédéfinies Long et Estnum.
3. Donner le résultat de Est8Chiffres pour "01234567", "1234567", "1234567A" et "12 45678".
4. Pourquoi l'identifiant est-il rangé dans une chaîne et non dans un entier ?
5. Écrire la procédure RemplirID(@ID, @n).

Une date de création est saisie comme une chaîne de caractères formée de deux parties, le jour J et le mois M, séparées par le caractère / (par exemple "8/11"). On ne tient compte que des contrôles suivants : J est un entier compris entre 1 et 31 et M un entier compris entre 1 et 12.

1. Écrire une fonction booléenne DateValide(dt) qui vérifie ces contraintes, sans jamais appeler Valeur sur une chaîne non numérique.
2. Donner le résultat de DateValide pour : "8/11", "0/5", "12/13", "5/", "/7", "3-4", "1/2/3", "31/2".
3. Écrire la procédure RemplirDates(@D, @n) qui remplit un tableau D par n dates valides, avec 3 ≤ n ≤ 50.

N.B. Les indices commencent à 0 ; Pos retourne −1 en cas d'absence et Sous_chaine(ch, d, f) retourne les caractères d'indices d à f − 1.

On veut remplir un tableau T par n entiers (5 ≤ n ≤ 20), sachant que chaque élément du tableau doit être un entier, positif ou négatif, composé de 3 chiffres au minimum et de 6 chiffres au maximum (par exemple −450 et 123456 conviennent, 99 et −1000000 non).

1. Pour chacune des conditions suivantes, dire si elle traduit exactement la contrainte ; sinon, donner un entier mal classé : (a) (x ≥ 100) Et (x ≤ 999999) ; (b) (Long(Convch(x)) ≥ 3) Et (Long(Convch(x)) ≤ 6) ; (c) (Abs(x) ≥ 100) Et (Abs(x) ≤ 999999) ; (d) (NbChiffres(x) ≥ 3) Et (NbChiffres(x) ≤ 6), où NbChiffres(x) retourne Long(Convch(Abs(x))).
2. Écrire la fonction NbChiffres(x), puis la procédure Remplir(@T, @n).

On veut remplir un tableau A par les noms d'utilisateurs de na adhérents (5 ≤ na ≤ 50), sachant qu'un nom est unique, formé d'au minimum 3 caractères, et commence obligatoirement par une lettre majuscule.

1. Écrire une fonction booléenne Existe(ch, T, k) qui vérifie si la chaîne ch figure parmi les k premiers éléments T[0], …, T[k − 1] du tableau T.
2. Écrire la procédure RemplirA(@A, @na). Au moment de saisir A[i], quel troisième paramètre faut-il passer à Existe, et pourquoi pas na ?
3. Pour na = 5, l'utilisateur tape successivement sami, Sa, Sami, Sami, Salma, Ali. Indiquer pour chaque saisie si elle est acceptée et dans quelle case elle est rangée.

On veut saisir la taille n d'un tableau T, avec n un entier pair et 6 ≤ n ≤ 30, puis remplir T par n entiers positifs ou nuls rangés dans l'ordre strictement croissant (chaque élément est strictement supérieur au précédent).

1. Écrire la condition de contrôle de la saisie de n. Parmi 4, 7, 6 et 32, lesquelles sont acceptées ?
2. Un élève propose : Pour i de 0 à n-1 Faire Répéter Lire(T[i]) Jusqu'à T[i] > T[i-1] Fin Pour. Expliquer pourquoi cette proposition est incorrecte.
3. Écrire la procédure Remplir(@T, @n).
4. Pour n = 6, l'utilisateur tape successivement 3, −1, 3, 8, 5, 9, 9, 12, 20, 21. Donner le contenu final de T.