La Meilleure Collection d'exercices Turbo Pascal -Sujet renouvelable

Écrire un programme Pascal qui saisit une chaîne de caractères et l'affiche sous la forme d'un triangle comme indiqué ci-dessous.

Exemple :
Si la chaîne saisie est "INTERNET", on aura :
I
IN
INT
INTE
INTER
INTERN
INTERNE
INTERNET

Soit l'algorithme suivant :

0) Début quoi
1) [Lire (n)] Pour i de 1 à n Répéter
Lire(T[i])
FinPour
2) Lire (v)
3) [Tr <-- faux, i <-- 0] Répéter
i <-- i + 1
tr <-- (T[i] = v)
Jusqu'à (i = n) OU (tr)
4) Si (tr) Alors
rt <-- " Oui "
Sinon
rt <--" Non "
FinSi
5) Ecrire (v, rt)
6) Fin quoi

Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (Écrire la réponse comme commentaire à la fin du programme).
3. Au programme obtenu, ajouter un module dont le rôle est d’afficher tous les indices i lorsque que T[i] = v

Soit l'algorithme suivant :

0Début quoi
1) [Lire (n)] Pour i de 1 à n Répéter
Lire(T[i])
FinPour
2) Lire (v)
3) [Tr <-- faux, i <-- 0] Répéter
i <-- i + 1
tr <-- (T[i] = v)
Jusqu'à (i = n) OU (tr)
4) Si (tr) Alors
rt <-- " Oui "
Sinon
rt <-- " Non "
FinSi
5 ) Ecrire (v, rt)
6 ) Fin quoi

Questions :
1. Traduire cet algorithme en Pascal.
2. Que fait cet algorithme ? (écrire la réponse comme commentaire à la fin du programme).
3. Dans l’action 1, ajouter les contrôles sur la saisie pour assurer les conditions suivantes:
5 < n < 40 et 0 < T[i] < 20
4. Transformer l’action 3 en une fonction et en tenir compte dans le programme.

Sachant que 6+6/2^2 + 6/3^2 +6/4^2 +…..+6/n^2 tend vers n^2,
écrire un programme Pascal permettant de calculer puis d’afficher une valeur approchée de n2 avec une erreur maximale C .
La valeur de C est une donnée

L’algorithme suivant permet de calculer et d’afficher les moyennes des trois notes de n élèves.

0Début Calcul_moyennes

1) Lire (n)
2) Pour i de 1 à n répéter
Lire (Note1, Note2, Note3)
Moy <-- (Note1 + 2 x Note2 + 2 x Note3)/5
Ecrire (Moy)
FinPour
3) Fin Calcul_moyennes

Questions :
1. Traduire cet algorithme en Pascal.
2. Dans l’action 1, ajouter le contrôle sur la saisie pour assurer la condition suivante 5 = n = 40
3. Ajouter une fonction intitulée RANG qui permet de chercher le rang de l’élève n° i.
4. Apporter les changements adéquats afin d’afficher pour chaque élève et sur une même ligne : N° Moyenne Rang

Soit T un tableau de n entiers (2 < n < 20). On veut écrire un programme Pascal qui saisit n et T puis affiche la valeur maximale V_max et la valeur minimale V_min d’une séquence de T allant de i à j.
i et j sont deux entiers donnés vérifiant la condition i < j < n

Occurence
Soit T un tableau de n caractère (2 < n < 20). On se propose d’écrire un programme Pascal qui saisit n et T puis affiche le nombre d’occurrences d’un caractère c donné, dans le tableau T

Soit l'algorithme suivant :

0Début Exercice
1) Ecrire (“ Taper une touche “) , Lire (ch)
2) Selon ch Faire
"a" .. "z" : Si ch Dans ["a","e","i","u","o","y"]
Alors nature <-- "Voyelle"
Sinon nature <-- "Consonne "
FinSi
"0".."9" : nature <-- " Chiffre "
SINON nature <-- " Symbole "
Fin Selon
3) Ecrire (nature)
4) 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. a) Que fait le programme si ch = "A" ? (Ecrire la réponse sous forme d’un commentaire à la fin du programme).
b) Modifier le programme pour afficher correctement la nature d'une lettre majuscule.
4. Transformer l’action 2 en une fonction et en tenir compte dans le programme

L’algorithme suivant permet de calculer et d’afficher la moyenne arithmétique d’une classe de n élèves.

0Début moyenne_classe

1) [Lire (n)] Pour i de 1 à n répéter
Lire (T[i])
FinPour
2) [total <-- 0] Pour i de 1 à n répéter
total <-- total + T[i]
FinPour
3) moyenne <-- total / n
4) Ecrire (moyenne)
5) Fin moyenne_classe

Questions :
1. Traduire cet algorithme en Pascal.
2. Dans l’action 1, ajouter les contrôles de saisie permettant d’assurer les conditions :
5 < n < 40 et 0 < T[i] < 20
3. Ajouter un module dont le rôle est de déterminer et d’afficher le nombre d’élèves qui ont une moyenne supérieure ou égale à la moyenne de la classe

***

Soit la somme Sn suivante:
Sn=1+3/2^2 + 5/3^3 +7/4^4 +….. +(2n-1)/n^n

Écrire un programme Pascal intitulé SOMME permettant de calculer et d'afficher la somme Sn pour un entier n positif donné en utilisant la formule ci-dessus

Occurrence d'un caractère

On veut écrire un programme Pascal permettant de:
- saisir une chaîne de caractères Ch
- parcourir la chaîne Ch et afficher l'occurrence de chacun de ses caractères

Deux joueurs lancent en même temps un dé dont les faces sont numérotées de 1 à 6.
Le joueur qui obtiendra la plus grande valeur aura un point.
Le jeu s'arrête quand l'un des joueurs arrive le premier à un score de 10 points.
Écrire un programme Pascal simulant ce jeu et afficher le numéro du joueur gagnant