Bonjour à tous.
Je suis à la recherche d'un générateur de dés à 10 faces sur le net. J'entends pas là, un petit programme qui me donne un nombre entre 0 et 9. Faire ce petit programme soit même ne doit pas être difficile mais mes compétances en informatique sont très limités.
J'ai fait une recherche sur Google mais je n'ai pas du utiliser les bons mots clés car je ne trouve pas ce que je cherche.
J'espère que l'un d'entre vous pourra me venir en aide.
Merci d'avoir lu ce post.
 
Nadrathen.

http://le.festin.du.troll.free.fr/ [...] 75fe2aca46
 
sinon tu peux le faire sur calcultrice

Kyp', expert TI
 
Code source pour TI 83, TI 83+, TI 83+SE et la 84
 
Prgm > New
 
Clrhome: Disp MathInt(0,9): Stop
 

J ai un pote, je lui piquerai le programme sur TI, ou tu choisit le nombre de face, le nombre de lancer  
Il me faut ce programme

Code source pour Sebou
 
Prgm > New
 
Clrhome : Input"Faces:",A : Input"Lancés",B : For 1,B,C : Disp MathInt(0,A) : End : Stop
 

@Skyzophrene: Merci beaucoup pour le lien.
@Kypper_667: Ma calculatrice est une TI89.

et moi, une TI 30 , quoiqu en term, j avais une TI 81

élitiste
 
c'est presque la même chose niveau programmation

Et sur casio (je fais le programme de tête , j'ai pas ma calc sur moi , pas pu tester) :
 
 
ClrText
0->A~Z
"FACES":?->A
Lbl 1
ClrText
Int (ARan#+1) ->B
Locate 5,5,B
Do
LpWhile GetKey/=(Différent de)31
Goto 1
 
Avec une variation plus simple mais moins jolie :
 
ClrText
0->A~Z
"FACES":?->A
Lbl 1
ClrText
Int (ARan#+1) ->B
B(Petit triangle noir qui provoque un DISP)
Goto 1
 
Sachant que je ne suis plus sur de la touche 31 , c'est numéro de Exe , je pense que c'est 31 , mais encore une fois , c'est tout de tête

Pour TI89 c'est une fonction avec Rnd machin...Rand(0,9) je pense ( rand(0,40) , comment ca m'a servi pour jouer au loto en philo...)