Ca calcul

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
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 814
Inscription : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: Ca calcul

Message par Thierry Loiseau » 11 avr. 2017 19:10

Ben a écrit :Au premier test, le FX-720P n'autorise pas non plus un VAL(A$(5)). Ce n'est pas juste un petit bug dans le PB-100
Mince :|
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/

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1690
Inscription : 21 août 2016 19:04

Re: Ca calcul

Message par Ben » 11 avr. 2017 19:36

Je viens d'essayer sur un Sharp PC-1246, il n'y a pas le "souci"

Avatar de l’utilisateur
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4411
Inscription : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Ca calcul

Message par charognard » 20 avr. 2017 16:42

Normal .... c'est un SHARP !

Sharpounet
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 28
Inscription : 14 avr. 2017 14:45
Localisation : Paris

Re: Ca calcul

Message par Sharpounet » 24 avr. 2017 22:46

Mon Casio PB-700 accepte un VAL (A $(5))

Avatar de l’utilisateur
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 636
Inscription : 18 sept. 2015 18:59

Re: Ca calcul

Message par steste » 24 avr. 2017 23:27

Salut Ben, moi j'ai un
gros problème avec les chaines
sur PC-1212...
...
Y'a que LEN non ?
...
ste

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1690
Inscription : 21 août 2016 19:04

Re: Ca calcul

Message par Ben » 25 avr. 2017 09:07

Je n'ai pas encore de 1212, mais sur le 1211, il n'y a pas de traitement de chaînes de caractères, pas de LEN, STR$, VAL, MID$, ...

Avatar de l’utilisateur
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4411
Inscription : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Ca calcul

Message par charognard » 25 avr. 2017 10:28

c'est clair que le traitement des chaines sur PC 1212 est inexistant.
mais c'était le premier ordinateur de poche

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

Re: Ca calcul

Message par Thierry Loiseau » 25 avr. 2017 10:48

D'après le dernier numéro des Pocketicaires (disponible bientôt immédiatement dès 2107), j'ai hésité entre ce type de machine à programmer et une HP-41C... Ben, je ne regrette pas trop :)

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/

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1690
Inscription : 21 août 2016 19:04

Re: Ca calcul

Message par Ben » 25 avr. 2017 11:38

Thierry Loiseau a écrit :D'après le dernier numéro des Pocketicaires (disponible bientôt immédiatement dès 2107), j'ai hésité entre ce type de machine à programmer et une HP-41C... Ben, je ne regrette pas trop :)

Image
Et qu'as-tu choisi? J'ai les deux machines (bientôt le 1212 aussi), je trouve qu'elles sont complémentaires

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

Re: Ca calcul

Message par Thierry Loiseau » 25 avr. 2017 13:30

À lire dans la gazette ;)
https://youtu.be/EV9mHPHRG7k
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
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 636
Inscription : 18 sept. 2015 18:59

Re: Ca calcul

Message par steste » 25 avr. 2017 15:27

Merci les gus, pas de traitement
du tout..., ste

Avatar de l’utilisateur
C.Ret
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2243
Inscription : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Ca calcul

Message par C.Ret » 25 avr. 2017 19:35

Si, si, quand même, sur SHARP PC121x on peut comparer deux chaines de caractères ! Ou les utiliser pour aller à un label à l'aide de GOTO o GOSUB :)

Sinon, pour effectuer la multiplication sur deux entiers gigantesques, on peut utiliser un programme qui les décompose en deux tableaux d'entier plus petits que 100000 afin d'éviter les erreur d'arrondi ou de dépassement.

Code : Tout sélectionner

1 " " CLEAR : E=Exp-5,A=11:USING "######" 
2 "A" B=12,K=0
3 F=2:GOSUB 10:INPUT "A ";H:GOSUB 20:GOTO 3
4 "B" C=1+B:A(C)=0 
5 F=3:GOSUB 10:INPUT "B ";H:GOSUB 20:GOTO 5
6 "=" D=2C-A,H=0:FOR G=C TO D-1:F=H:PAUSE G-D,"CALC": FOR I=A TO B-1:FOR J=B TO C-1
7 IF I+J-G=A+B-C LET F=F+A(I)*A(J):IF FEE>1 STOP 
8 NEXT J:NEXT I:H=INT EF,A(G)=F-H/E:NEXT G
9 "P" F=0:PRINT "A:":GOSUB 30:PRINT "B:":GOSUB 30:PRINT "A*B:":GOSUB 30: END

10 J=A(F)-1,I=J-1,G=A(F-1),H=1+G:IF J-G>4 PAUSE A(J);" <#> ";A(H);A(G):RETURN
11 PAUSE A(J);A(I);A(H);A(G):RETURN

20 G=10,H=INT ABS H:IF H LET G=G*10^INT LOG H:IF GEE>1 BEEP 1:RETURN
21 FOR I=A(F-1) TO A(F)-1:A(I)=H+GA(I),H=INT EA(I),A(I)=A(I)-H/E: NEXT I
22 IF H LET G=H,H=INT GE,A(A(F))=G-H/E,A(F)=1+A(F):GOTO 22
23 RETURN

30 F=F+1,G=0:FOR I=A(F+1)-1 TO A(F) STEP -1:IF G+A(I) PRINT A(I):IF A(I) LET G=1
31 NEXT I:RETURN
Utilisation :
RUN[ENTER] (ou [DEF][SPC] ) commence une nouvelle multiplication.
Au prompt "A _", on entre les chiffres de l'entier gigantesque A par groupe d'au maximum 10 chiffres. Chaque groupe entré vient s'ajouter à la droite des groupes précèdent afin de former l'entier final.
Une pression sans saisie sur [ENTER] valide le premier entier.
Le prompt "B _" permet de saisir de la même manière le second facteur gigantesque.
Un pression sur [ENTER] valide alors le second facteur et effectue la multiplication.
Le Pocket affiche de temps en temps un compte-à-rebours -5 CALC afin de faire patienter.
Puis imprime les deux facteurs A: et B: puis leur produit.

[DEF][ A ] et [DEF][ B ] permettent de reprendre la saisie des deux facteurs gigantesques A et B depuis le début.
[DEF][ = ] effectue la multiplication et imprime le résultat

Exemple:
Pour multiplier 479001600 par 1307674368000, effectuer les opérations suivantes:

Code : Tout sélectionner

Affichage                Prompt Saisies            Commentaires              
>                        >      RUN[ENTER]
     0     0     0     0 A _    479001600[ENTER]   Le facteur A: peut être saisi en une seule fois, il nefait que 9 chiffres.
     0     0  4790  1600 A _    [ENTER]
     0  4790     0     0 B _    13076[ENTER]       La saisie du facteur B: est ici effectuée en deux parties
 13076  4790     0 13076 B _    74368000[ENTER]        13076 et 74368000 d'autres coupures sont possibles ATTENTION: ne pas créer de groupe de chiffre commençant par un zéro !!
   130 76743 76743 68000 B _    [ENTER]               
          -5CALC
          -4CALC
          -3CALC                                   Compte à rebours lors du calcul
          -2CALC
          -1CALC                                   Impression du calcul; sans imprimante presser sur [ENTER] pour passer à l'affichage de la ligen suivante.
A:                               
                   4790         
                   1600                            Affiche le facteur A:      4790 01600.
B:
                    130
                  76743
                  68000                           Affiche le facteur B:  130 76743 68000.
A*B:
                      6                  
                  26378
                  11455
                   9888
                      0                          Affiche le résultat A*B: 6 26378 11455 09888 00000.
> 
Il faut bien évidemment "ajouter" les zéro à gauche de chaque groupe de 5 chiffres. La mise ne forme est quasi impossible avec ce Pocket.


MEM renvois 863 STEPS et 107 MEMORIES.
Le code fait donc environ 561octets et 122 registres sont disponibles pour mémoriser les deux facteurs et le résultat.
On peut donc espérer faire les multiplications de nombres ayant plus de 152 chiffres et dont le produit fait au plus 305 chiffres.
Dernière édition par C.Ret le 25 avr. 2017 23:51, édité 4 fois.
SHARP PC-1211 + CE-121 + CE-122. | VIC 20 Commodore 128D + Printer P-803 + SD2iec. | TI-57 LCD | TI-74 BasiCalc | TI-92 II | HP-28S + HP82240A | HP-41C + (2 memory + stat + IR) modules. | HP Prime Wireless Graphing Calculator | HP-15C | CASIO fx-602p + FA-1. .Sommaire des M.P.O.. . Sommaire du P.C.T.M. .

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1690
Inscription : 21 août 2016 19:04

Re: Ca calcul

Message par Ben » 25 avr. 2017 21:47

Je ne m'étais pas encore vraiment penché sur le sujet avec le PC-1211, mais je ne voyais pas non plus d'autres moyens que d'encoder les grands nombres déjà décomposés dans un tableau.

Merci pour ta version

Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1690
Inscription : 21 août 2016 19:04

Re: Ca calcul

Message par Ben » 25 avr. 2017 22:12

Thierry Loiseau a écrit :À lire dans la gazette ;)
https://youtu.be/EV9mHPHRG7k
Avec le temps, il faut te mettre aussi au Sharp ;-)

Répondre

Revenir vers « Tous les Pockets »