Discussion :

[babou54]

bonjour! bonjour j'ai un probleme avec ma fonction:

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 
function hasard (MAX:integer):real;
 
Var
nombre:real;
 
Begin
randomize;
MAX:=6;
nombre:=Random(MAX)+1;
 
Writeln('le score est de: ',nombre);
end;
end.

le compilateur me dit que la valeur de retour de la fonction peut être indéfinie
ca veut dire quoi ???
marteau avec ce programme

[flash_math]

Un writeln n'est utile que dans une application console, donc je n'en voit pas l'utilité.

Une fonction doit retourner un résultat contrairement à une procédure. Par exemple random te renvoi un nombre aléatoire.

En fait, je ne vois pas l'intérêt de ta fonction. S'il s'agit de renvoyer une valeur entre 1 et max de façon aléatoire moi je ferais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
function hasard(max: Integer): Real;
begin
  result:=random(max)+1;
end;

Tu appeleras ta fonction par un code du type :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
value:=hasard(6);

Mais si tu veux utiliser random n'oublie pas d'appeler randomize dans la partie initialization de l'unité.

[babou54]

merci! j'essai

[flash_math]

Ah ou ij'oubliais de te préciser que result est le mot clé pour affecter une valeur au résultat d'une fonction, il n'est donc pas à déclarer dans ta clause var.