La Meilleure Collection d'exercices Turbo Pascal -Sujet renouvelable

On se propose d'écrire un programme Pascal permettant de chercher puis d'afficher tous les entiers naturels d'un intervalle [a,b] (10 < a < b < 200) qui sont divisibles par chacun de leurs chiffres non nuls.

Exemple
Dans l'intervalle [15, 50] l'entier 36 sera affiche car il est divisible par 3 et par 6

CRYPTAGE SIMPLE

Soit T un tableau de N caractères alphabétiques (2<N<20).

Écrire un programme Pascal permettant de crypter les données figurant dans le tableau T comme suit :
1. Convertir chaque caractère en sa représentation en code ASCII.
2. permuter les chiffres des unités avec ceux des dizaines et déterminer le caractère correspondant a ce nouveau code ASCII.
3. remplir un tableau R par les codes ASCII calculées dans l'étape N°2 des caractères du tableau T.
4. Afficher le tableau R obtenu

On veut écrire un programme Pascal permettant de saisir N entiers (10<N<20) dans un tableau T et de les arranger en plaçant les valeurs paires, s’il y en a, au début du tableau, sans modifier l'ordre de saisie des valeurs paires et impaires

On vent écrire un programme Pascal permettant de lire deux mots ch1 et ch2 et d'afficher tous les caractères qui apparaissent dans les deux chaînes sans redondance.

Exemple :
Soit ch1= "Bonjour" et ch2= "Bonbon"
Résultat : B ; o ; n

SUITE RÉCURRENTE D'ORDRE 2

Soit la suite (U) définie par :



On vous donne après analyse de la suite le résultat suivant

cette suite est croissantes

écrire un programme Pascal permettant de lire un entier x (x>2), de vérifier et d’afficher s’il est un terme de la suite U ou non.
Dans l’affirmative afficher son rang

Soit 1'algorithme suivant :
0) Debut Inconnu
1) Lire (N)
2) Pour i de 1 a N répéter
Lire (D[i])
Fin Pour
3) {Ensemble d'actions permettant d'initialiser a 1 les éléments d’un tableau S de N entiers}
4) Pour i de 1 a N- l répéter
Pour j de i+l a N répéter
Si D[i] > D[j] Alors
S[i]  S[i] + 1
Sinon
S[j]  S[j] + 1
Fin Si
Fin Pour
Fin Pour
Pour i de 1 a N répéter
A[S[i]] D[i]
Fin Pour
5) Fin Inconnu


Questions :
1. Développer la séquence 3 et traduire cet algorithme en Pascal.
2. Enregistrer le programme dans le dossier bac2004 situe a la racine C : en lui donnant comme nom le numéro de votre carte d'identité suivi de la chaîne de caractères "V1".
3. Donner, sous forme de commentaire en fin du programme, le rôle de celui-ci.
4. Transformer 1'etape 4 en une procédure et en tenir compte dans le programme.
5. Ecrire un module d'affichage du tableau A et en tenir compte clans le programme.
6. Enregistrer la nouvelle version du programme dans le dossier bac2004 situe a la racine C : en lui dormant comme nom le numéro de votre carte d'identité suivi de la chaîne de caractères "V2"

***

Conversion: Décimal en Binaire

On propose par la suite, l'une des méthodes de la conversion d'un entier décimal (X) en son équivalent binaire (base 2).

1. On divise (division entière) le nombre X par 2
2. On sauvegarde le reste de la division
3. On refait les deux étapes précédentes avec le quotient de la division, jusqu'à avoir un quotient nul.
4. Le regroupement des restes en sens inverse de leurs apparitions donne la valeur du nombre X en binaire.

Exemple :
Si X = 13 alors
La division entière de 13 par 2 donne un quotient = 6 et un reste = 1
La division entière de 6 par 2 donne un quotient = 3 et un reste = 0
La division entière de 3 par 2 donne un quotient = 1 et un reste = 1
La division entière de 1 par 2 donne un quotient = 0 et un reste = 1

Donc le nombre décimal 13 vaut 1101 en Binaire.

Question :
Écrire un programme Pascal permettant de saisir un entier naturel X < 100, de déterminer et d'afficher sa valeur en Binaire, selon le format suivant
le nombre décimal X vaut ………. en binaire

SYMÉTRISATION D'UN TABLEAU

L'algorithme suivant permet de rendre un tableau T symétrique.
0- DEBUT Tab_Sym
1- Repeter
Lire (n)
Jusqu'a (n> l) et (n mod 2 = 0)
2- Pour i de 1 a n div 2 répéter
Lire (T[2i-1])
T[2i] <- T[2i-1]
FinPour
3- Proc Symetrie (T)
4- Pour i de 1 a n Repeter
Ecrire (T[i] : 3)
FinPour
5- FIN Tab Sym

Questions :
1) Traduire l'algorithme ci-dessus en Turbo Pascal
2) Développer le Module Symétrie permettant de transformer T en un tableau symétrique.
3) Donner, sous forme de commentaire dans le programme, le rôle de la séquence 2.
4) Transformer la séquence 2 en une procédure et en tenir compte dans le programme

Soit T un tableau de N caractères (2<N<20). On veut écrire un programme Pascal permettant de crypter les données figurant dans le tableau T comme suit :
1. Saisir un entier X (0< X <8).
2. Convertir chaque élément de T en une chaîne correspondante a sa représentation binaire sur 8 bits.
3. Effectuer une rotation des chiffres binaires a droite, obtenus dans l'étape N°2, de X position(s).
4. Stocker chaque valeur obtenue suite au cryptage dans l'étape N°3 dans un tableau Tcr.
5. Afficher le contenu du tableau Tcr.
On propose d'utiliser la fonction Convert permettant de convertir une valeur décimale en une valeur binaire représente sous forme de chaîne de 8 caractères.


Function convert( d: integer):String;
Var
I:integer;
ch,chc: string;
begin
ch:=’’;
For I: =1 to 8 do
begin
Str(d MOD 2, chc);
d:=d DIV 2;
ch:= chc + ch;
end;
convert:=ch;
end;


Exemple :
Le caractère "A" a une représentation binaire égale a "01000001". Si X=2, Alors la représentation binaire de "A" après une rotation de deux positions a droite sera : "01010000", cette valeur sera stockée dans le tableau Tcr

On veut écrire un programme Pascal permettant de saisir les éléments d'un tableau T de N entiers positifs ou nuls ( 5<N<20) et de déplacer tour les éléments nuls a la fin du tableau

***

Soit un tableau T de N entiers distincts.
Si i < j et T[i] > T[j] alors le couple (i, j) est appelé inversion de T.

Écrire un programme en Turbo Pascal permettant de saisir le tableau T de N entiers distincts. puis de déterminer et d'afficher tous les couples inversion de T

Ecrire un programme Turbo Pascal qui affiche la table de multiplication usuelle
Indication: on pourra utiliser la fonction gotoxy pour l'affichage.