[HP-41C...] ISBN 2-901730-03-6 ?

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 de l’utilisateur
Ben
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 800
Inscription : 21 août 2016 19:04

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Ben » 06 mars 2017 19:21

Ma modeste contribution:

Le PC-1246 n'accepte que des strings que 7 caractères, trop petit pour les 9 chiffres. On encode donc chiffre par chiffre:

Code : Tout sélectionner

200 Y=0:FOR Z=1 TO 9:INPUT A:Y=Y+A*Z:NEXT Z
210 X=Y-INT(Y/11)*11
220 IF X=10 PRINT "X":END
230 PRINT X:END
Il n'affiche aussi que la chef

Ben

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 11 mars 2017 14:26

Marge a écrit :
Thierry Loiseau a écrit :
Marge a écrit :C'est un très bon livre, une référence !
L'ISBN annoncé par Amazon est 2901730035 :mrgreen:

Il existe une nouvelle édition en vente sur le site de la SAF.
Je ne sais pas s'il y est fait encore allusion à l'HP-67 ?
Merci, je sais quoi m'offrir pour Noël prochain. :wink:
ISBN : 978-2-901730-05-7 (EAN pour cette nouvelle édition) - © 2014 :)
Sur la tranche : "CALCULS ASTRONOMIQUE À L'USAGES AMATEURS" ! (manque "DES" et un "S" en trop)
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 13 mars 2017 17:46

Ben a écrit :Ma modeste contribution:

Le PC-1246 n'accepte que des strings que 7 caractères, trop petit pour les 9 chiffres. On encode donc chiffre par chiffre:

(...)

Il n'affiche aussi que la chef

Ben
Ton 1246 accepte aussi au moins 10 chiffres ?
Alors adapte mon code pour FX-702P !
Tu admets que 9 chiffres entiers sont saisis....
le dixième est calculé.
Ça évitera les 9 saisies :)
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 14 mars 2017 23:48

Thierry Loiseau a écrit :
Ben a écrit :Ma modeste contribution:

Le PC-1246 n'accepte que des strings que 7 caractères, trop petit pour les 9 chiffres. On encode donc chiffre par chiffre:

(...)

Il n'affiche aussi que la chef

Ben
Ton 1246 accepte aussi au moins 10 chiffres ?
Alors adapte mon code pour FX-702P !
Tu admets que 9 chiffres entiers sont saisis....
le dixième est calculé.
Ça évitera les 9 saisies :)
Mon essai pour PC1245... à debuguer :( (écrit depuis un émulateur)

Code : Tout sélectionner

10:DIM B$(9)
20:INPUT "ISBN:",N:N=INT(ABS(N)):T=0
30:FOR I=1 TO 9
40:N=N/10:C=(N-INT(N))*10:N=INT(N):T=T+(10-I)*C
50:B$(10-I)=STR$(C):NEXT I
60:M=T-INT(T/11)*11
70:FOR I=1 TO 9
80:PRINT B$(I);
90:NEXT I:IF M=10 PRINT "-X"
100:IF M<10 PRINT M
110:END
J'obtiens ERROR 1 IN 80
Il n'existe pas de fonction Frac() ?
Pour chaîner un affichage, il ne faut pas écrire un ; après le PRINT ?

Edit : j'ai compris que A([1..26]) était équivalent à A...Z

:(
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

Avatar de l’utilisateur
Ben
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 800
Inscription : 21 août 2016 19:04

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Ben » 15 mars 2017 13:20

Thierry Loiseau a écrit :J'obtiens ERROR 1 IN 80
Je pense que le problème vient du ";". Sur le PC-1246, c'est pas permis

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 15 mars 2017 14:23

Ben a écrit :
Thierry Loiseau a écrit :J'obtiens ERROR 1 IN 80
Je pense que le problème vient du ";". Sur le PC-1246, c'est pas permis
Ok ! Bon, je modifie...

version Sharp PC1245 v2

Code : Tout sélectionner

10:DIM B$(9)
20:INPUT "ISBN:",N:N=INT(ABS(N)):T=0
30:FOR I=1 TO 9
40:N=N/10:C=(N-INT(N))*10:N=INT(N):T=T+(10-I)*C
50:B$(10-I)=STR$(C):NEXT I
60:M=T-INT(T/11)*11
70:C$="-"+STR$(M):IF M=10 LET C$="-X"
80:PRINT "ISBN:"+B$(1)+B$(2)+B$(3)+B$(4)+B$(5)+B$(6)+B$(7)+B$(8)+B$(9)+C$
90:END
ISBN:290173003-5
ISBN:286930269-X
ISBN:012345678-9
ISBN:123456789-X

pile poil 16 caractères. Autant en profiter :)
Dernière édition par Thierry Loiseau le 15 mars 2017 16:17, édité 1 fois.
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 15 mars 2017 15:27

Image

version Sharp PC-1245 v3

Code : Tout sélectionner

10:DIM B$(0)*9
20:INPUT "ISBN:",B$(0):N=VAL(B$(0)):T=0
30:FOR I=9 TO 1 STEP -1
40:N=N/10:C=(N-INT(N))*10:N=INT(N):T=T+I*C
50:NEXT I
60:N=T-INT(T/11)*11
70:C$=STR$(N):IF N=10 LET C$="X"
80:PRINT "ISBN:"+B$(0)+"-"+C$
90:END
On peut spécifier la longueur de la chaîne de caractères — ici B$(0) — jusqu'à 16.
Je précise donc 9... et ça raccourcit le programme.
Je supprime également le INT(ABS()). Après tout, on est censé savoir ce que l'on saisit :)
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 688
Inscription : 06 oct. 2012 14:37

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par tyann » 15 mars 2017 20:17

Bonsoir
Voici une version X :wink: pour 41.

Code : Tout sélectionner

01 LBL "ISBN"
02 FIX 0
03 CLST
04 1,009
05 X<>Y
06 LBL 00
07 CLX
08 ATOX
09 XTOA
10 48
11 -
12 RCL Y
13 INT
14 *
15 ST+ Z
16 ISG Y
17 GTO 00
18 X<>Z
19 11
20 MOD
21 "[-"
22 X<>Y
23 INT
24 X#Y?
25 GTO 01
26 "[X"
27 RTN
28 LBL 01
29 X<>Y
30 ARCL X
31 END
[ :append # :différent
On met le code ISBN dans ALPHA, puis XEQ "ISBN", la clé est dans x
et le code ISBN complété de sa clé dans ALPHA.
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) 41CX, 28S, 48g, 50g, 39gII, Prime, Casio(s) fx 602P, 702p, 4500P, 8500g, PB-700, CG-20, Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 9200, 9600

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 15 mars 2017 20:52

Merci pour cette nouvelle version... yapuka comprendre :mrgreen:
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 688
Inscription : 06 oct. 2012 14:37

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par tyann » 15 mars 2017 21:15

Bonsoir
Rien de bien compliqué:
ATOX supprime le premier caractère du registre Alpha et met son code ASCII dans X
XTOA ajoute le caractère de code ASCII X au registre Alpha (en dernière position).
Le code ASCII de "0" =48, "1" =49 etc... d'où le 48 -.
Le registre Y sert de compteur et vaut 10.009 quand on sort de la boucle LBL 00 ....GTO 00
j'utilise donc sa partie entière pour le test du "X".

L'idée est de voire si le module X-Functions peut apporter un plus.
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) 41CX, 28S, 48g, 50g, 39gII, Prime, Casio(s) fx 602P, 702p, 4500P, 8500g, PB-700, CG-20, Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 9200, 9600

Avatar de l’utilisateur
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 796
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par Thierry Loiseau » 15 mars 2017 21:23

Ok. C'est rigolo, avec l'émulateur utilisé, je viens de découvrir qu'il permettait aussi de connecter l'imprimante sur l'HP-41C. C'est un peu déroutant pour "la connecter" et l'utiliser mais ça marche. Exemple avec une de mes versions précédemment présentée :

Image
HP-41C, HP-12C ; Casio FX-702P, FX-850P, FX-602P, FX-3900P, FX-4000P, FX-180Pv ;
TI 57 avec adaptation d'une pile LR9 et une originale, accus HS; Newton MP 120FR, MP 2100US, MP 130US...
Apple //e, 7100, 8100, 8500, PB-540c, PISMO, CPC-6128, MO5... et bien d'autres trucs

http://astrophoto.free.fr/

tyann
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 688
Inscription : 06 oct. 2012 14:37

Re: [HP-41C...] ISBN 2-901730-03-6 ?

Message par tyann » 19 mars 2017 21:43

Bonsoir
Voici une version pour la Ti-95 Procalc :

Code : Tout sélectionner

"CODE ISBN ?" BRK STO A STO D 9 STO B 0 STO C
LBL 00
RCL A /10= STO A FRC *10* RCL B = ST+ C RCL A INT STO A DSZ B GTL 00
RCL C /11= INT *11= ST- C COL 10 MRG D COL 10 "-" 10 IF= C GTL 01
OLD COL 12 MRG C COL 12 DEL RTN
LBL 01
OLD COL 11 "X" HLT
Une machine attachante que l'on "voit" trop peu sur le forum.
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) 41CX, 28S, 48g, 50g, 39gII, Prime, Casio(s) fx 602P, 702p, 4500P, 8500g, PB-700, CG-20, Psion(s)II LZ64, siena, s3a, s3mx, s5mx.
Sharp(s) pc-1350, 1403, 1500A, El 9200, 9600

Répondre

Revenir vers « Tous les Pockets »