Forum

Andromede

Bonsoir,
Le forum n'a pas été accessible depuis plusieurs jours

Est-il en reconstruction ?
Peux-tu m'expliquer la ligne 9 C.Ret ? Je n'ai pas compris où est-ce qu'elle se redirige

En tout cas, l'adaptation du scénario est réussie

Andromede

Whaoo!! Très bien joué C.Ret

Excellente idée

Andromede

badaze a raison à propos de la nécessité de réinitialiser le générateur de nombres aléatoires. En effet, à chaque allumage du PC 1500, c'est toujours la même séquence de nombres aléatoires qui revient (autrement dit, il s'agit de la même semence), du coup le jeu devient prévisible. Ceci peut-être très facilement vérifié en mettant la ligne 40 dans une boucle FOR - NEXT . Sur le PC 1500, c'est effectivement la fonction RANDOM qui règle ce problème en lançant une nouvelle semence à chaque redémarrage du Pocket, ce qui donne de meilleurs résultats. J'ai donc modifié la ligne 15 comme suit :
15: RANDOM
La partie redémarre à partir de la ligne 20 car il n'est pas nécessaire de générer une nouvelle semence à chaque nouvelle partie. Par contre, au redémarrage, si.
Je me demandais s'il ne serait pas amusant de modifier le BEEP qui signale la partie gagnée (ligne 310: BEEP 4) par une petite musique du genre STAR WARS ou autre

Code : Tout sélectionner

10:REM "NOMBRE SECRET"
15:RANDOM
20: S=0
30: PAUSE "UNE SECONDE...!"
35: REM "GENERATION DU NOMBRE SECRET ENTRE 0 ET 99"
40: M=RND 99
105: REM "SAISIR UN INTERVALLE"
110: INPUT "BORNE INFERIEURE  (1-99)? ";B
120: INPUT "BORNE SUPERIEURE  (1-99)? ";H
130: S=S+1
135: REM "TEST DES DEUX BORNES SAISIES"
140: IF B=H THEN 270
150:IF B>H THEN PAUSE "BORNE INF > BORNE SUP !": GOTO 110
160: IF H<M THEN 210
170: IF B>M THEN 240
180: BEEP 2
190: PAUSE "BIEN VISE !"
200: GOTO 110
210: BEEP 1
220: PAUSE "TROP BAS !"
230: GOTO 110
240: BEEP 1
250: PAUSE "TROP HAUT !"
260: GOTO 110
270: IF H=M THEN 310
280: BEEP 1
290: PAUSE "RATE ! ESSAYEZ ENCORE..."
300: GOTO 110
310: BEEP 4
320: PAUSE "ESSAIS = ";S
330: PRINT "BRAVO ! ON RECOMMANCE ?"
340: GOTO 20

Andromede

Bonsoir Joscelyn,
Oui, ça serait très amusant de le faire. Je pense qu'il y aura toujours des personnes et des passionnés comme nous qui en profiteraient. Sur ce bout de programme, j'ai pu remplacé sept(07) lignes de code qui étaient nécessaires pour générer un nombre aléatoire par une seule ligne (la ligne 40). Je ne possède pas de Sharp PC 1211 mais je suppose qu'il ne possède pas de fonction Randomize (RND) dans son BASIC comme le Sharp PC 1500.
J'ai trouvé qu'il manquait l'indication que les bornes inférieure et supérieure devraient être fixées entre 0 et 100 (entre 1 et 99 inclus), alors j'ai modifié les lignes 110 et 120 comme suit :
110: INPUT "BORNE INFERIEURE (1-99)? ";B
120: INPUT "BORNE SUPERIEURE (1-99)? ";H
De plus, j'ai modifié la ligne 150 pour informer l'utilisateur que la borne inférieure saisie est plus grande que la borne supérieure, ce qui est incorrect.
150:IF B>H THEN PAUSE "BORNE INF > BORNE SUP !": GOTO 110
Côté exécution du programme, R + ENTRE ne répond pas comme dans le cas du PC 1211. Il faut obligatoirement saisir RUN + ENTRE

Code : Tout sélectionner

10:REM "NOMBRE SECRET"
15:REM "REINITIALISATION DU SCORE"
20: S=0
30: PAUSE "UNE SECONDE...!"
35: REM "GENERATION DU NOMBRE SECRET ENTRE 0 ET 99"
40: M=RND 99
105: REM "SAISIR UN INTERVALLE"
110: INPUT "BORNE INFERIEURE  (1-99)? ";B
120: INPUT "BORNE SUPERIEURE  (1-99)? ";H
130: S=S+1
135: REM "TEST DES DEUX BORNES SAISIES"
140: IF B=H THEN 270
150:IF B>H THEN PAUSE "BORNE INF > BORNE SUP !": GOTO 110
160: IF H<M THEN 210
170: IF B>M THEN 240
180: BEEP 2
190: PAUSE "BIEN VISE !"
200: GOTO 110
210: BEEP 1
220: PAUSE "TROP BAS !"
230: GOTO 110
240: BEEP 1
250: PAUSE "TROP HAUT !"
260: GOTO 110
270: IF H=M THEN 310
280: BEEP 1
290: PAUSE "RATE ! ESSAYEZ ENCORE..."
300: GOTO 110
310: BEEP 4
320: PAUSE "ESSAIS = ";S
330: PRINT "BRAVO ! ON RECOMMANCE ?"
340: GOTO 20

Andromede

Je suis très content d'avoir rajouté à ma collection, un très beau Sharp PC 1500. J'ai légèrement adapté le code du Sharp PC 1211 publié dans le magazine Pocket Computer n° 1 page 46 pour le jeu du nombre secret. Dès fois, on se demande est-ce que s'est intéressant de publier à chaque fois ce que l'on fait avec nos Pocket computer. Mais au final, je me dis que l'on s'amuse à le faire et n'est-ce pas la raison essentielle de notre présence dans cet espace d'échanges ?

Code : Tout sélectionner

10:REM "NOMBRE SECRET"
15:REM "REINITIALISATION DU SCORE"
20: S=0
30: PAUSE "UNE SECONDE...!"
35: REM "GENERATION DU NOMBRE SECRET ENTRE 0 ET 99"
40: M=RND 99
105: REM "SAISIR UN INTERVALLE"
110: INPUT"BORNE INFERIEURE ?";B
120: INPUT"BORNE SUPERIEURE ?";H
130: S=S+1
135: REM "TEST DES DEUX BORNES SAISIES"
140: IF B=H THEN 270
150:IF B>H THEN 110
160: IF H<M THEN 210
170: IF B>M THEN 240
180: BEEP 2
190: PAUSE "BIEN VISE !"
200: GOTO 110
210: BEEP 1
220: PAUSE "TROP BAS !"
230: GOTO 110
240: BEEP 1
250: PAUSE "TROP HAUT !"
260: GOTO 110
270: IF H=M THEN 310
280: BEEP 1
290: PAUSE "RATE ! ESSAYEZ ENCORE..."
300: GOTO 110
310: BEEP 4
320: PAUSE "ESSAIS = ";S
330: PRINT "BRAVO ! ON RECOMMANCE ?"
340: GOTO 20

Andromede

Bonjour à toutes et à tous
Je cherche un lien pour télécharger le manuel de programmation de la TI-66 en langue française

Merci

Andromede

Il y a un article intéressant "Le jeu de NIM à une rangée" dans le supplément à science & vie n° 763
https://www.abandonware-magazines.org/a ... &album=oui
Pages 43, 44, 45 et 46

Andromede

C.Ret a écrit : ↑10 avr. 2022 18:50 Pourquoi autant de label pour effectuer le calcul du nombre d'allumette du tirage alors qu'il existe une relation arithmétique:
T = 3 - ( Nb MOD 4 )

Merci C.Ret

Effectivement, je n'ai pas pensé à cette relation arithmétique. Je ne l'ai pas déduite de ton premier tableau explicatif qui m'a bien servi.
J'en prends note pour ma 3ème version de code

Andromede

Bonjour,
Désolé de vous faire revenir un peu en arrière. Après avoir lu et assimilé vos precieux commentaires relatifs au jeu des allumettes dans sa version classique, j'en ai profité pour refaire mon code d'une façon plus structurée et lisible par rapport à ma première version et ce de sorte à bien distinguer clairement la logique du jeu selon toutes vos explications. Cela a donné le code suivant :

Seul inconvénient, le nombre de pas a augmenté.

Code : Tout sélectionner

Le Jeu des Allumettes
Version 2.0

00	LBL 1		#-------------------------------------------------------------
01	STO 1		#  Calcul de la partie entière de N/4
02	/		#  avec sauvegarde du résultat dans le registre R2
03	4		#  N étant le nombre initial d'allumettes
04	=		#  mais qui devient le nombre d'allumettes	
05	INTG		#  restant lors de l'exécution du programme
06	STO 2		#-------------------------------------------------------------  

07 	RCL 1		#------------------------------------------------------------- 
08	-		#  Calcul du reste de la division de N
09	RCL 2		#  par 4 (N%4) et sauvegarde du 
10	X		#  résultat dans le registre R3
11	4		#  
12	=		#
13	STO 3		#-------------------------------------------------------------
14	X<>T		#-------------------------------------------------------------
15	3		#  Si le reste de la division est égal à 3 alors 
16	X=T		#  se brancher sur l'étiquette 2 (tirer 02 allumettes)
17 	GTO 2		#-------------------------------------------------------------
18	2		#-------------------------------------------------------------
19	X=T		#  Si le reste de la division est égal à 2 alors
20	GTO 3		#  se brancher sur l'étiquette 3 (tirer 01 allumette)
21	1		#-------------------------------------------------------------	
22	X=T		#  Si le reste de la division est égal à 1 alors
23	GTO 4		# se brancher sur l'étiquette 4 (tirer 03 allumettes)
24	0		#-------------------------------------------------------------
25	X=T		# Si le reste de la division est égal à 0 alors
26	GTO 4		# se brancher sur l'étiquette 4 (tirer 03 allumettes)
27	LBL 5		#-------------------------------------------------------------
28	PAUSE		#
29 	PAUSE		#
30	RCL 1		#  Calcul du nombre d'allumettes restant
31	-		#  et sauvegarde du résultat
32	RCL 4		#  dans le registre R1
33	=		#
34	STO 1		#------------------------------------------------------------
35	X<>T		#------------------------------------------------------------
36	1		#  Si le reste des allumettes 
37	X=T		# est égal à 1 alors se brancher sur l'étiquette 6
38	GTO 6		#  qui n'existe pas pour quitter le programme (ERROR)
39	RCL 1		#  en l'absence du clignotement de la TI 57
40	-		#------------------------------------------------------------		
41	R/S		#------------------------------------------------------------
42 	=		#  Calcul du nouveau reste d'allumettes à partir 
43	PAUSE		#  de la nouvelle valeur entrée par le joueur
44	PAUSE		#  et se brancher sur l'étiquette 1 pour donner la main à la machine
45	GTO 1		#------------------------------------------------------------	
46	LBL 2		#-------------------------------------------------------------
47	2		#  Tirer 02 allumettes et sauvegarder
48	STO 4		# ce nombre dans R3 puis se brancher sur l'étiquette 5
49	GTO 5		#-------------------------------------------------------------
50	LBL 3		#-------------------------------------------------------------
51	1		# Tirer 01 allumette et sauvegarder
52	STO 4		#  ce nombre dans R3 puis se brancher sur l'étiquette 5
53	GTO 5		#-------------------------------------------------------------
54	LBL 4		#-------------------------------------------------------------	
55	3		# Tirer 03 allumettes et sauvegarder 
56	STO 4		# ce nombre dans R3 puis se brancher sur l'étiquette 5
57 	GTO 5		#-------------------------------------------------------------

Exemple d'utilisation du programme
2nd CM
INV X<>T
RST
20 R/S (Nombre initial d'allumettes)
3 (La machine tire 3 allumettes)
17 (La machine affiche qu'il reste 17 allumettes et attend le tirage du joueur)
2 (A mon tour, je tire 2 allumettes)
15 (La machine affiche le nombre restant d'allumettes)
2 (La machine tire à son tour 2 allumettes)
13 (La machine affiche le nombre restant d'allumettes et attend le tirage du joueur)
.... et ainsi de suite jusqu'à la fin de la partie qui envoie le message ERROR lorsqu'il reste 1 allumette à jouer car le programme pointe sur l'étiquette 6 qui n'existe pas dans le programme. Dommage, on ne peut pas faire de clignotement comme sur une TI-57

Andromede

Bonjour,
Vraiment très instructif

. J'étudie actuellement chacune de vos explications et de façon minutieuse pour pouvoir les assimiler correctement

Andromede

LE JEU DES ALLUMETTES
Un jeu très connu et qui a été repris sur plusieurs ordinateurs de poche. J'ai adapté le jeu sur la TI-62 et cela fonctionne très bien sans pour autant en comprendre tout le raisonnement de l'auteur. Je souhaite savoir quel a été le principe général utilisé pour arriver à ce code car je ne m'y retrouve point ?

Code : Tout sélectionner

---------------------------------------------
L'Ordinateur Individuel
N° 19 Juillet - Août 1980 Page 62
Le jeu des allumettes sur TI 57
Adapté sur TI-62 Galaxy
Version 1.0
---------------------------------------------
00	STO 1
01	+
02	3
03	LBL 1
04	-
05	4
06	=
07	X=T
08	GTO 4
09	X>T
10	GTO 1
11	X<=T
12	GTO 2
13	LBL 4
14	STO 2
15	1
16	ST+ 0
17	RCL 0
18 	-
19	(
20	RCL 0
21	/
22	3
23	)
24	INTG
25	*
26	3
27	+
28	1
29	=
30	ST+ 2
31	RCL 2
32	GTO 3
33	LBL 2
34	+
35	4
36	=
37	LBL 3
38	PAUSE
39	PAUSE
40	ST- 1
41 	RCL 1
42	-
43	R/S
44	=
45	PAUSE
46	PAUSE
47	X Différent T
48	RST
49	GTO 8

Andromede

Bonsoir,
Voici la version complète du code calculant, pour une suite de Syracuse :
1. Le temps de vol
2. Le temps de vol en altitude
3. L'altitude maximale

Code : Tout sélectionner

--------------------------------------------
Ordinateur de poche
N°6 Mai-Juin 82
Page 76
Conjecture Tchèque
TI-57 réadapté sur TI-62 GALAXY
Version finale
--------------------------------------------
00    LBL 1
01    1
02    ST+ 2
03    0
04    x<>t
05    RCL 0
06    /
07    2
08    =
09    STO 4
10    FRAC
11    x diffèrent t
12    GTO 2
13    RCL 4
14    SBR 6
15    1
16    x<>t
17    RCL 0
18    x=t
19    GTO 3
20    GTO 1
21    LBL 2
22    RCL 0
23    *
24    3
25    +
26    1
27    =
28    SBR 6
29    GTO 1
30    LBL 3
31    RCL 2
32    R/S
33    RCL 5
34    -
35    1
36    =
37    R/S
38    RCL 6
39    R/S
40    LBL 5
41    1
42    ST+ 5
43    RCL 1
44    x<>t
45    RCL 0
46    x<t
47    STO 3
48    RTN
49    LBL 6
50    STO 0
51    PAUSE 
52    RCL 6
53    x<>t
54    RCL 0
55    x>t
56    STO 6
57    0
58    x<>t
59    RCL 3
60    x=t
61    SBR 5
62    RTN

--------------------------------------------------
Initialisation des registres
2nd STO (CM)
ON/C
ON/C
RST
X STO 0 (avec X le nombre de départ)
STO 1
R/S
--------------------------------------------------
Exemple
15 STO 0
STO 1
R/S
--------------------------------------------------
Résultats
Le temps de vol : 17
R/S
Le temps de vol en altitude : 10
R/S
L'altitude maximale : 160

Andromede

Bonjour,
J'ai complété le programme précédent dans sa version 2.0 afin de prendre également en charge l'affichage du temps de vol en altitude

Code : Tout sélectionner

--------------------------------------------
Ordinateur de poche
N°6 Mai-Juin 82
Page 76
Conjecture Tchèque
TI-57 réadapté sur TI-62 GALAXY
Version 3.0
--------------------------------------------
00	STO 0
01	STO 1
02	0
03	STO 2
04	0		#----- Initialisation du Registre R3 destiné à
05	STO 3		#----- à recevoir la valeur du temps de vol en altitude
06	LBL 1
07	1
08	ST+ 2
09	0
10	x<>t
11	RCL 0
12	/
13	2
14	=
15	STO 4
16	FRAC
17	x différent de t
18	GTO 2
19	RCL 4
20	STO 0
21	PAUSE
22	0		#------------POUR a PAIR-------------------------------
23	x<>t		#  Tant que le Registre R3 n'est pas vide	
24	RCL 3		#  alors continuer à chercher 
25	x=t		#  le temps de vol en altitude
26	SBR 5		#------------------------------------------------------
27	1
28	x<>t
29	RCL 0
30	x=t
31	GTO 3
32	GTO 1
33	LBL 2
34	RCL 0
35	*
36	3
37	+
38	1
39	=
40	STO 0
41	PAUSE
42	0		#-----------POUR a IMPAIR------------------------------
43	x<>t		#  Tant que le Registre R3 n'est pas vide
44	RCL 3		#  alors continuer à chercher
45	x=t		#  le temps de vol en altitude
46	SBR 5		#------------------------------------------------------
47	GTO 1
48	LBL 3
49	RCL 1
50	R/S
51	RCL 2
52	R/S
53	RCL 3
54	R/S
55	LBL 5		#--------------------------------------------------#
56	RCL 1		#
57	x<>t		#   Sous-programme de recherche 
58	RCL 0		#   du temps de vol en altitude 
59	x<t		#   et sauvegarde de sa valeur 
60	STO 3		#   dans le registre R3
61 	RTN		#--------------------------------------------------#

Il reste encore à rechercher l'altitude maximale

Andromede

Bienvenue

Andromede

Bienvenue

Forum

156 résultats trouvés

Re: Sharp PC 1500

Re: Sharp PC 1500

Re: Sharp PC 1500

Re: Sharp PC 1500

Sharp PC 1500

Manuel TI-66

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: TI-62 Galaxy

Re: Présentation

Re: Bonjour,