Posté le 19/04/2003 à 16:34 Membre depuis le 13/04/2002, 1571 messages
Je ne me rappelle plus trop de la syntaxe For...

Faudrait faire un truc du genre
[code:1:d287124d75]For(X,1,C
RandInt(0,1)-> L1(X)
End[/code:1:d287124d75]

Bref, à chaque pile, on a un 1 stoché dans la liste et un 0 pour les Face.
Ensuite faire
[code:1:d287124d75]Sum(L1)->Z
Disp Z[/code:1:d287124d75]

pour avoir le nombre de piles.
On peut rajouter un

[code:1:d287124d75]Disp 10-Z[/code:1:d287124d75]

pour avoir le nombre de face.

Ce ne sont que des idées...
Posté le 19/04/2003 à 16:46 Membre depuis le 17/08/2002, 1036 messages
Ma prof de math considaire entre une fct comme programmer sa ti !!!!!
Posté le 19/04/2003 à 17:07 Membre depuis le 13/04/2002, 1571 messages
[quote:d1ae84a394="Deus Makina 2010"]
A propos bon aniv de 1 an dinscription et de 1000 msg posté Olivier ! :bravo:[/quote:d1ae84a394]

Merci en effet smile

Pour revenir au sujet, le truc du For rend le programme plus léger en octets.
Posté le 19/04/2003 à 17:35 Membre depuis le 13/04/2002, 1571 messages
Tu dois rendre le code source du programme ?
Plus c'est court, mieux c'est !
Posté le 19/04/2003 à 17:43 Membre depuis le 13/04/2002, 1571 messages
Essaie ça

[code:1:723bae1fe9]
ClrList L1
ClrHome
Disp "LANCER DE PIECES","A 10 REPRISES"
For(X,1,10
RandInt(0,1)-> L1(X)
End
Sum(L1)->Z
Disp "NOMBRE DE PILES",Z,"FACES",10-Z [/code:1:723bae1fe9]