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

[Ben]

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

[Thierry Loiseau]

C'est un très bon livre, une référence !

L'ISBN annoncé par Amazon est 2901730035

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.

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)

[Thierry Loiseau]

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

[Thierry Loiseau]

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

[Ben]

J'obtiens ERROR 1 IN 80

Je pense que le problème vient du ";". Sur le PC-1246, c'est pas permis

[Thierry Loiseau]

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

[Thierry Loiseau]

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

[tyann]

Bonsoir
Voici une version X 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.

[Thierry Loiseau]

Merci pour cette nouvelle version... yapuka comprendre

[tyann]

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.

[Thierry Loiseau]

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 :

[tyann]

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.