Comment écrire un programme en Pascal qui affiche des numéros de 1 à 49 de façon aléatoire ? Je voudrais utiliser ce programme pour jouer au Loto. Merci
Comment écrire un programme en Pascal qui affiche des numéros de 1 à 49 de façon aléatoire ? Je voudrais utiliser ce programme pour jouer au Loto. Merci
Random ?
M.Dlb - Modérateur z/OS - Rédacteur et Modérateur Pascal
enfin, il existe dejà en pascal une fonction random qui permet de generer des nombre aléatoire. cette fonction est random.
random(num) fournit un nombre compris entre 0 et num-1.
Ainsi, pour pour avoir des nombres compris entre 1 et 49 il te suffit de faire
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 resultat:=1+random(49);
Et il ne faut pas oublier le randomize, sans lui, les mêmes chiffres reviennent tout le temps =(
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2 Randomize; result := 1 + random(49);
Il est difficile de retrouver ses erreurs lorsqu'on est persuadé que son code est juste...
Groupe des développeurs ivoiriens
et vint le 20siècle et l'homme se mit à réflechir comme la machine auteur: diden138
Langage: Pascal,OCaml,Delphi,c/c++.
Langages web:Xhtml,Css,Php/Mysql,Javascript,Actionscript 2.0
Plate forme:Windows XP Pro SP2./Red Hat 9.0/SUSE 10.2
Config :Intel P4 3.2GHZ,2MO cach,512 RAM.
Outils:Tp7,objective caml,Delphi 6 perso, C++builder 6,Visual C++ Express edition sous win,code-block sous linux(Ubuntu) .
Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !
Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells
Si les cons volaient, il ferait nuit à midi.
ça donnera deux numéro différents
j'ajouterais aussi ça tiré du cours du Hugo ETIEVANT
Avant l'utilisation des fonctions qui vont suivre, il faut initialiser le généraleur aléatoire (tout comme il faut initialiser la carte graphique pour faire des dessins) avec la procédure Randomize. Cette initialisation est indispensable pour être sûr d'obtenir un relativement "bon hasard" bien que ce ne soit pas obligatoire.
j'ajournerais encore une chose si on met pas de randomize on aura les même valeurs si on exécute le programme plusieurs fois mais pas dans le programme lui même j'explique exemple:
lors qu'on exécute ce programme on aura par exemple 25 et 30 mais pas le même chiffre 30 et 30.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 writeln(1+random(49)); writeln(1+random(49));
par contre si on réexecute notre programme une 2éme fois on aura le même résultat
Cordialement,
et vint le 20siècle et l'homme se mit à réflechir comme la machine auteur: diden138
Langage: Pascal,OCaml,Delphi,c/c++.
Langages web:Xhtml,Css,Php/Mysql,Javascript,Actionscript 2.0
Plate forme:Windows XP Pro SP2./Red Hat 9.0/SUSE 10.2
Config :Intel P4 3.2GHZ,2MO cach,512 RAM.
Outils:Tp7,objective caml,Delphi 6 perso, C++builder 6,Visual C++ Express edition sous win,code-block sous linux(Ubuntu) .
J'insiste, éxecutes plusieurs fois a la suite ce code
Et dis moi si la série des 5 nombres change à chaque éxecution
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 uses crt; const max=5; var i:byte; begin clrscr; for i:=1 to max do writeln(random(50)+1); readln; end.
L'aide de Pascal n'est pas clair?
Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !
Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells
Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !
Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells
et vint le 20siècle et l'homme se mit à réflechir comme la machine auteur: diden138
Langage: Pascal,OCaml,Delphi,c/c++.
Langages web:Xhtml,Css,Php/Mysql,Javascript,Actionscript 2.0
Plate forme:Windows XP Pro SP2./Red Hat 9.0/SUSE 10.2
Config :Intel P4 3.2GHZ,2MO cach,512 RAM.
Outils:Tp7,objective caml,Delphi 6 perso, C++builder 6,Visual C++ Express edition sous win,code-block sous linux(Ubuntu) .
Je suis ce que je suis grâce à ce que nous sommes tous Humanité aux Humains!! !
Entre ce que je pense, ce que je veux dire, ce que je crois dire, ce que je dis ce que vous avez envie d'entendre, ce que vous croyez entendre, ce que vous entendez, ce que vous avez envie de comprendre, ce que vous comprenez ... Il y a dix possibilités que nous ayons des difficultés à communiquer. Mais essayons quand meme ....... E. Wells
Bonjour,
n'oubliez pas que randomize() est parfois inintéressant. Je me base sur les cas où l'on doit générer une série de nombres aléatoires mais où on a besoin d'avoir plusieurs fois la même liste de ces nombres sur plusieurs exécutions d'un bout de code. Dans les algos génétiques et d'IA par exemple.
Les générateurs de nombres pseudo-aléatoires sont d'ailleurs plus souvent utilisés en générant une seule fois une série de nombres aléatoires et en réutilisant cette même série.
Bref, en général moi je préfère recréer une fonction d'hasard grâce aux générateurs congruentiels purs mais ça, ça dépends de l'utilisation
Certified Oracle Advanced PL/SQL Professional
Certified Oracle APEX Expert
Certified Oracle SQL Expert
Sai,
Il n'est pas inintéressant, mais on peut parfois l'omettre, à condition de savoir pourquoi on ne le met pas.
Il est exact que dès qu'on utilise régulièrement des nombres pseudo-aléatoires, il est utile de regarder vers des générateurs plus performants que ceux fournis avec les compilateurs (surtout les vieux compilateurs), qui ne manquent pas, soit qu'on s'en fasse un (attention, ça ne s'improvise pas !!), soit qu'on en prenne un bien confirmé (voir par exemple Twister ).
Si les cons volaient, il ferait nuit à midi.
exact
Certified Oracle Advanced PL/SQL Professional
Certified Oracle APEX Expert
Certified Oracle SQL Expert
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager