Les procedures .pdf

Les procédures
Sommaire
1)

Appel d'une Procédure dans un programme principal ............................................................................................... 2

2)

Procédure et analyse ................................................................................................................................................... 3
A. Activité 1 : Ecrire une analyse de la procédure intitulée saisieTaille qui permet la saisie d'un tableau de taille N
tel que N de taille paire .................................................................................................................................................... 3
B. Activité 2 : Ecrire une analyse de la procédure intitulée saisieTableau qui permet la saisie d'un tableau T de N
réels3
C. Activité 3 : Ecrire une analyse de la procédure intitulée produitTableaux qui permet le calcul de produit de
deux tableaux T1 et T2 de taille N contenant des réels .................................................................................................. 3
D. Activité 4 : Ecrire une analyse de la procédure intitulée affichageTableau qui permet l'affichage des éléments
d'un tableau T de taille N ................................................................................................................................................. 3
Procédure et Algorithmique ........................................................................................................................................ 3

3)
A.

Activité 1 : Traduire l'analyse de la procédure saisieTaille en un algorithme ........................................................ 3

B.

Activité2 : Traduire l'analyse de la procédure saisieTableau en un algorithme ..................................................... 4

C.

Activité3 : Traduire l'analyse de la procédure produitTableaux en un algorithme ................................................ 4

D.

Activité4 : Traduire l'analyse de la procédure affichageTableau en un algorithme ............................................... 4
Procédure et Pascal ..................................................................................................................................................... 4

3)
A.

Activité 1 : Traduire l'algorithme de la procédure saisieTaille en un programme pascal ...................................... 4

B.

Activité 2 : Traduire l'algorithme de la procédure saisieTableau en un programme pascal .................................. 4

C.

Activité 3 : Traduire l'algorithme de la procédure produitTableaux en un programme pascal ............................ 4

D.

Activité 4 : Traduire l'algorithme de la procédure affichageTableau en un programme pascal ........................... 4

1

Niveau Scolaire : 4ème Sciences Expérimentales

préparé par Khaoula ABAIDI

Une procédure est un sous-programme qui permet d'accepter ou non des paramètres mais ne peut pas
retourner une valeur. Elle permet de résoudre un sous-problème.
1) Appel d'une Procédure dans un programme principal
Analyse du programme principal ( Affichage du tableau Tr résultat de produit de deux tableaux Ta,Tb de taille N pair)
T.D.N.T
Nom = AffichageCalculProduitTableau
Résultat = Tr
Proc affichageTableau(Tr,n)
Proc produitTableaux(Ta,Tb,Tr,n)
Proc saisieTableau(Tb,n)
Proc saisieTableau(Ta,n)
Proc saisieTaille(n)

Fin AffichageCalculProduitTableau

Type
Tab = tableau de 100 réels
T.D.O
Objet

Type/Nature

Rôle

Ta

Var/tab

Tableau Ta

Tb

Var/tab

Tableau Tb

Tr

Var/tab

Tr résultat Ta*Tb

n

Var/entier

Taille des tableaux

saisieTaille

procedure

Saisie de la taille

produitTableau

procedure

Calcul de produit de
deux tableaux
Affichage des éléments
d'un tableau

affichageTableau procedure

Algorithme du programme principal ( Affichage du tableau Tr résultat de produit de deux tableaux Ta,Tb de taille N pair)
0) debut AffichageCalculProduitTableau
1) Proc saisieTaille(n)
2) Proc saisieTableau(Ta,n)
3) Proc saisieTableau(Tb,n)
4) Proc produitTableaux(Ta,Tb,Tr,n)
5) Proc affichageTableau(Tr,n)

6) Fin AffichageCalculProduitTableau
Programme Pascal du programme principal ( Affichage du tableau Tr résultat de produit de deux tableaux Ta,Tb de taille N pair)
Program AffichageCalculProduitTableau ;
Uses wincrt ;
Type tab = array[1..100]of real ;
Var
N : integer ;
Tr , Ta , Tb : tab ;
{ici s'effectue le développement des
procédures}
Begin
saisieTaille(n) ;
saisieTableau(Ta , n) ; saisieTableau(Tb , n) ;
produitTableaux(Ta , Tb , Tr , n ) ;
affichageTableau ( Tr , n ) ;
End.

Les sous-programmes [ Les PROCEDURES ]

2

Niveau Scolaire : 4ème Sciences Expérimentales

préparé par Khaoula ABAIDI

2) Procédure et analyse
A. Activité 1 : Ecrire une analyse de la procédure intitulée saisieTaille qui permet la saisie d'un tableau de taille
N tel que N de taille paire

DEF PROC saisieTaille(var n : entier)
Résultat = n
[ ] répéter
n = donnée("Saisie Taille N : ")
Jusqu'à n mod 2 = 0
Fin saisieTaille

Tableau de déclaration des objets locaux :
Pas d'objets locaux

Activité 2 : Ecrire une analyse de la procédure intitulée saisieTableau qui permet la saisie d'un tableau T de

B.

N réels

DEF PROC saisieTableau (var T : tab ; n : entier )
Résultat = T
[ ] pour i de 1 à n faire
T[i] = donnée("T[" , i , "] = ")
finPour
Fin saisieTableau
C.

Tableau de déclaration des objets locaux :
Objet Type/Nature
Rôle
i

Var/entier

compteur

Activité 3 : Ecrire une analyse de la procédure intitulée produitTableaux qui permet le calcul de produit de
deux tableaux T1 et T2 de taille N contenant des réels

DEF PROC produitTableaux (T1,T2 : tab ; var T3 : tab ; n : entier )
Résultat = T3
= [ ] pour i de 1 à n faire
T3[i] = T1[i]*T2[i]
finPour
Fin produitTableaux
D.

Activité 4 :

T.D.O.L :
Objet Type/Nature
i

Rôle

Var/entier
compteur

Ecrire une analyse de la procédure intitulée affichageTableau qui permet l'affichage des

éléments d'un tableau T de taille N

DEF PROC affichageTableau (T: tab ; n : entier )
Résultat = T
T = [ ] pour i de 1 à n faire
Ecrire(T[i] , " ")
finPour
Fin affichageTableau

T.D.O.L :
Objet Type/Nature
i

Var/entier

Rôle
compteur

3) Procédure et Algorithmique
A.

Activité 1 : Traduire l'analyse de la procédure

saisieTaille en un algorithme

0) DEF PROC saisieTaille(var n : entier)
1) [ ] répéter
n = donnée("Saisie Taille N : ")
Jusqu'à n mod 2 = 0
2) Fin saisieTaille
Les sous-programmes [ Les PROCEDURES ]

3

Niveau Scolaire : 4ème Sciences Expérimentales
B.

Activité2 : Traduire l'analyse de la procédure

préparé par Khaoula ABAIDI
saisieTableau en un algorithme

0 ) DEF PROC saisieTableau (var T : tab ; n : entier )
1) [ ] pour i de 1 à n faire T[i] = donnée("T[" , i , "] = ") finPour
2) Fin saisieTableau
C.

Activité3 : Traduire l'analyse de la procédure

produitTableaux en un algorithme

0) DEF PROC produitTableaux (T1,T2 : tab ; var T3 : tab ; n : entier )
1) T3 = [ ] pour i de 1 à n faire T3[i] = T1[i]*T2[i] finPour
2) Fin produitTableaux
D.

Activité4 : Traduire l'analyse de la procédure

affichageTableau en un algorithme

0) DEF PROC affichageTableau (T: tab ; n : entier )
1) T = [ ] pour i de 1 à n faire Ecrire(T[i] , " ") finPour
2) Fin affichageTableau
3) Procédure et Pascal
A. Activité 1 : Traduire l'algorithme de la procédure saisieTaille en un programme pascal
Procedure saisieTaille(var n : integer) ;
begin
repeat
begin
write('Saisie Taille N : ') ; readln(n);
end ;
until n mod 2 = 0 ;
end ;
B. Activité 2 : Traduire l'algorithme de la procédure saisieTableau en un programme pascal
Procedure saisieTableau (var T : tab ; n : integer ) ;
Var i : integer ;
begin
for i := 1 to n do begin write('T[' , i , '] = ') ; readln(T[i]);
end ;
end ;
C. Activité 3 : Traduire l'algorithme de la procédure produitTableaux en un programme pascal
Procedure produitTableaux (T1,T2 : tab ; var T3 : tab ; n : integer ) ;
Var i : integer ;
begin
for i := 1 to n do T3[i] := T1[i]*T2[i] ;
end ;
D. Activité 4 : Traduire l'algorithme de la procédure affichageTableau en un programme pascal
Procedure affichageTableau (T: tab ; n : integer ) ;
Var i : integer ;
begin
for i := 1 to n do write(T[i] , ' ') ;
end ;

Les sous-programmes [ Les PROCEDURES ]

4