[HP-41C] Je vais vous démontrer...

Depuis la création de mon site de calculs astronomiques, je diffuse une information erronée. Ce n'est pas de ma faute mais de l'éditeur du livre "Calculs Astronomiques à l'usage des amateurs", traduit de l'anglais et publié par la SAF.

En tapant sur Google l'ISBN 2-901730-03-6, j'ai cliqué sur un lien vers une discussion Wikipédia concernant ce code. Et il s'avère que la clef de contrôle 6 est fausse.

Méthode de calcul par l'exemple pour déterminer une clé de contrôle :

source Wikipédia

Pour le démontrer, je demande à mon HP-41C par ce programme vite fait

01 LBL"ISBN
02 FIX 0
03 0
04 STO 02
05 1
06 STO 00
07"CHIFFRE+R/S
08 AVIEW
09 PSE
10 CLA
11 AVIEW
12 LBL 01
13"[
14 STOP
15 STO 01
16 ARCL 01
17 AVIEW
18 RCL 01
19 RCL 00
20 *
21 ST+ 02
22 1
23 ST+ 00
24 RCL 00
25 10
26 X≠Y?
27 GTO 01
28 RCL 02
29 11
30 MOD
31 STO 01
32 10
33 RCL 01
34 X≠Y?
35 GTO 02
36"[ X
37 GTO 03
38 LBL 02
39"[_
40 ARCL 01
41 LBL 03
42 AVIEW
43 END


STO 00 : nombre de chiffres saisis ;
STO 01 : le chiffre saisi puis à la fin, le modulo ;
STO 02 : le cumul.

Lancer le programme puis taper le 1^er chiffre + R/S 2^èmechiffre + R/S etc. À la 9^ème saisie, la clé de contrôle est dévoilée. Si elle est égale à 10, un X est affiché. Un programme simplement efficace

Étonnant, non ?
(mes propos sur le site Silicium.org)

10 INP "ISBN:",$ 20 IF LEN($)≠9;PRT "9 CHIFFRES !":GOTO 10 30 T=0 40 FOR I=1 TO 9 50 C$=MID(I,1):GSB 130 60 IF N=-1;PRT "CHIFFRE SEULEMENT !":GOTO 10 70 T=T+I*N 80 NEXT I 90 M=T-INT (T/11)*11 100 PRT "ISBN ";$;" -";:IF M=10;PRT " X" 110 IF M<10;PRT M 120 END 130 N=-1:IF C$="0";N=0 140 IF C$="1";N=1 150 IF C$="2";N=2 160 IF C$="3";N=3 170 IF C$="4";N=4 180 IF C$="5";N=5 190 IF C$="6";N=6 200 IF C$="7";N=7 210 IF C$="8";N=8 220 IF C$="9";N=9 230 RET

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

... et on a dit

1. Le dimanche 19 février 2017 à 18:18, par Fabien

Un exercice sur une clé de contrôle, cela me rappelle les cours de mathématiques au lycée Bahuet,
avec un professeur que nous étions quelques uns à avoir surnommé " Autant pour moi ! "
tant il commettait des erreurs durant ses démonstrations, en s'exclamant à chaque fois :

Autant pour moi !

Grâce à toi, je crois avoir compris le principe de la clé pour l'ISBN.

Il faudra que tu m'expliques un jour le principe pour le codage du numéro SIREN.
Au bureau, le logiciel avec lequel je travaille est capable de détecter une erreur de SIREN,
sans que je sache où se situe la clé de contrôle. Cela m'a toujours intrigué !

2. Le dimanche 19 février 2017 à 21:44, par Titi

fr.wikipedia.org/wiki/Sys...

3. Le lundi 6 mars 2017 à 10:08, par Titi

Une version pour FX-702P

Titi

4. Le mercredi 15 mars 2017 à 15:25, par Titi

Une version pour le pocket SHARP PC-1245
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 finalement tester avec ces deux codes :
ISBN:012345678-9
ISBN:123456789-X
Soit disant passant, l'émulateur utilisé pour ce Sharp est en fait un paquet
de machines émulées, dont la HP-41C. Chose intéressante, il permet aussi
de connecter une imprimante virtuelle (bien sûr) et de sortir un listing...

Listing présentant l'une de mes dernières versions optimisées de mon programme...

... et sinon, vous avez un avis ?

Les commentaires pour ce billet sont fermés.