p
u
b
l
i
c
i
t
é
publicité

Discussion: Utilisation de random

  1. #1
    Invité de passage
    Homme Profil pro
    Étudiant
    Inscrit en
    octobre 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2012
    Messages : 4
    Points : 0
    Points
    0

    Par défaut Utilisation de random

    Bonjour et merci à ceux qui vont prendre la peine et le temps de bien vouloir lire mon post^^
    Voilà, dans le cadre d'un exercice je dois refaire Le Compte est bon.
    J'ai commencé a faire du code et j'obtiens :
    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
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    //le compte est bon
    // On dispose de 6 nombres ou chiffres tirés au hasard parmi :
    //    les 9 premiers chiffres (1, 2, 3, 4, 5, 6, 7, 8, 9)
    //    les nombres : 10, 25, 50, 100
    //On tire au hasard un nombre compris entre 100 et 999.
     
    const tb1=13;
    const tb2=6;
    var table: array [1..tb1] of integer;
    var table2: array [1..tb2] of integer;
    var x:integer;
     
     
    begin
    randomize;
    table[1]:=1;
    table[2]:=2;
    table[3]:=3;
    table[4]:=4;
    table[5]:=5;
    table[6]:=6;
    table[7]:=7;
    table[8]:=8;
    table[9]:=9;
    table[10]:=10;
    table[11]:=25;
    table[12]:=50;
    table[13]:=100;
     
    table2[1]:=random(table[1..13]);
    table2[2]:=random(table[1..13]);
    table2[3]:=random(table[1..13]);
    table2[4]:=random(table[1..13]);
    table2[5]:=random(table[1..13]);
    table2[6]:=random(table[1..13]);
    writeln(table2[1]);
    writeln(table2[2]);
    writeln(table2[3]);
    writeln(table2[4]);
    writeln(table2[5]);
    writeln(table2[6]);
    readln;
     
    end.
    Le problème est que quand j'écris table2[x]:=random(table[1..13]); j'obtiens une erreur
    Fatal: Syntax error, ] expected but .. found
    Edit : la seule alternative que j'ai trouvé est de faire
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    repeat
    randomize;
    a:=random(100);
     
    until a in [1,2,3,4,5,6,7,8,9,10,25,50,100];
    mais bon c'est un peu lourd et moche :/
    Merci^^

  2. #2
    Expert Confirmé Sénior

    Inscrit en
    août 2006
    Messages
    3 622
    Détails du profil
    Informations forums :
    Inscription : août 2006
    Messages : 3 622
    Points : 4 762
    Points
    4 762

    Par défaut

    Cie,

    Révise la déclaration de la fonction random.
    Il court en ce moment une espèce de grippe, mais elle ne court pas très vite, car on peut l'attraper sans courir.

  3. #3
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Inscrit en
    décembre 2011
    Messages
    1 986
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 42
    Localisation : France, Moselle (Lorraine)

    Informations forums :
    Inscription : décembre 2011
    Messages : 1 986
    Points : 5 693
    Points
    5 693
    Billets dans le blog
    1

    Par défaut

    Essaie plutôt de faire comme ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    table2[1]:=table[Random(tb1)+1];
    L'Art est long et le Temps est court.

  4. #4
    Invité de passage
    Homme Profil pro
    Étudiant
    Inscrit en
    octobre 2012
    Messages
    4
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2012
    Messages : 4
    Points : 0
    Points
    0

    Par défaut

    Citation Envoyé par Roland Chastain Voir le message
    Essaie plutôt de faire comme ça :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    table2[1]:=table[Random(tb1)+1];
    effectivement ca marche très bien ^^ merci beaucoup !

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 4
    Dernier message: 17/05/2011, 17h28
  2. utilisation de random ?
    Par infose dans le forum C#
    Réponses: 4
    Dernier message: 20/10/2010, 12h33
  3. Utilisation de random avec une liste
    Par husobom dans le forum Prolog
    Réponses: 4
    Dernier message: 24/11/2007, 23h43
  4. utilisation de random
    Par nelob dans le forum java.util
    Réponses: 9
    Dernier message: 31/10/2007, 13h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo