Discussion :

[babou54]

bonjour,bonjour

j'ai un petit probleme avec la fonction systeme random,
je dois fair une fonction qui renvoira un entier entre 2 entiers positif ou nul.

J'ai pondu ca :

function hasard (n1);

Code :

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

1
2
3
4
5
 
  max:=6 ;
  nombre:=random(,1max);
  readln(nombre);
end.

bien entendu sans résultat ai besoin de votre aide

[Tardiff Jean-François]

Bonjour

vous devez trouvez un nombre quelconque entre n1 et n2

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
16
17
18
19
 
 
Function GetRandom(Min, Max: Integer): Integer;
var
  Temp: Integer;
begin
  // Juste au cas ou ...
  if Max < Min then begin
    Temp := Min;
    Min := Max;
    Max := Temp;
  end;
  Temp := Max - Min;
  Randomize; // Utile uniquement la première fois
  // Renvoi une valeur entre 0 et Temp 
  Result := Random(Temp);
  // transforme mon result en ajoutant Min, donc result est entre min et max
  Result := Result + Min;
end;

Je ne l'ai pas tester, mais quelque chose de ce genre devrait fonctionner.

[Bleys]

Salut,

Euh il y a une erreur ici :

function hasard (n1);

max:=6 ;
nombre:=random(,1max);
readln(nombre);
end.

Il faudrait

Code :

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

1
2
3
4
...
writeln(nombre);
end.

Ensuite si je me souviens bien la fonction Random s'utilise comme ça :

Code :

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

nombre:=Random(MAX)

De cette façon nombre vaudra une valeur comprise entre 0 (ou 1 je sais plus regarde dans l'aide delphi) et MAX+1

Et si tu veux que ton programme ne renvoie pas toujours le même nombre au "hasard" lors d'une même éxécution, il faut juste que tu rajoutes au debut de ton programme Randomize.

A plus

[babou54]

merci