Algo.tn

Pascal-Structures itératives

Exercice 1:

Ecrire un programme qui permet d'afficher le message bonjour 10 fois.

Exercice 2:

Ecrire un programme qui permet d'afficher les entiers de 1 à 10.

Exercice 3:

Ecrire un programme qui permet d'afficher les entiers de 1 à 10 en ordre inverse.

Exercice 4:

Ecrire un programme qui permet d'afficher les lettres de A à K.

Exercice 5:

Écrire un programme qui permet de faire la somme de 5 réels.

Exercice 6:

Écrire un programme qui permet de faire le factoriel d'un entier n donné.
Exemples : 3 ! = 1 x 2 x 3 = 6
    6!= 1 x 2 x 3 x 4 x 5 x 6 = 720

Exercice 7:

Ecrire un programme qui permet d’afficher un nombre x à la puissance n (avec x et n à saisir) .
X=5    n=3    donne p=xn=53=5*5*5

Exercice 8:

Ecrire un programme qui permet d’afficher la table de multiplication d’un entier donné n .
Exemple : pour n=8
Table de multiplication pour : 8
1 x 8 = 8
2 x 8 = 16
...
10 x 8 = 80

Exercice 9:

Ecrire un programme pascal pour chacune des figures suivantes :
Pour n=5

 **********        *                *
 *        *        **              ***
 *        *        ***            *****
 *        *        ****          *******
 **********        *****        *********
 

Exercice 10:

Remplir puis afficher un tableau d’entiers de taille n à saisir.

Exercice 11:

Remplir un tableau T de taille n (taille max=20) puis afficher seulement les entiers pairs.

Exercice 12:

Écrivez un programme qui saisit un entier n suivi de n noms à mettre dans un tableau MN (de taille max=10). Il cherche à partir de la fin du tableau, tous les noms commençant par “R” et les affiches. (On suppose que la saisie est en majuscule).

Exercice 13:

Écrire un programme qui permet de remplir un tableau T par n entiers puis détermine le maximum de ce tableau.

Exercice 14:

Écrivez un programme qui saisit une chaîne de caractères, la renverse et la mettre dans une deuxième chaîne puis il affiche les deux sur deux lignes successives.

Exercice 15:

Un programme qui permet de saisir un mot en majuscule puis le convertir en minuscule sauf le premier caractère puis l’affiche.

Exercice 16:

Ecrire un programme qui permet de saisir une chaine Ch puis une lettre L ensuite calcul et affiche le nombre d’occurrence de L dans Ch.

Exercice 17:

Écrivez un programme qui saisit un entier positif n et détermine s'il est ou non premier. (Un entier autre que 1 est premier s'il n'est divisible que par 1 et par lui même.)

Exercice 18:

Écrivez un programme qui cherche et affiche les entiers premiers entre 1 et 100.
2 3 5 7 11 13 17 19 23 29 31 37 41 43 47 53 59 61 67 71 73 79 83 89 97

Exercice 19:

Écrivez un programme qui saisit un texte à mettre dans une variable chaîne. Cherche toutes les occurrences des lettres de l'alphabet et les met dans un tableau OC. Les indices des éléments de OC vont de "A" à "Z". On suppose que le texte n'utilise pas des caractères accentués. Le programme affiche ensuite chaque lettre suivie par ses occurrences dans le texte. (On rappelle que les occurrences d'une lettre signifient le nombre d'apparitions.)

Exercice 20:

On veut afficher à l'écran le calendrier d'un mois donné. On donne le mois, l'année et le jour de la semaine correspondant au premier du mois en question. Écrivez un programme qui réalise cette tâche.

Exemple:
Donner le n° du mois=5
Donner le jour de début de mois (lundi=1 mardi=2 ...)=3

Lundi            6   13 20 27 
Mardi            7   14 21 28 
Mercredi    1  8   15 22 29 
Jeudi         2  9   16 23 30 
Vendredi    3  10 17 24 31 
Samedi      4  11 18 25 
Dimanche  5  12 19 26 

Exercice 21:

Ecrire un programme pascal qui permet de :

  • Saisir un entier n compris entre 2 et 20
  • Saisir N chaines de carctères dans un tableau T
  • Remplir un tableau V par la somme des chiffres de chaque chaine (chaque V[i] contient la somme des chiffres de T[i])
  • Calculer S, qui est la somme des cases de V
  • Afficher T, V et S

Exemple d'exécution :
n=5
T[1]=Maths2019
T[2]=1T6R50
T[3]=Bac2020
T[4]=1a5a3a
T[5]=L5P6
                   T       V 
           Maths2019      12
              1T6R50      12
             Bac2020       4
              1a5a3a       9
                L5P6      11
                  S=      48

Algo.tn ©