La Meilleure Collection d'exercices Turbo Pascal -Sujet renouvelable

Écrire un programme en pascal qui saisit un entier non nul n et 2n réels à mettre dans un tableau A, puis remplit un tableau B par les éléments de A de la manière suivante:
B[1] = A[1]
B[2] = A[n + 1]
B[3] = A[2]
B[4] = B[n+2]
Etc

Écrire un programme Pascal intitulé OCCURRENCE qui permet de saisir une chaîne de caractères CH puis d'afficher les occurrences des voyelles qui figurent dans CH.

Exemple :
Si CH= 'LYCEE 25 juillet'
Le programme OCCURRENCE affichera les résultats suivants:
L'occurrence de 'E' est 3
L'occurrence de 'I' est 1
L'occurrence de 'U' est 1
L'occurrence de 'Y' est 1

Remarque: La recherche de l'occurrence ne fait pas de distinction entre les voyelles majuscules et minuscules.

N.B: La solution doit comporter au moins deux sous programmes

****

Sachant que
sin(x) = (x /1!) - (x3/ 3!) + (x5 / 5!) - (x7 /7!) + (x9/ 9!) ............ pour tout réel proche de zéro.
- ceci s'appelle Développement Limité :) -

Écrire un programme Pascal qui permet d'afficher sin(x) en utilisant la formule ci-dessus. Le calcul s'arrête quand la différence entre deux termes consécutifs devient inférieure ou égale à 10-4.
La dernière somme calculée est une valeur approchée de sin(x).
Le candidat pourra utiliser la fonction FACT(a) suivante qui permet de calculer la factorielle de a (a!).

1. DEFFN FACT(a:entier):entier
2. F=1
Si (a>0) Alors
Pour i de 1 à a Répéter
F<-- F*i
FinSi
3. FACT<--F
4. Fin FACT

N.B: La solution doit comporter au moins une fonction et une procédure

Ecrire un programme Pascal intitulé PROD_SCALAIRE qui permet de calculer et d'afficher le produit scalaire de deux tableaux A et B de n entiers positifs (n étant un entier compris entre 5 et 50).
N.B:
1) Le produit scalaire de deux tableaux A et B est donné par la formule suivante :



2) La solution doit comporter au moins une fonction et une procédure

Soit un tableau T1 contenant N lettres majuscules , N étant un entier compris entre 5 et 20.
On désire trier en ordre croissant les éléments de T1 et les ranger dans un tableau T2 en utilisant le principe suivant:
1.chercher la lettre qui a le plus petit code ASCII dans T1,
2.
a) ranger cette lettre dans T2,
b) remplacer cette lettre par '*' dans T1,
3. répéter N fois les étapes 1 et 2.
Écrire un programme Pascal qui permet de :
saisir les éléments de T1,
trier les éléments de T1 et les ranger dans T2,
afficher les éléments de T2

***

Soit un tableau T1 de N éléments (1 <= N <=100).
Les éléments de T1 sont des entiers naturels de trois chiffres.
On se propose de remplir un tableau T2 de la façon suivante :
T2[i] est égal à la somme des carrées des chiffres de T1[i]

Exemple Illustratif:

Si T1[i] = 254 alors T2[i]=2²+5²+4²=45

Écrire un programme Pascal qui permet de saisir les éléments de T1, de remplir puis d'afficher le tableau T2

Écrire un programme Pascal qui permet de saisir un entier naturel n (5 <n<20) et n réels à mettre dans un tableau A puis calcule et affiche la moyenne arithmétique m des éléments de A et leur écart type S.
Sachant que

Écrire un programme pascal qui permet de trier par ordre décroissant les éléments d'un tableau de N entiers positifs dans un nouveau tableau de même dimension. N étant un entier vérifiant 5<N<25.
On utilisera la démarche suivante :
chercher le maximum de A,
placer ce maximum dans B,
remplacer le maximum par -1 dans A,
refaire les étapes 1,2 et 3 jusqu'à ce que le tableau A soit entièrement composé de -1.

N.B :Prévoir l'affichage des éléments du tableau B

****

Soit la suite (P) définie par :
P1 = 2
Pi = Pi-2 * ( (i -1) / i ) * ( ( i + 1 ) / i ) (i > 2 et i impair )
Écrire un programme Pascal qui permet de calculer et d'afficher les termes de la suite P jusqu'à ce que la différence entre deux termes consécutifs devient inférieure ou égale à 10-4.

***

Deux entiers naturels strictement positifs m et n sont dits nombres amis si et seulement si :
•la somme des diviseurs de m sauf lui même est égal à n,
•la somme des diviseurs de n sauf lui même est égale à m.

Exemple :
220 et 284 sont deux nombres amis, en effet:
D284= {1, 2, 4, 71, 142, 284}
D220= {1, 2, 4, 5, 10, 11, 20, 22, 44, 55, 110, 220}
D284 et D220 sont respectivement les ensembles de tous les diviseurs de 284 et de 220.

284 = 1 + 2 + 4 + 5 + 10 + 11 + 20 + 22 + 44 + 55 + 110 + 220
220 = 1 + 2 + 4 + 71 + 142

Écrire un programme Pascal qui permet de déterminer puis d'afficher si deux entiers naturels donnés m et n sont amis ou non

On désire coder une chaîne de caractères en utilisant la fonction f(x)= 2x - 1 , x étant le code ASCII d'un caractère dans la chaîne.
Les caractères susceptibles d'être codés sont les lettres de l'alphabet (majuscules ou minuscules), les chiffres (de 0 à 9) et le point.
Les autres caractères restent inchangés.
Écrire un programme Pascal qui permet de saisir une chaîne de caractères puis d'afficher son code

Ecrire un programme Pascal qui saisit un tableau A de n chaînes de caractères, cherche et affiche la longueur de la chaîne la plus longue puis toutes les chaînes ayant cette longueur