La Meilleure Collection d'exercices Turbo Pascal -Sujet renouvelable

moyenne olympique

On appelle moyenne olympique d'un ensemble de nombres la moyenne arithmétique de tous les nombres de cet ensemble sauf le plus petit et le plus grand.

Écrire un programme Pascal permettant de saisir un tableau de N réels (5 < N < 20) distincts et d'afficher leur moyenne olympique

On veut écrire un programme permettant de remplir deux tableaux P et Q de tailles maximales n (n < 50) par des réels. Puis de ranger respectivement les éléments positifs de P puis ceux de Q dans un Tableau TPOS.
Ensuite calculer puis afficher la moyenne arithmétique des éléments de TPOS

ENTIERS PREMIERS
Un entier strictement positif est dit premier s'il n'a que deux diviseurs distincts : 1 et lui même.

Écrire un programme Pascal qui saisit un entier strictement positif n et affiche un message indiquant si ce nombre est premier ou non

Soit T un tableau de N éléments (2<N<200) de type caractère. On désire écrire un programme Pascal permettant de vérifier l'existence dans le tableau T d'un certain nombre de mots saisis dans un tableau Tm de P éléments (2<P<20).
Exemple

Remarques :
1- Les caractères de la chaîne recherchée doivent être adjacents dans le tableau T et non disperses.
2- On remarque que les mots BAC. Canne et Sujet figurent dans le tableau T

Écrire un programme pascal permettant de saisir deux entiers X et Y (0 < X <9 et 0 < Y < 9) et d'afficher la table de multiplication selon le modèle suivant

NOMBRE D'OR

On considère deux suites (U) et (V) définies a partir de :

Ul=1
U2=2
Ui = Ui-1 + U1-2 (i > 3)
Vi=Ui/Ui_l (i>2)
La suite (Vn) tend vers une limite, appelée nombre d'or.
On suppose que le nième terme de la suite (V), soit Vn, donne une valeur approchée du nombre d'or avec une précision E, des que |Vn — Vn-1| < E.

Ecrire un programme pascal permettant de déterminer le terme Vn a 10-4 près et son rang

-
Remarque d'ordre mathématique
-
Cette suite est dite suite récurrente d'ordre 2 et sera étudié avec approfondissement pour dans les programmes des mathématiques supérieures
Ici on ne traite que des propriété qui sont à la porté d'un élève de BAC

Occurrence Conditionnée
Écrire un programme Pascal permettant de saisir les éléments d'un tableau T de N entiers positifs ou nuls (5 <N< 20), d'afficher 1'occurrence du plus petit élément dans T et l'indice de sa première apparition.

Exemple :
Soit le tableau T suivant :

Le plus petit élément est 1, son occurrence est 3 et l'indice de sa première apparition est 5

****

SOUS TABLEAUX
Introduction à l'exercice :Un exercice vraiment difficile (4 étoiles sur 5) qui ne nécessite pas seulement les connaissances de Turbo Pascal mais en plus un raisonnement rigoureux et bien précis


On veut écrire un programme Pascal permettant de saisir les éléments de deux tableaux Ta et Tb contenant respectivement p et q entiers (5p<20 et 5<q<20) puis de déterminer si Ta est un "sous-tableau" de Tb.
C'est-à-dire que tous les éléments de Ta figurent dans 1'ordre dans Tb.

Exemple :


Résultat : Ta est un sous-tableau de Tb

L'algorithme suivant permet d'insérer un élément clans un tableau trie.

0- DEBUT Insertion
1- Répéter
Ecrire ("N = ")
Lire (n)
Jusqu'a (1 < n) et (n < Nmax)
2- T[1] <-1
Pour i de 2 a n répéter
T[i] <-T[i-1 ] + 2 * i
Fin pour
3- Ecrire ("Introduire l'entier a insérer ") Lire (v)
4- Proc Insertion (T,v)
5- FIN Insertion

Questions :
1. Traduire 1'algorithme ci-dessus en Turbo Pascal. (Nmax, nombre d'éléments du tableau T, est une constante égale a 15)
2. Développer le module Insertion permettant d'insérer 1’élément v dans le tableau T de telle sorte que le tableau reste trie.
3. Donner, sous forme de commentaire à la fin programme, le rôle de la séquence 2.
4. Ecrire un module d'affichage du tableau obtenu et en tenir compte dans le programme

L'algorithme suivant permet de remplir un tableau T puis d'inverser chacune de ses deux parties. (1ière partie : du 1er au pème 2ème, partie : du (p+1)ème au nème élément), p est un entier a saisir.
0- Debut Inversion
1- Porc Saisie (n, p)
2- Pour i de 1 à n répéter
Lire(T[i])
FinPour
3- Proc Inverse (T, 1, p)
4- Proc Inverse (T, p+l, n)
5- Pour i de 1 a n répéter
Ecrire (T[i] : 2)
FinPour
6- Fin Inversion

Questions :
1) Traduire l'algorithme ci-dessus en Turbo Pascal et I'enregistrer 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 "VI ".
2) Développer le module Saisie permettant de saisir deux entiers n et p vérifiant les conditions suivantes : (3<n<20) et (1<p< n-1) et en tenir compte dans le programme.
3) Développer le module Inverse qui permet d'inverser une portion du tableau T du Jème au K ème élément (j < k) et en tenir compte dans le programme.
4) Enregistrer la nouvelle version du 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 "V2".

Remarque: Cette dernière question est juste pour vous familiariser au système du concours

Exemple :
pour n = 9 et p = 5

Soit T un tableau de N éléments (2<N<20) de type caractère.
On se propose d'écrire un programme Pascal permettant d'afficher la longueur de la plus longue séquence contenant uniquement des voyelles

Écrire un programme en Pascal permettant de saisir les éléments d'un tableau T de N entiers (4 < N < 10), déterminer puis d'afficher tous les éléments distincts de ce tableau