Leçons de niveau 15

Langage Pascal/Définition de procédure

Une page de Wikiversité.
Sauter à la navigation Sauter à la recherche
Début de la boite de navigation du chapitre
Définition de procédure
Icône de la faculté
Chapitre no 7
Leçon : Langage Pascal
Chap. préc. :Instruction itérative
Chap. suiv. :Définition de fonctions
fin de la boite de navigation du chapitre
Icon falscher Titel.svg
En raison de limitations techniques, la typographie souhaitable du titre, « Langage Pascal : Définition de procédure
Langage Pascal/Définition de procédure
 », n'a pu être restituée correctement ci-dessus.

La procédure est un moyen de compréhension intermédiaire entre le rédacteur du code source et l'ordinateur via le programme.

En fait, il est construit tel qu'utilisant le Begin et le End, marquant tous deux son début et sa fin. À noter que dans ce cours ci, toutes formes de mots en MAJUSCULE désigne un mot remplaçable par d'autres et qui n'ont aucune valeur absolue en programmation.

Syntaxe[modifier | modifier le wikicode]

Procedure NOM(Variable1 : TYPE; Variable2 : TYPE; ...);
Begin
   { instructions, par exemple ici on affiche les deux variables }
   WriteLn(Variable1);
   WriteLn(Variable2);
End;

Utilisation[modifier | modifier le wikicode]

L'utilisation la plus courante est lorsqu'on répète le segment définit dans la procédure plus d’une fois. Et c’est une forme de commentaire non véritable puisqu’il permet la clarification du programme pour le lecteur du code source.

Généralement, les procédures sont inventées par le programmeur. Mais il existe également le type automatique. C'est-à-dire les procédures contenues dans une unité prédéfinie.

Dans le programme principal[modifier | modifier le wikicode]

Program LeProgramme1;

Procedure Proc1( ... );
Begin
   {...}
End;

Procedure Proc2( ... );
Begin
   {...}
End;

Begin
   Proc1; { appel de la première procédure }
   Proc2; { appel de la deuxième procédure }
End.

Exemple[modifier | modifier le wikicode]

Program Test;

{ Cette procédure affiche "allo" suivi du texte passé en paramètre. }
Procedure allo(vartexte : string);
Begin
  Writeln('allo');
  Writeln(vartexte);
End;

Begin
   allo('Vous êtes bien chez la famille Tralala');
End.