Vos_derniers_programmes_?

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

Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Vos_derniers_programmes_?

Message par steste »

Salut,
...
Eclatez-vous a expliquer rapidement
vos derniers programmes sur pocket!
...
Du sang et de la douleur, tout ce que
demande le peuple, tout vos délires et
vos rêves, starting block prêt, partez...
...
...
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

Par exemple:

Lunar Landing:

Machine - PC 1212

Pas un classique - se débrouiller avec
une ligne logique:

TMP1 - FUE 1 - BAT 1 - OXY 1 - PRO 1
POUX - POUY - LAND

Trois phases (sauf erreur) - voyage, viser la
lune - approche - Atterrissage - OUFF!


Trouvé le programme au bol, dur a lire, manque de
lumière dans la chambre !

...
caloubugs
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 434
Enregistré le : 05 juin 2014 22:23
Localisation : Dans le Gâtinais avec les abeilles, près de Fontainebleau

Re: Vos_derniers_programmes_?

Message par caloubugs »

steste a écrit :Salut,
...
Eclatez-vous a expliquer rapidement
vos derniers programmes sur pocket!
...
Du sang et de la douleur, tout ce que
demande le peuple, tout vos délires et
vos rêves, starting block prêt, partez...
...
...
Après les SDWE, tu lances les sujets de la semaine ? :mrgreen:

Perso, en plein dans mes tests de tris (cf. fil de discussion en cours). En plus, y a Ben qui se retrouve impliqué, ça met la pression :oops:

Et sur la mise en place d'un programme résolvant (comme il peut d'ailleurs, puisqu'il n'existe pas d'algorithme en loi polynomiale) les problèmes de sommes de sous-ensembles (ça parait alambiqué comme ça, mais c'est super rigolo à voir tourner).

Ces deux sujets seront dans la gazette... C'est le meilleur moyen que j'ai trouvé pour me faire aller au bout des sujets 8)
RetroGeek, mais pas que...
HP : 15C, 41CV, 48GX, 71B, 75C Canon X-07 Sharp PC 1403H, PC1500A, PC1600, PC-G850V Texas : CC40, 66, 74, 95, 92 Casio : PB-700, PB-1000, Z-1GR Psion 5mx, mais pas que...
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6172
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge »

caloubugs a écrit :
steste a écrit :Salut,
...
Eclatez-vous a expliquer rapidement
vos derniers programmes sur pocket!
...
Du sang et de la douleur, tout ce que
demande le peuple, tout vos délires et
vos rêves, starting block prêt, partez...
...
...
Après les SDWE, tu lances les sujets de la semaine ? :mrgreen:
Oui, pas évident que tout le monde puisse participer avec la même énergie à cette nouvelle rubrique...
D'autant que réaliser un programme, en général, c'est prenant.
caloubugs a écrit :C'est le meilleur moyen que j'ai trouvé pour me faire aller au bout des sujets 8)
Tu as tout à fait raison, c'est d'ailleurs ce moyen qui me permet (et permettra) d'aller au bout de mon jeu de cartes. Jeu de cartes où je patine un max à l'heure actuelle à cause d'un sprite (lutin) qui ne fonctionne plus ("invalid argument" : -2, ce qui signifie que j'aurais des motifs de tailles différentes, ce qui n'a jamais été le cas...) alors que je viens de changer de machine en passant d'un 3a 2Mo à un 3a 512 Ko avec les images des sprites sur SSD. Le plus étonnant est qu'en remettant le même chemin vers le disque interne (avec donc les motifs des lutins sur ce même disque), ça ne fonctionne pas davantage.
Je vais maintenant essayer avec un MX... parfois, la tentative de résolution des bogues ressemble à de la magie noire.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67
__: A L I E N .

« Boris », c'était juste Maurice enrhumé.
caloubugs
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 434
Enregistré le : 05 juin 2014 22:23
Localisation : Dans le Gâtinais avec les abeilles, près de Fontainebleau

Re: Vos_derniers_programmes_?

Message par caloubugs »

Marge a écrit :Tu as tout à fait raison, c'est d'ailleurs ce moyen qui me permet (et permettra) d'aller au bout de mon jeu de cartes.
C'est d'ailleurs un vrai feuilleton à suspense... :) Tu en feras un fichier OPO ? (histoire qu'on le teste...)
RetroGeek, mais pas que...
HP : 15C, 41CV, 48GX, 71B, 75C Canon X-07 Sharp PC 1403H, PC1500A, PC1600, PC-G850V Texas : CC40, 66, 74, 95, 92 Casio : PB-700, PB-1000, Z-1GR Psion 5mx, mais pas que...
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: Vos_derniers_programmes_?

Message par Ben »

Quelques programmes de tris sur quelques machines :-)
caloubugs a écrit :En plus, y a Ben qui se retrouve impliqué, ça met la pression
Mais pas du tout! :oops:
Avatar du membre
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 6172
Enregistré le : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: Vos_derniers_programmes_?

Message par Marge »

caloubugs a écrit :
Marge a écrit :Tu as tout à fait raison, c'est d'ailleurs ce moyen qui me permet (et permettra) d'aller au bout de mon jeu de cartes.
C'est d'ailleurs un vrai feuilleton à suspense... :) Tu en feras un fichier OPO ? (histoire qu'on le teste...)
Les OPO sont des modules utilisables ainsi dans n'importe quelle machine (une routine de tri est justement un bon exemple de module que plusieurs applications peuvent se partager) ; mon jeu sera une application (OPA) avec l'icône qui va bien (et qui inclut déjà 3 modules).

Cela dit, c'est loin d'être prêt. :mrgreen: Alors pour le test, un peu d'patience, M'sieurs Dames. :D
3 hommes, 3 demis, un 3a... Magnéto, Serge !

Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67
__: A L I E N .

« Boris », c'était juste Maurice enrhumé.
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

Salut, moi, je choisis une machine,
après je cherche un programme ou jeu
qui convient au pocket en question, je choisis
la machine selon mes aspirations du moment
et un programme adapté au mieux...
(avec un nette préférence aux machines une ligne)
...
ctou
...
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8384
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: Vos_derniers_programmes_?

Message par badaze »

Un de mes derniers programmes.

FACT:input N:1->X:lbl 0:N*X->X:N-1->N:if N > 0:goto 0:disp X

Devinez pour quelle machine.
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

Bonsoir
Mon dernier programme achevé, j'en ai un ou deux encore en cours,
est sur Hp-41cx.
J'ai toujours pensé qu'il était dommage de n'avoir qu'un seul registre Alpha.
J'ai donc entrepris de remédier au moins en partie à ce manque grâce à la x-mémoire.
Mon programme offre donc :
SIZA qui créer un fichier de x registres Alpha
ASTOA qui stocke le contenu du registre Alpha dans le registre Alpha n° x
ARCLA qui met dans le registre Alpha le contenu du registre Alpha n° x
A<>A qui échange le contenu du registre Alpha avec celui du registre Alpha n° x
CLRGA supprime ces registres.
Le n° du registre est donc à mettre dans x, il va de 1 à n, le registre 0 existe mais n'est
pas officiellement utilisable car il sert pour l'échange des registres, mais reste néanmoins disponible
en cas de besoin.
Le fichier nommé XALPHA devient le fichier en cours lors de l'appel de SIZA et doit le rester pour les autres fonctions.
Dans mon idée de base, il y avait aussi des tests entre le registre Alpha et les autres registres Alpha créés,
mais je ne sais pas si cela est faisable, je n'ai pas approfondi la chose.
Voilà.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

C'est long ?
...
C'est un sous-progamme a implémenter
chaque fois ?
...
mrci

...
Avatar du membre
spacemax
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 86
Enregistré le : 05 nov. 2011 12:45
Localisation : Alpes de Haute Provence

Re: Vos_derniers_programmes_?

Message par spacemax »

Hello

Moon buggy sur l'emulateur PocketEmul...Ca tournait pas trop mal mais le silicium et le metal du Canon X-07 l'on mal digéré. Alors, je l'ai porté sur un psoin LZ un peu plus véloce en attendant de me casser les dents sur le LM du Canon.
Je posterai le programme du psion dés que je recevevrai mon cable COMLINK...a condition que je sache m'en servir :mrgreen:
Don't forget the spirit of the game...

Canon X-07 / Casio fx-850P / TI74 / Casio fx-8500G / Psion 3 / Psion 3a / Psion II XP / Psion II Lz / Psion Revo / Fx-4000p / Dell Axim x50V / Spiga Sagem / Casio fx-3900p / Casio fc-200 / Sharp 1403
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: Vos_derniers_programmes_?

Message par gege »

Bonjour,
L'avant dernier programme que j'ai tapoté est ça :

Code : Tout sélectionner

#cas
racgauss(a,b,n) :=
LOCAL u,v;
√(a²-n*b²)►v;
(a-v)/2►u;(a+v)/2►v;
IF 0==(u MOD n) THEN u►b;v►u;b►v;END;
RETURN {√u,√(v/n)};
END;
#end
Je vous laisse deviner sur quelle machine ça tourne ;-)
Après je tape simplify((473-252*√17)²) puis racgauss(1303297,-238392,17) :D

Allez, quelques heures pour trouver à quoi "ça sert" (ok ça ne sert à rien, mais...).

Le dernier programme sur lequel je m'acharne répondra (peut-être) à la question :
"Je vous donne la partie fractionnaire de la racine carrée d'un entier. Trouvez cet entier"
Pas facile...

G.E.

EDIT : ce programme trouve c et d tels que (c+d*√n)² = (a+b*√n) quand on lui donne a, b et n.
En gros ça trouve une "racine carrée" dans l'ensemble des nombres du type (a+b*√n).
Pas-sion-nant ! :wink:
Modifié en dernier par gege le 30 nov. 2016 00:55, modifié 1 fois.
Avatar du membre
tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 845
Enregistré le : 06 oct. 2012 14:37

Re: Vos_derniers_programmes_?

Message par tyann »

Bonsoir
C'est long ?
...
C'est un sous-progamme a implémenter
chaque fois ?
...
mrci
Non pas trop, c'est à utiliser comme sous-programmes, il suffit de garder le programme en mémoire.
Voici le listing

Code : Tout sélectionner

01	LBL "SIZA"	   
02	"XALPHA"	       
03	1		            
04	+		             
05	STO Y		       
06	3,5		                
07	*		                
08	INT		                
09	1		                
10	+		                
11	CRFLAS		        
12	" "		                
13	LBL 00		        
14	APPREC		        
15	DSE Y		        
16	GTO 00		        
17	CLA		                
18	RTN		                
19	LBL "ASTOA"	        
20	SEEKPT		        
21	DELREC		        
22	INSREC		        
23	RTN		                
24	LBL "ARCLA"	        
25	SEEKPT		        
26	GETREC		        
27	RTN		                
28	LBL "A<>A"	        
29	X<>L		        
30	CLX		                
31	SEEKPT		        
32	DELREC
33	INSREC
34	X<>L
35	SEEKPT
36	GETREC
37	DELREC
38	X<>L
39	SEEKPT
40	INSREC
41	X<>L
42	SIGN
43	SEEKPT
44	GETREC
45	DELREC
46	X<>L
47	SF 25
48	SEEKPT
49	FC?C 25
50	APPREC
51	INSREC
52	X<>L
53	CLX
54	SEEKPT
55	GETREC
56	X<>L
57	RTN
58	LBL "CLRGA"
59	"XALPHA"
60	PURFL
61	CLA
62	END
153 Octets
Simule plusieurs registres Alpha dans un fichier,
SIZA céer le fichier de X registres et renvoie dans X le nombre de registres xmémoire consommés,
ASTOA copie le registre Alpha dans le registre n° X,
ARCLA copie le registre n° X dans le registre Alpha,
A<>A échange le registre Alpha avec le registre n° X
CLRGA détruit le fichier.
Les registres commencent à 1, le registre 0 est utilisé pour l'échange.
Le fichier nommé XALPHA est le fichier en cours.
ASTOA,ARCLA et A<>A préservent la pile.
Ti(s) 60, 62 Galaxy, 66, 67 Galaxy, 68, 74 Basical 80, 81, 82, 83+, 83 CE, 84+SE, 85, 86, 89, 89 titanium, 92, 95 Procalc, v200, nSpire cx
Hp(s) 35s, 41CX, 28S, 48g, 50g, 39gII, Prime G1 et G2,
Casio(s) fx 602P, 702P, 4000P, 4500P, 6000G, 6900G, 7700G, 8500g, PB-700, CG-20, Graph 95 sd
Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, E500, El 5120, 9200, 9600
Canon X-07
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Vos_derniers_programmes_?

Message par steste »

Salut Tyann,
...
Tu peux envisager un jeu graphique,
a part le jeu du Crocodile - sur L'ordinateur de poche,
néant...

?
...
Répondre

Retourner vers « Tous les Pockets »