programme de tirage pour l'euromillion. A optimiser...

[C.Ret]

parce que le NEXT J est mal placé. En fait tel quel il n'est jamais exécuté.

Merci badaze.

Très juste, le NEXT est après le IF...THEN, la boucle n'est jamais bouclée, sauf si justement N est identique à N(1).

J'avais mal lu et interprété comme s'il y avait un ELSE :

Code : Tout sélectionner

30 FOR I = 1 TO 5
50  N=RND50
55  FOR J=1 TO I : IF N=N(J) THEN GOTO 50 : ELSE NEXT J
67  N(I)=N
75 NEXT I

Il faut que j'arrête d'interpréter les lignes de BASIC comme si elles étaient du RPN !

[Gilles59]

Doit y a avoir un ELSE bien sur ... Il était dans .... ma tête

[C.Ret]

Je ne suis même pas sûr que cela marche avec le ELSE.

Le BASIC est interprété, et je connais des système où on ne peux pas mettre de NEXT sur une ligne ayant un IF; l'interpréteur ne le voit pas.


C'est un peut comme cette ligne :

Code : Tout sélectionner

130 IF A>1 THEN B=12:IF A>3 THEN B=34:ELSE B=56

Quelle sera la valeur de B pour A=0 ou A=1 ou A=2 ou A=3 ou A=4 ?

Les réponses en BASIC dépendent plus de l'interpréteur ou du BASIC en question que de la valeur dans A.

Rien avoir avec la syntaxe rigoureuse des langages évolué, comme par exemple :

Code : Tout sélectionner

« IF A 1 > THEN 12 'B' STO END IF A 3 > THEN 34 'B' STO ELSE 56 'B' STO END »
ou
« IF A 1 > THEN 12 'B' STO IF A 3 > THEN 34 'B' STO END ELSE 56 'B' STO END » 
ou
« IF A 1 > THEN 12 'B' STO IF A 3 > THEN 34 'B' STO ELSE 56 'B' STO END END »

Quelle que soit le code, le résultat dépend bien plus du contenu de A que de la machine !

[Gilles59]

Une version HP49/50 avec la library GoferList http://www.musikwissenschaft.uni-mainz. ... 9/hp49.php

Code : Tout sélectionner

« 1 SWAP 1 Seq « RAND SWAP » MAP SORT SWAP Take Unzip NIP » 'Aléa' STO
« 6 50 Aléa 2 9 Aléa » 'EuroM' STO

Ex:

EuroM

{ 1. 13. 16. 35. 48. 39. }
{ 3. 6.}

Tite video en mode debug ligne à ligne :
http://www.dailymotion.com/video/xmje75_eurom_tech

Le même prog peut permettre de jouer au loto tiercé ( 3 25 Aléa) quinté (5 25 Aléa) etc...

[Alexandre]

Et hop! 2 numéros et une étoile! 6€30

Un sacré bon programme que ce programme de l'Euromillion.
Bon week les amis.

[badaze]

Et hop! 2 numéros et une étoile! 6€30

Un sacré bon programme que ce programme de l'Euromillion.
Bon week les amis.

Champagne !!!

Tu avais joué combien ?

[Alexandre]

Et hop! 2 numéros et une étoile! 6€30

Un sacré bon programme que ce programme de l'Euromillion.
Bon week les amis.

Champagne !!!

Tu avais joué combien ?

Ce qui compte c'est de gagner!




















Euh... 6 euros...