Institut National Spécialisé de la Formation Professionnelle
Spécialité : Technicien. Assistant Multimédia
Module : Algorithme \Pascal
TP 01 : Environnement PASCAL
Exercice N°01 :
1. Créez un répertoire D:\assistant\pascal
2. Exécutez Borland Pascal
3. Changez le répertoire de travail en D:\assistant\pascal File/Change Dir
4. Donnez un nom au nouveau fichier (Tp1.pas) File/Save ou F2
5. Ecrivez le programme suivant :
Programme somme;
Var a,b,somme: entier ;
Begin
Red(a)
Read(b);
Soma+b;
Writeln(som);
And;
6. Enregistrez le programme F2
7. Compilez le programme et corrigez les fautes Compile/Compile ou Alt+F9
8. Exécutez le programmeRun/Run ou Ctrl+F9
9. Ajoutez l’instruction Readln ; juste avant END et réexécutez le programme
10. En utilisant les instructions (write et writeln), ajoutez des messages à votre programme pour qu'il
soit compréhensible.
11. Exécuter le programme à nouveau.
12. Quittez Borland pascalFileExit
13. Exécutez Borland Pascal
14. Ouvrez votre programme TP1.pas FileOpen
Exercice N°02 :
- Ecrire un programme pascal qui permet de demander à l’utilisateur son nom, puis il affiche
que c’est un joli nom.
- Enregistrez le programme sous le nom ‘nom.pas’ dans : d\assistant\pascal
Institut National Spécialisé de la Formation Professionnelle
Spécialité : Technicien. Assistant Multimédia
Module : Algorithme \Pascal
TP 02 : Les types de données standards
Les Types standards : Sont prédéfinis par Pascal
1) Le type Entier ‘Integer’ : Tous les entiers entre -32768 et 32767
Opérateurs utilisés :
+,-,* : Résultat est entier
Div : Division entière exemple : 5div 3= 1
Mod : Reste de la division entière exemple : 5 mod 3 = 2
/ : Division réelle exemple : 5/2= 2.5
Fonctions utilisées :
Abs (x) : La valeur absolue de x, Exemple : abs(-9)=9
Sqr(x) : Le carré du x, Exemple :Sqr(7)=49
Exercice 01 :
Ecrire un programme pascal qui permet de :
- Lire 02 nombres entiers,
- Afficher la somme, la différence, le produit, les résultats de la division entière et
réelle et le reste de la division entière de ces 02 nombres
Exercice 02 :
Ecrire un programme pascal qui permet de
- Lire un nombre entier,
- Afficher la valeur absolue et le carré de ce nombre
Institut National Spécialisé de la Formation Professionnelle
Spécialité : Technicien. Assistant Multimédia
Module : Algorithme \Pascal
TP 03 : Les types de données standards (suite)
2) Le type ‘Real’ : Ses valeurs peuvent varier entre 3*10-38 et 1.7*1038
Affichage d’un nombre réel : Lorsqu’on affiche un nombre réel par l’instruction write, il
est affiché sous forme scientifique, une mantisse réelle m(1<=m<10) et un exposant E
signé
- Exemple : Le nombre 15 sera affiché (1.5000000000E+01)
On peut imposer le format :g :d
- Exemple: write (somme :12 :4) ; 12 spécifie le nombre total de caractères et 4 le
nombre de chiffres après le point décimal
Opérateurs utilisés :
+,-,*,/ : résultat réel
Exemples de fonctions utilisées :
- Trunc : Prendre que la partie avant la virgule
- Round : Arrondir le nombre réel vers l’entier le plus proche
- Sqrt : Donne la racine carrée du nombre
Exercice 01:
Ecrire un programme pascal qui permet de :
- Lire un nombre réel,
- Afficher la valeur absolue, le carré, la racine carrée, la partie entière et l’entier le
plus proche de ce nombre
Exercice 02:
Ecrire un programme pascal qui permet de calculer la surface d'un disque
Remarque :
Formatez l’affichage pour 02 chiffres après la virgule.
Institut National Spécialisé de la Formation Professionnelle
Spécialité : Informatique/Technicien assistant multimédia
Module : Algorithme/Pascal
TP 04 : L’instruction de choix - l’instruction IF
PARTIE THEORIQUE
1) Le traitement alternatif simple : (IF..THEN)
Syntaxe : IF<condition>THEN
Instruction
Principe : Si la condition est vraie, alors l’instruction s’éxécute, sinon ne rien faire.
Exemple : IF (A>B) THEN
Writeln(A,’est supérieur à ’,B) ;
2) L’alternatif composée (IF..THEN..ELSE)
Syntaxe: IF<condition>THEN
Instruction1
ELSE
Instruction2
Principe: Si la condition est vraie, alors l’instruction1 sera executée, sinon c’est l’instruction2 qui
sera executée.
Exemple :
IF(A>B) THEN
Writeln(A,’est supérieur à ’,B) «1»
ELSE
Writeln(B,’est supérieur à ’,A) ; «2 »
Remarques :
1) Pas de point virgule avant Else
2) « 1 » et « 2 » ne peuvent jamais s’exécuter ensemble.
3) Si le nombre d’instructions est supérieur à 1, elles devront être mises entre Begin et End
PARTIE PRATIQUE
Exercice n°01 :
Ecrire un programme Pascal qui permet d’afficher les messages suivants :
Rouge : Si l’utilisateur tape sur la touche ‘R’
Bleu : Si l’utilisateur tape sur la touche ‘B’
Noir : Si l’utilisateur tape sur la touche ‘N’
Exercice n°02 :
Ecrire un programme Pascal qui demande à l’utilisateur d’introduire un nombre entier
et l’informe ensuite si ce nombre est positif, négatif ou nul
Exercice n°03 :
b) Ecrire un programme qui permet d’afficher le message « BONNE CHANCE » si
l’utilisateur tape sur la touche ‘B’
b) Régler l’affichage comme suit :
****************************
** BONNE CHANCE **
****************************
Exercice n° 04 :
Ecrire un programme qui calcule Y tel que
X+8 Si X<=10
Y= X2+x+10 Si 10<X<100
0 Si X>=100
Exercice n° 05 :
Traduisez l’algorithme qui permet de résoudre une équation du 1er degré.
Exercice n°06 :
Traduisez l’algorithme qui permet de résoudre une équation du 2ème degré.
Institut National Spécialisé de la Formation Professionnelle
Spécialité : Informatique/assistant multimédia
Module : Algorithme/Pascal
TP 05 : L’instruction de choix - l’instruction CASE..OF
PARTIE THEORIQUE
3) Le choix multiple (Case…Of):
Syntaxe :
Case < variable de controle > of
Valeur1 :Begin
{Bloc d’instructions}
End ;
Valeur2: Begin
{Bloc d’instructions}
End ;
.
.
.
Else: Begin
{Bloc d’instructions}
End ;
End ;
Remarques:
1) Le bloc ‘Else’ n’est pas obligatoire
2) Le Begin et End ne sont pas nécessaires lorsque les blocs ne comportent qu’une
seule instruction.
3) Variable de contrôle est une variable de type char, integer ou boolean
4) Valeuri : est une constante ou liste de constantes séparées par des virgules ou un
intervalle.
PARTIE PRATIQUE
Exemple 01:
Program choix;
Var touche :char;
Begin
Write (‘Tapez une touche SVP :’); readln(touche);
Case touche of
‘r’,’R’: writeln(‘rouge’);
‘b’,’B’:writeln(‘bleu’);
‘n’,’N’:writeln(‘noir’);
End;
End.
Exemple 02:
Program calcule;
Var a,b,choix: integer;
Begin
Write(‘Entrez 02 nombres entiers SVP:’); readln(a,b);
Writeln(‘ ************MENU**************’) ;
Writeln(‘ 1 : Calcule de la somme (a+b)’) ;
Writeln(‘ 2 : Calcule du produit (a*b)’) ;
Writeln(‘ ********************************’) ;
Writeln(‘Entrez votre choix :’) ; readln(choix) ;
Case choix of
1 :writeln(‘la somme est :’,a+b) ;
2 :writeln(‘le produit est :’a*b) ;
Else writeln(‘Erreur de choix’) ;
End ;
readln ; readln ;
End.
Exercice 01 : Ecrire un programme Pascal qui permet de Lire un nombre réel X et de
calculer abs(x), sqr(x),trunc(x) et round(x) selon le choix de l’utilisateur.
Institut National Spécialisé de la Formation Professionnelle
Spécialité :Technicien. Assistant Mutimédia
Module : Algorithme/Pascal
TP 06 : Les Boucles- l’instruction FOR..DO
Introduction : L’instruction FOR ..DO est l’équivalent de l’instruction Pour..Faire en
algorithme.
La syntaxe de l’instruction (FOR..DO) :
FOR <compteur> :=< valeur initiale> TO <valeur finale> DO
<instructions>
Exemple :
For compt :=1 TO 3 DO
Writeln(‘Bonjour’) ;
Exercice 01 :
Tapez le programme suivant :
Program multi ;
Var nb,compt :integer ;
Begin
Write(‘introduire un nombre entier SVP :’) ;
Read(nb) ;
For compt :=0 To 10 DO
Writeln(nb,’*’,compt,’=’,nb*compt) ;
Readln ;readln ;
End.
- Faites le déroulement du programme pour nb=5,7 et 10
Exercice 02 :
Ecrire un programme Pascal qui demande un nombre de départ, et qui calcule la somme
des entiers jusqu’à ce nombre.
Exemple :
Si l’on entre 5, le programme doit calculer : 1+2+3+4+5=15
Institut National Spécialisé de la Formation Professionnelle
Spécialité :Technicien. Assistant Mutimédia
Module : Algorithme/Pascal
TP 07 : Les Boucles- l’instruction While..DO
Introduction : L’instruction While ..DO est l’équivalent de l’instruction Tantque..Faire en
algorithme.
La syntaxe de l’instruction (While..DO) :
While <condition> DO
Begin
<Suite d’instructions>
End ;
Remarques :
1. La variable utilisée dans la condition doit avoir une valeur avant la boucle Tantque
2. La suite d’instructions comprend un élément modifiant la valeur de la condition.
Exemple : Un programme qui permet d’afficher ‘bonjour’ 03 fois :
Program bonjour ;
Var compt : integer ;
Begin
Compt :=1 ;
While (compt<=3) do
Begin
writeln(‘Bonjour’) ;
compt := compt+1 ;
End;
End.
Exercice 01: Ecrire un programme Pascal qui demande un nombre entier, et qui affiche la table
de multiplication de ce nombre.
Exercice 02 : Ecrire un programme Pascal qui demande un nombre entier entre 1 et 3 jusqu’à la
réponse convienne.
Institut National Spécialisé de la Formation Professionnelle
Spécialité : Technicien.Assistant multimédia
Module : Algorithme/Pascal
TP 08 : Les Boucles- l’instruction Repeat..Until
Introduction : L’instruction Repeat ..Until est l’équivalent de l’instruction
Répéter..Jusqu’à en algorithme.
La syntaxe de l’instruction (Repeat..Until) :
Repeat
<Suite d’instructions>
Until <condition> ;
Remarques :
1. La condition n’est pas testée qu’à la fin de la structure Repeat..Until
2. Pas de Begin et end dans la structure Repeat..Until
3. La suite d’instructions comprend un élément modifiant la valeur de la condition.
Exemple : un programme qui permet d’afficher ‘bonjour’ 03 fois :
Program bonjour ;
Var compt : integer ;
Begin
Compt :=1 ;
Repeat
Writeln(‘Bonjour’) ;
Compt := compt+1 ;
Until compt>3 ;
End.
Exercice 01:
Ecrire un programme Pascal qui demande un nombre entier, et qui affiche la table de
multiplication de ce nombre.
Exercice 02 :
Ajoutez des instructions au programme de l’exercice 01qui permettent de répéter
l’éxecution du programme suivant la réponse de l’utilisateur.
Exemple : voulez vous continuer ? (O/N) :O
