Random en turbo pascal?

cedos -  
 hala -
Salut à tous,

En créant un un programme en turbo, j'ai voulu utiliser la fonction random. Cependant quand je lance mon programme, la valeur donnée, alors quelle devrait être aléatoire est zéro.

J'ai en partie dans mon programme:

var choix:integer;
const n=101;

et:

choix:=random(n);

Je ne comprends pas pourquoi la valeur est toujours à zéro.

Dans l'espoir d'une réponse, je vous remercie d'avance.

3 réponses

  1. KX Messages postés 19031 Statut Modérateur 3 020
     
    Voici donc le code que tu devrais avoir :
    var choix:integer;
    const n=101;
    begin
    randomize;
    choix:=random(n);
    writeln(choix);
    Attention : il ne faut lancer "randomize" qu'une fois dans ton code, et de plus il n'est pas nécessaire que ton n soit const, tu peux faire un random sur une variable...
    7
  2. Pfeifer
     
    Salut il faut que tu initialise le générateur de nombre aléatoire avec le commande "Randomize".
    4
  3. hala
     
    0 est une valeur aléatoire appartient à [0..101] comment il peut être des autres valeurs
    ecrivez cette traitement et observez le résultat de l'exéxution:
    for i:= 1 to 10 do
    writeln (random(100));
    2