Un pot commun a toutes les machines n°1 : Le jeu d'Inversion

Ici, on fait dans le petit, le LCD qui déchire sa race, on y cause même calculatrices quand on est en manque !

Modérateur : Politburo

Répondre
cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2222
Inscription : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Un pot commun a toutes les machines n°1 : Le jeu d'Inversion

Message par cgh » 13 avr. 2013 12:19

Je vous presente "Le Jeu d'Inversion". C'est un programme qui est inspire de l'epais manuel d'application du PC-1211 (p.286-287).
Il apparait aussi sous le nom de "Kibur" dans les OP.
Ce programme est interessant car il est simple, enrtierement numerique et il est implementable sur toutes les machines sans besoin d'avoir des instructions complexes ou evoluees.
Je l'ai pour plusieurs machines: TI-58/59, fx-502P/fx-702P, TI-95, HP-75C (et tous les BASIC), HP-67,... et meme sur une HP-20s (99 pas sur 100) et je dois meme encore avoir ma version pour la Graph100+. Par contre, je n'ai plus le programme pour les HP-48*. Je l'ai reecrit de tete sans utiliser les astuces fort amusantes du PC-1211 (c'est pour C.Ret ;-) ).

C'est le programme que j'utilise pour tester une nouvelle machine, surtout quand c'est une LMS. La re-ecriture du programme sur un autre pocket BASIC ne presente que peu d'interet.

Voici le programme pour fx-502P/fx-602P:

Code : Tout sélectionner

bash-4.2$ ./un502p inversi 
001     01  1
002     02  2
003     03  3
004     04  4
005     05  5
006     06  6
007     07  7
008     08  8
009     09  9
010     00  0
011  C6-01  Min 1
012  C6-0F  Min F
013     01  1
014  C6-05  Min 5
015  FF-EP  INV RAN#
016     E1  *
017     02  2
018     00  0
019     E3  +
020     09  9
021     E5  =
022  FF-C0  INV INT
023  C6-04  Min 4
024  F0-07  LBL 7
025  C7-04  MR 4
026  FF-02  INV x=0
027  F1-06  GOTO 6
028  FF-EP  INV RAN#
029     E1  *
030     09  9
031     E3  +
032     02  2
033     E5  =
034  FF-C0  INV INT
035  F1-09  GOTO 9
036  F0-01  LBL 1
037     01  1
038  C8-04  M- 4
039  F1-07  GOTO 7
040  F0-06  LBL 6
041     00  0
042  C6-04  Min 4
043  C6-05  Min 5
044  F0-05  LBL 5
045  C7-01  MR 1
046     FP  HLT
047  F1-09  GOTO 9
048  F0-00  LBL 0
049     01  1
050  C9-04  M+ 4
051  C7-01  MR 1
052  FF-03  INV x=F
053  F1-04  GOTO 4
054  F1-05  GOTO 5
055  F0-09  LBL 9
056  C6-00  Min 0
057  C7-01  MR 1
058     E2  /
059  C7-00  MR 0
060  FF-F8  INV 10^x
061     E5  =
062  C6-01  Min 1
063  FF-C1  INV FRAC
064  C6-02  Min 2
065  C8-01  M- 1
066     E1  *
067  C7-00  MR 0
068  FF-F8  INV 10^x
069     E5  =
070  C6-02  Min 2
071  F0-08  LBL 8
072  C7-01  MR 1
073     E1  *
074     01  1
075     00  0
076     E5  =
077  C6-01  Min 1
078  C7-02  MR 2
079     E2  /
080     01  1
081     00  0
082     E5  =
083  C6-02  Min 2
084  FF-C1  INV FRAC
085     E1  *
086     01  1
087     00  0
088     E5  =
089  C9-01  M+ 1
090  C7-02  MR 2
091  FF-C0  INV INT
092  C6-02  Min 2
093  FF-01  INV DSZ
094  F1-08  GOTO 8
095  FF-F0  INV IND
096  F1-05  GOTO 5
097  F0-04  LBL 4
098  C7-04  MR 4
Il occupe vonlontairement une seule zone programme.

Au demarrage, la machine "melange" les chiffres 1234567890, et presente un nombre melange, puis attend l'entree d'un nombre N (1..10) donnant la position du chiffre a inverser, sachant que tous les chiffres entre 1 et N seront echanges. Puis quand le nombre est remis dans l'ordre 1234567890, le score est affiche. Plus le score est bas, mieux c'est.
Allez, un exemple:
machine => 1234097856
entree 2 [EXE] -> machine => 1234097865
entree 6 [EXE] -> machine => 1234568790
entree 4 [EXE] -> machine => 1234560978
entree 2 [EXE] -> machine => 1234560987
entree 4 [EXE] -> machine => 5 (nb essais).
Pour permutter le 1, utiliser le nombre 10.
Attention, quand le nombre commence par 0, il ne sera pas affiche.

A ce jour, seule la TI-57 (manque de place) n'a pas son programme. Il serait cependant peut-etre possible en supprimant le "melange aleatoire" (pas 1 a 39) par la machine et en entrant le nombre melange soi-meme.

Il est aussi possible de "complexifier" le programme en utilisant des rotations ou autres en plus des echanges.

A vos machines...

Edit : Titre du fil
Dernière édition par cgh le 13 avr. 2013 20:12, édité 2 fois.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1383
Inscription : 27 oct. 2010 20:46

Re: Misez P'tit Optimisez N°44 : Le jeu d'Inversion

Message par Gilles59 » 13 avr. 2013 13:51

Bon et bien çà, j'ai en stock :D

http://www.ledudu.com/casio602p/kibur.htm

j'aime beaucoup ce jeu ...
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 451
Inscription : 13 janv. 2013 20:44
Localisation : Marseille-est

Re: Misez P'tit Optimisez N°44 : Le jeu d'Inversion

Message par babaorhum » 13 avr. 2013 13:57

C'est une nouvelle idée de lancer un pgm pour une machine et de l'adapter à toutes nos bécanes ?
... C'est plus un "MPO" mais plutôt un "pot commun" non ?

En tout cas j'adhère à cette super idée, tout un tas d'octets à adapter nous attend ... (mais il faudra un peu plus de temps que pour un MPO)

Et commencer par le Kibur, bonne idée aussi ! ... Jeu super sympa c'est vrai !
BaBaoRhum
HP J728,200LX,1000CX,75C,71B, 48GX,42s,41CX,35s,32E,32Sii,28S,22s,21,16C,11C,12Cp
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74&92 ; Canon X-07 ; Panasonic HHC RL-H1400 ; TANDY EC-4026

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1383
Inscription : 27 oct. 2010 20:46

Re: Misez P'tit Optimisez N°44 : Le jeu d'Inversion

Message par Gilles59 » 13 avr. 2013 15:07

"... C'est plus un "MPO" mais plutôt un "pot commun" non ?"

En effet... Peut être qu'il faudrait 2 rubriques... Je n'ai pas d'avis tranché
D'un autre coté, j'aime bien l'idée d'une seule 'rubrique' qui alterne des sujets plus ou moins complexe, même si cela déborde donc l'idée des MPO ou des 'deuxlignes' d'Hebdogiciel.
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Re: Misez P'tit Optimisez N°44 : Le jeu d'Inversion

Message par Paul Tergeist » 13 avr. 2013 16:24

Gilles59 a écrit :"... C'est plus un "MPO" mais plutôt un "pot commun" non ?"

En effet... Peut être qu'il faudrait 2 rubriques... Je n'ai pas d'avis tranché
D'un autre coté, j'aime bien l'idée d'une seule 'rubrique' qui alterne des sujets plus ou moins complexe, même si cela déborde donc l'idée des MPO ou des 'deuxlignes' d'Hebdogiciel.
+1/2 et +1/2
Je suis également divisé entre les deux idées.

Avatar de l’utilisateur
Hobiecat
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3334
Inscription : 06 sept. 2011 14:57
Localisation : Normandie

Re: Misez P'tit Optimisez N°44 : Le jeu d'Inversion

Message par Hobiecat » 13 avr. 2013 16:43

Gilles59 a écrit :"... C'est plus un "MPO" mais plutôt un "pot commun" non ?"

En effet... Peut être qu'il faudrait 2 rubriques... Je n'ai pas d'avis tranché
D'un autre coté, j'aime bien l'idée d'une seule 'rubrique' qui alterne des sujets plus ou moins complexe, même si cela déborde donc l'idée des MPO ou des 'deuxlignes' d'Hebdogiciel.
J'avais aussi lancé l'idée de scinder les MPOs "courts" et "longs" dans le MPO 42, mais on perdrait alors le bénéfice de l'index, et surtout, dans tous les cas, c'est de la programmation.

Est-ce qu'on ne pourrait pas tout simplement indiquer dans le titre s'il s'agit d'un MPO orienté "optimisation" ou "programmation" : on aurait des MPOO et des MPOP ! :mrgreen:

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2222
Inscription : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Un pot commun a toutes les machines 1 : Le jeu d'Inversion

Message par cgh » 13 avr. 2013 20:10

Hobiecat a écrit :
Gilles59 a écrit :"... C'est plus un "MPO" mais plutôt un "pot commun" non ?"

En effet... Peut être qu'il faudrait 2 rubriques... Je n'ai pas d'avis tranché
D'un autre coté, j'aime bien l'idée d'une seule 'rubrique' qui alterne des sujets plus ou moins complexe, même si cela déborde donc l'idée des MPO ou des 'deuxlignes' d'Hebdogiciel.
J'avais aussi lancé l'idée de scinder les MPOs "courts" et "longs" dans le MPO 42, mais on perdrait alors le bénéfice de l'index, et surtout, dans tous les cas, c'est de la programmation.

Est-ce qu'on ne pourrait pas tout simplement indiquer dans le titre s'il s'agit d'un MPO orienté "optimisation" ou "programmation" : on aurait des MPOO et des MPOP ! :mrgreen:
Oui. J'ai un peu hesite entre le "MPO" et "Le Pot commun". Donc "sous la pression" (mais pas la 1664), j'ai decide de changer le titre: "Un pot commun a toutes les machines".
Merci pour votre enthousiasme :-D Et les vieilles ancetres sont toujours les bienvenues ;-) :slime:
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2222
Inscription : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par cgh » 13 avr. 2013 20:22

Le code pour la TI-58/59

Code : Tout sélectionner

000	   76       11	  Lbl A
002	   01         	  1
003	   02         	  2
004	   03         	  3
005	   04         	  4
006	   05         	  5
007	   06         	  6
008	   07         	  7
009	   08         	  8
010	   09         	  9
011	   00         	  0
012	   42       01	  STO 01
014	   42       05	  STO 05
016	   00         	  0
017	   32         	  x<>t
018	   43       09	  RCL 09
020	22 67       35	  INV x=t 1/x
023	   73       01	  RCL Ind 01
025	   91         	  R/S
026	   42       09	  STO 09
028	   76       35	  Lbl 1/x
030	   36       15	  Pgm 15
032	   71       88	  SBR D.MS
034	   65         	  *
035	   02         	  2
036	   00         	  0
037	   85         	  +
038	   09         	  9
039	   95         	  =
040	   59         	  Int
041	   42       04	  STO 04
043	   76       32	  Lbl x<>t
045	   43       04	  RCL 04
047	   66         	  Pause
048	   36       15	  Pgm 15
050	   71       88	  SBR D.MS
052	   65         	  *
053	   09         	  9
054	   85         	  +
055	   02         	  2
056	   95         	  =
057	   59         	  Int
058	   71       71	  SBR SBR
060	   97 04    32	  Dsz 04 x<>t
063	   00         	  0
064	   42       04	  STO 04
066	   76       12	  Lbl B
068	   43       01	  RCL 01
070	   91         	  R/S
071	   71       71	  SBR SBR
073	   69       24	  Op 24
075	   43       05	  RCL 05
077	   32         	  x<>t
078	   43       01	  RCL 01
080	22 67       12	  INV x=t B
083	   43       04	  RCL 04
085	   73       05	  RCL Ind 05
087	   91         	  R/S
088	   61       11	  GTO A
090	   76       71	  Lbl SBR
092	   42       03	  STO 03
094	   71       45	  SBR y^x
096	22 49       01	  INV Prd 01
099	   43       01	  RCL 01
101	22 59         	  INV Int
103	   42       02	  STO 02
105	22 44       01	  INV SUM 01
108	   43       03	  RCL 03
110	   71       45	  SBR y^x
112	   49       02	  Prd 02
114	   76       65	  Lbl *
116	   01         	  1
117	   00         	  0
118	   49       01	  Prd 01
120	22 49       02	  INV Prd 02
123	   43       02	  RCL 02
125	22 59         	  INV Int
127	   65         	  *
128	   01         	  1
129	   00         	  0
130	   95         	  =
131	   44       01	  SUM 01
133	   43       02	  RCL 02
135	   59         	  Int
136	   42       02	  STO 02
138	   97 03    65	  Dsz 03 *
141	   92         	  INV SBR
142	   76       45	  Lbl y^x
144	22 28         	  INV log
146	   85         	  +
147	   93         	  .
148	   05         	  5
149	   95         	  =
150	   59         	  Int
151	   92         	  INV SBR
[A] pour lancer le programme. Sur la TI-58/59, j'utilise la sous programme SBR D.MS du prgm 15 de la Master Librairie pour la generation de nombres aleatoires.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque

Avatar de l’utilisateur
babaorhum
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 451
Inscription : 13 janv. 2013 20:44
Localisation : Marseille-est

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par babaorhum » 14 avr. 2013 08:45

ah oui !
c'est nettement mieux que celui de l'OP n°4 qui tenait en 235 pas ( je viens d'aller le revoir) !

le n°23 précise d'ailleurs les versions :
-HP41 dans n°3
-TI58/59 dans n°4
-TI57 dans n°8 (!!!!)
-702P dans n°10
-PC1211 dans n°13
-PC1500 dans n°16
-PB100 dans n°23

... ca fait pas mal (bon investissement pour l'OP ce petit jeu) !

Il manquait effectivement les 502 et 602P. bien vu cgh :mrgreen:

et pas de version RPL ni TI-basic ?
BaBaoRhum
HP J728,200LX,1000CX,75C,71B, 48GX,42s,41CX,35s,32E,32Sii,28S,22s,21,16C,11C,12Cp
Sharp PC- E500,1600,1500,1350,1261,1245
Casio FX-502P,602p,850P,3900P,4000P
TI-74&92 ; Canon X-07 ; Panasonic HHC RL-H1400 ; TANDY EC-4026

cgh
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2222
Inscription : 30 août 2011 12:23
Localisation : Vous êtes ici -> .

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par cgh » 14 avr. 2013 09:13

babaorhum a écrit :ah oui !
c'est nettement mieux que celui de l'OP n°4 qui tenait en 235 pas ( je viens d'aller le revoir) !

le n°23 précise d'ailleurs les versions :
-HP41 dans n°3
-TI58/59 dans n°4
-TI57 dans n°8 (!!!!)
-702P dans n°10
-PC1211 dans n°13
-PC1500 dans n°16
-PB100 dans n°23

... ca fait pas mal (bon investissement pour l'OP ce petit jeu) !

Il manquait effectivement les 502 et 602P. bien vu cgh :mrgreen:

et pas de version RPL ni TI-basic ?
Attention, mon jeu est plus simple que Kibur. Les permutations des chiffres ne sont pas identiques. Et la position des chiffres est inversee. Mon programme est vraiment reecrit apres avoir vu "tourner" le Jeu d'Inversion sur PC-1211, Il est aussi plus vieux que l'OP : ma premiere version pour TI-58/59 doit dater des vacances de Noel 1980.
L'avantage de sa simplicite c'est que j'ai pu le "porter" sur pas mal de pocket programmables (sauf la TI-57). C'est tres bien pour evaluer une nouvelle machine.

Les TI-Basic et surtout RPL n'existaient pas encore a l'epoque. Enfin presque, le CC-40 allait arriver 2 ans plus tard, mais je n'ai jamais vu un programme pour ce pocket dans les OI / OP.
Dernière édition par cgh le 14 avr. 2013 21:06, édité 1 fois.
Il y a ceux qui voient les choses telles qu'elles sont et se demandent pourquoi, et il y a ceux qui imaginent les choses telles qu'elles pourraient être et se disent... pourquoi pas? - George Bernard Shaw
J'adore parler de rien, c'est le seul domaine où j'ai de vagues connaissances ! - Oscar Wilde
Ce n'est pas parce que les choses sont difficiles que nous n'osons pas. C'est parce que nous n'osons pas que les choses sont difficiles. - Sénèque

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par Paul Tergeist » 14 avr. 2013 13:42

J'avais fait une version pour HP71 sur mon chti site.
Voici le lien : Kibur pour HP-71B

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1383
Inscription : 27 oct. 2010 20:46

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par Gilles59 » 15 avr. 2013 09:25

Intéressant ce topic

Il semble qu'on utilise pas tous les mêmes règles de permutation dans nos prog respectifs...
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par Paul Tergeist » 15 avr. 2013 09:33

Il y a peut-être une règle différente pour "Kibur" et "Inversion" ?

Gilles59
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1383
Inscription : 27 oct. 2010 20:46

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par Gilles59 » 15 avr. 2013 10:21

Oui la règle est différente...

Je me suis aperçu d'un bug de recopie dans mon listing.

Version corrigée et testée ici :

Code : Tout sélectionner

A noter que dans la variante proposée, on ne joue pas avec les lettres de A à J mais avec les chiffres de 0 à 9; Mais le principe du jeu est strictement similaire. Les temps de calcul de la 602P sont quasi instantanés. Ce casse-tête est fort intéressant... A vous de relever le défi !

P0 : Démarrer une partie avec un mélange aléatoire des chiffres
P1 : Essayer de résoudre une combinaison spécifique. Ex : 9876543210 [P1]
P2 :  Permet de rejouer la même combinaison (pour résoudre en moins de coup par exemple...)

*******************
[P0] 79 pas { Kibur -> Mélange aléatoire à partir de "0123456789"}

"Kibur" AC GSBP7 1 +/- Min14 { Le niveau correspond au nombre }
"Niveau?" HLT Min12 1 M-12 { de permutations aléatoires }

LBL1
MR12 / 2 = FRAC "->" x=0 "<-" { Petite animation pendant }
RAN# x 9 + 1 = GSBP8 { le mélange de Kibur }
1 M-12 MR12 x>=0 GOTO1
9 Min10 0 Min19 "->"

LBL2
IND MR10 x ( 9 - MR10 ) 10^x = M+19 { Génére en MR19 un nombre égal à la }
1 M-10 MR10 ";." { concaténation des chiffres de MR00 à MR09 }
x>=0 GOTO2

GSBP5 { C'est parti !}

[P1] 11 pas { Kibin -> Permet d'entrer une combinaison spécifique}

"Kibin?" HLT Min19
GSBP6

[P2] 10 Pas { Kibis -> Permet de rejouer (bis) la même combinaison }
"Kibis" PAUSE Mr19
GSBP6

[P5] 70 pas { Le joueur joue ... }

LBL0
1 M+14 GSBP9 ";" { Affiche la combinaison actuelle}
10 Min10     { *** et non pas 10 Min00 comme erreur sur le site *** }

LBL5
1 M-10 MR10 x=0 GOTO6 { -> C'est gagné !}
IND MR10 - MR10 =
x=0 GOTO5 { Chiffre en MR10 bien placé, au suivant }

1 +/- MinF { Position non gagnante, on continue }

LBL4
";" HLT x=F GOTO4 ";"
GSBP8
GOTO0

LBL6 { C'est gagné !}
2 Min10

LBL7
GSBP9
1 M-10 MR10 x>=0 GOTO7
"En AR14 coup"
2 M-14 MR14 x>=0 ";s"
";"

[P6] 37 pas {Dépose chaque chiffre de MR18 dans les mémoires 00 à 09}

"->"
Min18 1 +/- Min14 9 Min10

LBL0
MR18 / 10 = - FRAC Min17 = Min18
MR17 x 10 = IND Min10 1 M-10 ";."
MR10 x>=0 GOTO0
GSBP5

[P7] 11 pas { Génére la combinaion initiale -> "0123456789"}

9 Min10

LBL0
MR10 IND Min10 { 0 Min00 1 Min01 2 Min02 ... 9 Min09}
1 M-10
MR10 >=0 GOTO0

[P8] 30 pas { Effectue la combinaison, le coup joué est dans le registre x}

Min10 Min11
MR00 IND X<->M10 Min00
1 M-10 M+11
MR10 x>=0 GOTO1 { Cas particulier quand on joue en 0 }
9 Min10

LBL1
9 - MR11 = x>=0 GOTO2 { Cas particulier quand on joue en 9}
0 Min11

LBL2
IND MR10 IND X<->M11 IND Min10

[P9] 26 pas { Affiche la combinaison actuelle}

"->¤¤¤¤¤¤¤¤¤¤" { 10 carrés noirs -> 'INV 1'}
"->AR00 AR01 AR02 AR03 AR04 AR05 AR06 AR07 AR08 AR09"
Ce programme est écrit pour être agréable à utiliser + animations plutôt qu'être court
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49G+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+

Avatar de l’utilisateur
Paul Tergeist
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 2417
Inscription : 15 oct. 2007 15:50
Localisation : 3ème planète après le soleil

Re: Un pot commun a toutes les machines n°1 : Le jeu d'Inver

Message par Paul Tergeist » 15 avr. 2013 15:45

Est-ce que tu as prévu d'afficher un 0 en premier ?
Ou peut-être en travaillant avec des décimaux ? 0.123456789

Répondre

Revenir vers « Tous les Pockets »