La Meilleure Collection d'exercices Turbo Pascal -Sujet renouvelable

Soit l'algorithme suivant :
0) Début Exercice
1) Ecrire (“ Saisir deux entiers “) , Lire (a,b)
2) Ecrire (“ Saisir un opérateur “) , Lire (op)
3) SI op = "+" Alors Ecrire ( a + b)
sinon si op = "-" Alors Ecrire ( a - b)
sinon si op = "*" Alors Ecrire ( a * b)
sinon si op = "/" Alors Ecrire ( a / b)
sinon
Ecrire ("Opérateur invalide")
FinSi
4) Fin Exercice

Questions :
1. Traduire cet algorithme en Pascal.
2. Dans l’action 3, remplacer la structure conditionnelle généralisée par la structure conditionnelle à choix (CASE … OF … )
3. a) Que fait le programme quand on choisit b=0 et op="/" ? (Ecrire la réponse sous forme de commentaire après la fin du programme).
b) Modifier le programme pour corriger cette erreur

Soit l'algorithme suivant :

0) Début Exercice
1) Ecrire (" Donner la première note : ") , Lire (N1)
2) Ecrire (" Donner la deuxième note : ") , Lire (N2)
3) Ecrire (" Donner la troisième note : ") , Lire (N3)
4) moy <-- (N1*CF1) + (N2*CF2) + (N3*CF3) / (CF1 + CF2 + CF3)
5) Si moy = 16
Alors déci <-- " Très bien "
Sinon Si moy = 14
Alors déci <-- " Bien "
Sinon Si moy = 12
Alors déci <-- " A. Bien "
Sinon Si moy = 10
Alors déci <-- " Passable "
Sinon déci <-- " Faible "
FinSi
6) Ecrire (moy, deci )
7) Fin Exercice
N.B: CF1, CF2 et CF3 sont des constantes de valeurs respectives 1, 2 et 3.

Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (Écrire la réponse comme commentaire à la fin du programme).
3. Transformer l’action 5 en une fonction et en tenir compte dans le programme

***

Soit un tableau P de n chaîne de caractères (1<n<100).
Tous les éléments de T doivent être constitués uniquement de chiffres (0..9) et non vides.
On se propose de remplir un tableau Q de la façon suivante:
Q[i] contiendra la chaîne de caractère P[i] écrite à l’envers.

Exemple:
Si P[2]="925" Alors Q[2] contiendra la chaîne "529"
Ecrire un programme Pascal permettant de saisir les éléments de P, de remplir puis d'afficher les éléments du tableau Q

On veut écrire un programme Pascal permettant de lire un mot intitulé CHM et d'afficher les chaînes de caractères suivantes:
* La chaîne formée par le premier et le dernier caractère de CHM
* La chaîne formée par les deux premiers et les deux derniers caractères de CHM etc....

Exemple:
Si la chaîne CHM contient "TURBO" alors le programme affichera :

TO
TUBO
TURRBO
TURBURBO
TURBOTURBO

****

On se propose d’écrire un programme Pascal permettant de déterminer et d'afficher la lettre alphabétique la plus utilisée dans un texte donné. Le texte étant saisi comme une chaîne de caractères contenant n de caractères (5 < n <20).
Dans le cas d’ex æquo afficher toutes les lettres ayant la plus grande fréquence

Soit l'algorithme suivant :

0) Début Exercice
1) [Lire (n)] Pour k de 1 à n Répéter
Lire(T[k])
Fin Pour
2) Lire (v)
3) [Trv <-- faux, i <-- 0] Répéter
i <-- i + 1
trv <-- (T[i] = v)
Jusqu'à (i = n) OU (trv)
4) Si (trv) Alors
rt <-- " est dans T "
Sinon
rt <-- " n'est pas dans T "
Fin Si
5) Ecrire (v, rt)
6) Fin Exercice

Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (Ecrire la réponse comme commentaire à la fin du programme).
3. Ajouter une fonction intitulée OCCURRENCES qui permet de chercher et d'afficher le nombre d'occurrences de la valeur de v dans T

Codage

On veut écrire un programme Pascal permettant de coder un message selon le procédé suivant :

Permuter chaque caractère d'indice pair avec le caractère qui le précède.
Exemple:
Le codage de la chaîne de caractères : "Baccalauréat" donne "aBcclauaérta"


ooo

Soit l'algorithme suivant qui calcule et affiche les moyennes de n candidats :

0) Début Calcul_moy
1) Écrire ("Donner le 1er coefficient: "), Lire (Coef1)
2) Écrire ("Donner le 2ème coefficient: "), Lire (Coef2)
3) [Lire (n)] Pour i de 1 à n Répéter
Lire (Note1)
Lire (Note2)
Moy <-- (Note1*Coef1 + Note2*Coef2)/( Coef1+Coef2)
Écrire ("Moyenne = ", Moy)
FinPour
4) Fin Calcul_moy
Questions :
1. Traduire cet algorithme en Pascal.
2. Dans le programme obtenu, ajouter un module intitulé RANG qui permet de chercher et d'afficher le rang de chaque candidat

Soit l'algorithme suivant :

0) Début Exercice
1) [lire(n)] Pour i de 1 à n répéter
lire(T[i])
FinPour
2) Pour i de 1 à n-1 Répéter
Pour j de i+1 à n répéter
Si T[j] > T[i] Alors
Aux <-- T[j]
T[j] <-- T[i]
T[i] <-- Aux
FinSi
FinPour
FinPour
3) Pour i de 1 à n répéter
Ecrire (T[i])
FinPour
4) Fin Exercice
Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait ce programme ? (Ecrire la réponse comme commentaire à la fin du programme).
3. Dans l’action 2, apporter les modifications nécessaires au programme afin de ne réaliser qu’au maximum une permutation pour chaque valeur de i.
4. Transformer l’action 2 en un module et en tenir compte dans le programme

L'authentification

L'authentification est une technique permettant à un utilisateur d'accéder à un système informatique en introduisant un mot de passe.

On veut écrire un programme Pascal permettant d'authentifier un utilisateur selon le procédé suivant :
L'utilisateur dispose d'au maximum trois essais pour saisir le mot de passe.
Le programme affichera l'un des messages suivants: "Utilisateur autorisé" si le bon mot de passe a été saisi ou bien "Utilisateur non autorisé" dans le cas contraire

Soit l'algorithme suivant :
0) Début Exercice
1) [lire(n)] Pour i de 1 à n répéter
lire(T[i])
FinPour
2) Pour i de 1 à n-1 Répéter
Pour j de i+1 à n répéter
Si T[j] > T[i] Alors
Aux <-- T[j]
T[j] <-- T[i]
T[i] <-- Aux
FinSi
FinPour
FinPour
3) Pour i de 1 à n répéter
Ecrire (T[i])
FinPour
4) Fin Exercice


Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait ce programme ? (Ecrire la réponse comme commentaire à la fin du programme).
3. Dans l’action 1, ajouter le contrôle sur la saisie pour assurer la condition suivante: 3 < n < 10
4. Transformer l’action 2 en un module et en tenir compte dans le programme

Indice de l'occurence

On veut écrire un programme Pascal permettant de chercher puis d'afficher l'indice de la plus grande valeur d'un tableau T contenant n entiers (5 < n <20).
Dans le cas d’ex æquo, on affiche l’indice de la première occurrence