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

Re: Ca calcul

Message par Thierry Loiseau »

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, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs

[--- plus ---]
http://astrophoto.free.fr/
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: Ca calcul

Message par Ben »

Je viens d'essayer sur un Sharp PC-1246, il n'y a pas le "souci"
Avatar du membre
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4412
Enregistré le : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Ca calcul

Message par charognard »

Normal .... c'est un SHARP !
Sharpounet
Fonctionne à 75 bauds
Fonctionne à 75 bauds
Messages : 28
Enregistré le : 14 avr. 2017 14:45
Localisation : Paris

Re: Ca calcul

Message par Sharpounet »

Mon Casio PB-700 accepte un VAL (A $(5))
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Ca calcul

Message par steste »

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 : 1549
Enregistré le : 21 août 2016 19:04

Re: Ca calcul

Message par Ben »

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 du membre
charognard
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4412
Enregistré le : 06 juin 2007 19:28
Localisation : Indre et loire
Contact :

Re: Ca calcul

Message par charognard »

c'est clair que le traitement des chaines sur PC 1212 est inexistant.
mais c'était le premier ordinateur de poche
Avatar du membre
Thierry Loiseau
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 823
Enregistré le : 10 avr. 2004 22:23
Localisation : Terrasson (Périgord)
Contact :

Re: Ca calcul

Message par Thierry Loiseau »

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, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs

[--- plus ---]
http://astrophoto.free.fr/
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: Ca calcul

Message par Ben »

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

Re: Ca calcul

Message par Thierry Loiseau »

À 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, 8500, Atari Mega ST1 ***], PB-540c, PISMO, [***CPC-6128, MO5***]... et bien d'autres trucs

[--- plus ---]
http://astrophoto.free.fr/
Avatar du membre
steste
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 551
Enregistré le : 18 sept. 2015 18:59

Re: Ca calcul

Message par steste »

Merci les gus, pas de traitement
du tout..., ste
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3405
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Ca calcul

Message par C.Ret »

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.
Modifié en dernier par C.Ret le 25 avr. 2017 23:51, modifié 4 fois.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Ben
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 1549
Enregistré le : 21 août 2016 19:04

Re: Ca calcul

Message par Ben »

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 : 1549
Enregistré le : 21 août 2016 19:04

Re: Ca calcul

Message par Ben »

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

Retourner vers « Tous les Pockets »