Langage Pascal/Définition de fonctions
Fonctions modifier
Définition modifier
La fonction est un résultat qui nécessite plusieurs étapes pour être défini. Pour le néophyte, on clarifiera en donnant tout simplement la syntaxe.
Syntaxe modifier
Function NOM(Variable1 : TYPE, ...) : TYPE;
Begin
{ instructions }
NOM := VALEUR; { affectation de la valeur de retour }
End;
Vous pouvez inclure cette définition de fonction dans un programme, une unité, ou bien à l'intérieur d’une autre procédure/fonction.
Exemples modifier
Définition d’une procédure modifier
Cette procédure affiche "allo" suivi du texte passé en paramètre.
Procedure allo(vartexte : string);
Begin
Writeln('allo');
Writeln(vartexte);
End;
Définition de fonction modifier
La fonction suivante attend des lignes de texte de l'utilisateur.
Function AttendreTexte(nblignes : byte) : string;
var i: integer; s: string;
Begin
result := ''; { cette variable est définie automatiquement }
for i := 1 to nblignes do
begin
{ On attend une ligne de texte de l’utilisateur }
readln(s);
{ On passe à la ligne si besoin }
if result <> '' then result := result + #13 + #10;
{ On concatène au résultat }
result := result + s;
end;
End;
Définition du contenu principal modifier
var qui: string;
Begin
allo('qui est à l''appareil ?'); { on écrit deux fois la guillemet pour indiquer qu’il ne s'agit pas de la fin de la chaine de caractère }
qui := AttendreTexte(1);
writeln('Bonjour ', qui);
End.
Notes modifier
- Writeln vient de Write et LN. Write signifie Écrire, et LN signifie Ligne.
- Readln vient de Read et LN. Read signifie Lire.
