La recherche a retourné 2053 résultats

par cgh
21 oct. 2011 12:33
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

On peut faire un peu plus court avec ma version de la page 2, en ajoutant les tests, non ? J'ai intercalé celui du début qui vérifie la présence d'une chaine, par contre, pour les tests de code Ascii compris entre 65 et 97, faudrait que j'essaie sur une vraie bécane pour être sûr de ce qui se passe...
par cgh
21 oct. 2011 07:32
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Bon, voilà ma version "A-aREV" (ALPHA-to-alpha-REVERSE) sur HP41CX ou C/CV+XFunctions. . En entrée, une chaine de caractères quelconques dans ALPHA. . En sortie, la chaine inversée et les majuscules -> minuscules dans ALPHA 01 LBL "A-aREV" 02 ALENG 03 X=0? 04 RTN 05 ENTER^ 06 LBL 01 07 ATOX 08 65 09...
par cgh
20 oct. 2011 15:47
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

C.Ret a écrit :

Code : Tout sélectionner


50 IF C>=ASC "A" AND C<=ASC "Z"                 IF DUP NUM 64 AND       @ Là il y a une astuce pour vérifier si 
                                                                        @ l'on a affaire à une lettre
Pas d'accord ! les carcatères @ [ \ ] _ ont aussi le bit 0x40.
par cgh
20 oct. 2011 15:21
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Sinon pour jouer les enculeurs de mouches 1) pour l'exemple SILICIUM ça ne fonctionne pas sur SHARP les variables statiques sont limitées à 7 caractères il faut donc un DIM Ah ? Sur le PC1500, les variables A$ à Z$ sont limitées à 16 caractères. Je ne connais que les 1500 et 1600. Effectivement, le...
par cgh
20 oct. 2011 15:05
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

charognard a écrit :de plus certains pockets pour vrai retourne 1 et d'autre -1.
et là vu que l'on fait deux tests ça fonctionne dans les deux cas .... Magique non ?
Oui. C'est vrai. Je me souviens qu'il y avait des problèmes de compatibilités entre les versions de ROM du PC1500.
par cgh
20 oct. 2011 14:29
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

Allez, un premier jus sur HP41CX, non testé cependant (je n'ai plus mon émulateur 41 suite à changement de PC au boulot... les émulateurs ne sont pas "homologués IT" :wink: ) 29 lignes et je ne sais pas combien de pas ! :mrgreen: Oui, mais moi je n'utilise que les registres de la pile 8) 8) 8)
par cgh
20 oct. 2011 09:34
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Re: Misez p'tit, Optimisez - N°8

charognard a écrit :en ligne 40 il y a un problème
C'était une erreur volontaire pour voir si les programmes proposés étaient bien lus et testés... :roll:
par cgh
20 oct. 2011 08:49
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°8
Réponses : 56
Vues : 10759

Misez p'tit, Optimisez - N°8

Bon, ce coup ci, c'est moi qui propose ! Faire un programme qui inverse l'ordre des caractères d'une chaine et qui en plus transforme les majuscules en minuscules. Exemple: "SILICIUM" devient "muicilisi" Voici le programme BASIC (SHARP PC1500) non optimisé du tout ! 10 "A"AREAD A$ 20 B$="" 30 FOR I=...
par cgh
19 oct. 2011 13:29
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°7
Réponses : 39
Vues : 7101

Re: Misez p'tit, Optimisez - N°7

On ne gagne pas tellement avec une version 41/42 qui accède directement à la pile : si tu regardes la version RPN que j'ai mise sur la page 1 de ce fil, on a 14 lignes de moins (pas compté en pas de programmes ! :wink: ) :oops: Je n'avais pa vu... :oops: J'ai complètement zappé ce post. Je suivais ...
par cgh
19 oct. 2011 12:39
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°7
Réponses : 39
Vues : 7101

Re: Misez p'tit, Optimisez - N°7

Les nombres dans la pile -> en sortie T Z Y X

Code : Tout sélectionner

01 LBL "SORT"
02 X<Y?
03 X<>Y
04 X<> Z
05 X<Y?
06 X<>Y
07 X<> T
08 X<Y?
09 X<>Y
10 X<>Y
17 X<> T
18 X<Y?
19 X<>Y
20 X<> Z
21 X<Y?
22 X<>Y
23 X<>Y
30 X<> Z
31 X>Y?
32 X<>Y
33 X<>Y
34 END
par cgh
18 oct. 2011 08:55
Forum : Présentation
Sujet : Bonsoir ... .. . j'me présente :
Réponses : 25
Vues : 6479

Re: Bonsoir ... .. . j'me présente :

Bonjour et Bienvenue !
par cgh
07 oct. 2011 13:32
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°4
Réponses : 12
Vues : 4307

Re: Misez p'tit, Optimisez - N°4

cgh a écrit :Ahh les instructions RCL<op>... Je crois que cela fonctionne aussi sur HP-35S qui possède elle aussi ces instructions.
Nan ! J'ai dit des bêtises :oops: Les RCL<op> ne sont disponibles que sur les variables A..Z, pas sur les registres de piles...
par cgh
07 oct. 2011 13:22
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°4
Réponses : 12
Vues : 4307

Re: Misez p'tit, Optimisez - N°4

zpalm a écrit :Toujours en 5 instructions mais sur HP-42s et WP-34S uniquement, voici une version qui préserve Z et T:

Code : Tout sélectionner

STO L
X<>Y
STOx Y
RCL+ L
STO+ X
Ahh les instructions RCL<op>... Je crois que cela fonctionne aussi sur HP-35S qui possède elle aussi ces instructions.
par cgh
07 oct. 2011 12:57
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°4
Réponses : 12
Vues : 4307

Re: Misez p'tit, Optimisez - N°4

zpalm a écrit :en optimisant la version de cgh sur HP 41:

Code : Tout sélectionner

RCL Y
X<>Y
ST* Z
+
ST+ X
Excellent, le ST* Z :wink: Je n'y ai pas pensé: 3 instructions de moins !
par cgh
07 oct. 2011 12:32
Forum : Tous les Pockets
Sujet : Misez p'tit, Optimisez - N°4
Réponses : 12
Vues : 4307

Re: Misez p'tit, Optimisez - N°4

On peut aussi faire:

Code : Tout sélectionner

RCL Y
x<>Y
*
X<>Y
LASTx
+
ST+ X

Aller sur la recherche avancée