Comme premier exemple d'une séquence nous proposons la rédaction d'un programme permettant de calculer la somme de deux nombres entiers aléatoires.
En Turbo-Pascal il existe une fonction standard prédéfinie Random( X ) qui retourne un nombre entier aléatoire supérieur ou égal à 0 et strictement inférieur à son argument X. L'argument de la fonction Random et la valeur retournée sont donc du type entier.
On obtient sans difficulté le programme Turbo-Pascal suivant:
01 PROGRAM RandomSum;
02 USES Crt;
03 CONST Max = 10; {Max-1 est la valeur maximale que peuvent prendre
04 les nombres aléatoires}
05 VAR Number1, Number2, Sum: Integer;
06 BEGIN
07 ClrScr;
08 Number1 := Random( Max );
09 Number2 := Random( Max );
10 Writeln( 'Nombres aléatoires: ', Number1, Number2 );
11 Sum := Number1+Number2;
12 Writeln( 'Leur somme: ', Sum )
13 END. {-- RandomSum}
Il faut noter que la numérotation des lignes ne fait pas partie du texte du programme!
On retiendra que d'habitude on donne des noms significatifs aux variables clés d'un programme ou bien on ajoute une description des variables utilisées sous forme d'un commentaire. Ceci facilitera la maintenance d'un programme tout en empêchant le programmeur (ou toute autre personne impliquée) de perdre du temps coûteux et par suite non négligeable à (re)trouver l'interprétation correcte des variables chaque fois qu'il désire respectivement relire ou améliorer son programme.
Il est vrai que dans l'exemple précédent on aurait pu s'épargner une variable en écrivant:
01 PROGRAM RandomSum;
02 USES Crt;
03 CONST Max = 10; {Max-1 est la valeur maximale que peuvent prendre
04 les nombres aléatoires}
05 VAR Number, Sum: Integer;
06 BEGIN
07 ClrScr;
08 Number := Random( Max );
09 Writeln( 'Premier nombre aléatoire: ', Number );
10 Sum := Random( Max );
11 Writeln('Second nombre aléatoire: ', Sum );
12 Sum := Number+Sum;
13 Writeln( 'Leur somme: ', Sum )
14 END. {-- RandomSum}
Cette implémentation a l'avantage de réduire l'espace-mémoire nécessaire mais elle présente le grand désavantage de rendre le programme moins lisible.
TERMES TECHNIQUES
• instruction composée
• RANDOM
© Aflo Informatique , 2003-2004