Travail Dirigé 2
1. Faire une petite
calculatrice, qui peut calculer les 4 opérateurs arithmétiques:
Program Calculatrice;
Var
a,b,r : Real;
op : char;
Begin
Write('Entrez 2 nombres et un operateur entre
eux: ');
Readln(a,op,op,b);
If op = '+' Then
r := a+b
Else If op = '-' Then
r := a-b
Else If op = '*' Then
r := a*b
Else If op = '/' Then
If b <>0 Then
r := a/b
Else r := 1E38
Else r := -1E38;
Writeln(a:8:3,op,b:8:3,'=',r:8:3);
End.
Exercices:Dessinez
l’arbre programmatique du programme suivant:
Program Ex1;
var a,b,c,d,min,t : real;
Begin
Write(‘Enterz 4 nombres reels:’); Readln(a,b,c,d);
min := a;
if min > b Then min := b
Else if min > c Then Min := c;
t:= min; min :=d; d:= t;
Writeln(‘Les valeur finales sont:
‘,a:8:3,b:8:3,c:8:3,d:8:3);
End.
2. Calculer la somme des nombres
entiers, qui sont lus jusqu'au un nombre
égale à -100 est lu.
|
|
Program
somme1;
Var
n,s :
Integer;
Begin
Writeln('Entrez
des nombres entiers:');
Readln(n);
s:=0;
While n<>-100 Do
Begin
s := s+n;
Readln(n);
End;
Writeln('La somme
est: ',s);
End.
Exercices : 1. Modifier le programme pour lire jusqu'au
fin de fichier. 2. Modifiez le programme pour calculer la somme des nombres
positifs lus. 3. Modifier pour calculer la moyenne des nombres positifs.
3. Calculer cos x par calculer
de la suite infinie
avec exactitude e
(On doit terminer quand le membre calculé devient
inférieur ou égale à e)
|
|
Exercice: Traduisez l'arbre en Pascal.
4. Calculer la somme des nombres
entiers dans l'intervalle [M,N]:
|
|
Traduction de la boucle "pour"
For
i := M To N Do s := s+i;
Exercices:
1. Ecrivez le programme en Pascal.
2. Changez la boucle "pour" avec le
répétitive "tant que".
5. Calculez le pgcd des
deux entiers.
Il y a
quelque variants. Seulement le variant avec le répétitive
"jusqu'au" est traduit. Les autres sont laissés aux
étudiants pour exercice.
|
|
Program
pgcd;
var
a,b,t,da,db:
Integer;
Begin
Write('Entrez 2
nombres entiers':);
Readln(a,b);
da:=a; db:=b;
Repeat
t := da mod
db;
da := db;
db := t;
Until t=0;
Writeln('Le pgcd
de ',a,' et ',b,' est ', da);
End.
|
|
|
|
Variant
2 :
Variant
3:
6.Calculer le
maximum d'une liste non vide d’entiers jusqu’à . la fin du fichier soit lu. (on a tapé
Ctrl-Z)
- dlu contient le dernier élément lu.
- max contient le maximum des éléments lus, a l'exception
de dlu.
- la liste vide n'ayant pas de maximum, if faut initialiser max avec la
valeur du premier élément lu avant le "Tant Que".
|
Program
Max; |
Exercice_1: Faire un programme qui
calcule la maximum et le nombre d'occurrences de ce maximum dans une liste non
vide terminée par 0.
Exercice_2: Faire un programme qui
calcule la différence entre le maximum et le minimum pour une liste non
vide.