453 résultats trouvés

par babaorhum
09 nov. 2023 13:50
Forum : Tous les Pockets
Sujet : Misez P'tit, Optimisez - N°121 : Retournez à vos places !
Réponses : 28
Vues : 1904

Re: Misez P'tit, Optimisez - N°121 : Retournez à vos places !

C.Ret a écrit : 09 nov. 2023 07:36 ...
Oui, c'est très élégant, tellement que j'en suis jaloux et que depuis hier soir , je cherche à contrefaire ce code.
...
Trop fier, je suis ! :mrgreen: :mrgreen: :mrgreen:
et :
C.Ret a écrit : 09 nov. 2023 07:36 ...
10 INPUT "? ",B$;A$ @ FOR I=1 TO LEN(A$) @ B$[ I ]=STR$( POS(A$,STR$(I)) ) @ NEXT I @ RUN
...
est d'une astuce incroyable !
B$[ I ]=STR$( POS(A$,STR$(I)) ) 8O 8O 8O Bravo C.Ret, une fois de plus !
par babaorhum
08 nov. 2023 23:21
Forum : Tous les Pockets
Sujet : Misez P'tit, Optimisez - N°121 : Retournez à vos places !
Réponses : 28
Vues : 1904

Re: Misez P'tit, Optimisez - N°121 : Retournez à vos places !

Je confirme, le programe est joli mais la lecture du résultat pas évidente.
Et pourquoi un DIM L(32) ? un L(10) ne suffit pas ? (y'a sûrement un truc ...)

Sinon je propose une version HP-71B, basée sur des chaines alpha :

Code : Tout sélectionner

10 INPUT A$ @ B$ = '' @ L=LEN(A$)
20 FOR I = 1 TO L @ S = VAL(A$[I,I]) @ B$[S,S] = STR$(I) @ NEXT I @ PRINT A$;' ';B$
je trouve que c'est simple et élégant, non ?
par babaorhum
05 nov. 2023 17:41
Forum : Tous les Pockets
Sujet : Misez P'tit, Optimisez - N°121 : Retournez à vos places !
Réponses : 28
Vues : 1904

Re: Misez P'tit, Optimisez - N°121 : Retournez à vos places !

Bonjour,
Je propose une solution en basic sharp, pour un dimanche venteux !
développée sur mon PC-1350.

Code : Tout sélectionner

10 INPUT N:L=INT LOG N:N=N/10^L:L=L+1:S=0
20 FOR I=1 TO L:R=INT N:N=(N-R)*10:S=S+I*10^(L-R):NEXT I:PRINT S
Pas de fonction de tri bien sûr ...
par babaorhum
13 mai 2021 20:33
Forum : Tous les Pockets
Sujet : Misez p'tit Optimisez n°100 : Quand le 0 devient backspace
Réponses : 31
Vues : 13430

Re: Misez p'tit Optimisez n°100 : Quand le 0 devient backspace

Bonjour,
Joli sujet pour le MPO 100 - Je propose une solution pour HP-71B, qui manipule les chaînes comme des tableaux ; on ne le dira jamais assez , c'est super pratique !
le code suivant donne les mêmes résultats que le basic Sharp de C.Ret :

Code : Tout sélectionner

10 INPUT M$ @ I = 1
20 IF M$[I,I]="0" THEN M$[I-1,I]="" @ I=I-1 @ GOTO 20
30 I=I+1 @ IF M$[I,I]<>"" THEN 20 ELSE PRINT M$
Je me demande si la 41CX et ses fonctions ALPHA étendues (XMEMORY) ne serait pas pertinente aussi ... à réfléchir ...
par babaorhum
08 nov. 2020 13:45
Forum : Tous les Pockets
Sujet : MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique
Réponses : 132
Vues : 75975

Re: MPO n° 97 Spécial 10e Anniversaire : Précision arithmétique

Bonjour à tous

Une petite version travaillée sur ma FX502P (je l'avais acheté en 1981 chez DURIEZ, à la belle époque) et retrouvée il y a 2 ans par ma maman dans un grenier.

On reste embêté par le faible nombre de test possible sur ces machines et on tombe dans la séquence de 4 pas infernale x=F? GTO1 GTO0 LBL1 ...

On notera qu'il y a une petite subtilité dans le nombre de boucles compté en MR8, il faut que j'en retranche 2 à la fin pour être conforme au modèle initial donné par Marge.

Merci pour ce petit MPO ca faisait longtemps ...

Code : Tout sélectionner

Casio FX502P

SAC 1 Min7 Lbl0 MR7 M+7 MinF + 1 M+8 = x=F? GTO1
GTO0 Lbl1 2 M-8 log x MR8 PSE =

22 pas de programme, donne 39 11,74016983 en 5,2 secondes
par babaorhum
03 juin 2019 21:51
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

Re: et une 602 !!

Hello,

Désolé Professeur, je n'ai pas donné trop de nouvelles, tu as raison ...
La casio fx-4000p est en route pour aller chez Ben où elle sera bichonnée :wink:
L'autre machine est une casio fx-2600 (pas "p") - une jolie petite scientifique assez complète (elle a même la racine cubique), et un mode statistique bien fourni - il manque les calculs sur les bases pour être vraiment bien (mon avis). Il y a curieusement une fonction ran# comme sur ses grandes soeurs programmables qu'on connait mieux ici ... je n'ai pas bien compris l'intérêt d'afficher des nombres pseudo alétoires sur une simple scientifique. Vous savez peut-être.
On peut trouver facilement des photos de cette machine - Celle du site de Ledudu n'est pas en super état d'ailleurs ...
Bref, cette machine présente peu d'intérêt pour les passionnés de ce forum, elle ne va pas m'aider à trouver des nombres premier à 11 chiffres ... je l'ai mis dans mon cartable en cas de besoin surgissant d'un calcul de cosinus :roll:

Voilà pour les nouvelles de ce fil ... à bientôt
par babaorhum
26 mai 2019 22:29
Forum : Tous les Pockets
Sujet : Reset FX-602P
Réponses : 3
Vues : 6063

Re: Reset FX-602P

Bonjour,

La mienne acquise récemment est revenue à 512 avec un INV MAC en mode 2 (WRT) ...

Bonne continuation
par babaorhum
22 mai 2019 22:04
Forum : Frimer - brag - dernières acquisitions
Sujet : J'ai mon Sharp PC-1600 !
Réponses : 14
Vues : 14237

Re: J'ai mon Sharp PC-1600 !

Bravo Dom, belle machine !!
pas trop capricieux au démarrage, quand tu as mis les piles ? (mon 1600 pas K est extrêmement chatouilleux, il met plusieurs reset à s'en remettre à chaque fois que je change les piles .... alors que le 1500 est opérationnel au premier reset)
par babaorhum
19 mai 2019 15:46
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

Re: et une 602 !!

Merci pour tous vos retours !

Pour la 4000p, je n'avais pas réfléchi à un prix ...
Je propose 15€ fdp in, payable en paypal (entre amis) et envoi par MR. avec priorité à l'ordre des intéressés : Ben puis notre prof préféré.
Dites moi si cela vous convient.

Gilles59, si il y a une FA-2 qui ne te sers à rien je veux bien, tu me diras comment tu vois la transaction. C'est pareil ; pour essayer des sauvegardes/relectures (voir du wav2bin ?).
par babaorhum
18 mai 2019 16:30
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

Re: et une 602 !!

OUAOUHHH !!! les vidéos !!
je suis pas sûr qu'on puisse faire cela avec une 41 et même une 42 !!
Merci Gille59 :) , et super tes pages sur la 602 (hébergées par Ledudu). Une référence ! je crois que je vais tester le pgm de 421 qui a l'air plein d'astuces...
par babaorhum
18 mai 2019 14:55
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

Re: et une 602 !!

L'anecdote c'est que l'enchère sur la 602p HS sur EB était en même temps que le rappel annuel de Tipoucet sur l'état de sa 502p achetée également HS en 2013 pour le même prix mais qui a eu un pb de pile ayant coulé hélas.
J'ai donc suivi son exemple - et j'ai été le seul enchérisseur - Crouf la 602 !
Pour rappel, cette machine était vendue 620FF en 1983, soit environ 94€ en 2019.

D'ailleurs si quelqu'un a une FA-1 qui fonctionne et qui n'a pas d'utilité, je suis intéressé ... (je n'ai pas retrouvé la mienne)
par babaorhum
18 mai 2019 13:39
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

Re: et une 602 !!

Merci Dom,
Bernoulli, pour la 4000p, elle marche nickel et est en très bon état (je dirais presque état neuf ...), le feuillet d'aide est en allemand.
J'en ai déjà une, si elle intéresse quelqu'un ...

Image
par babaorhum
18 mai 2019 12:20
Forum : Tous les Pockets
Sujet : et une 602 !!
Réponses : 24
Vues : 21857

et une 602 !!

Bonjour,

Sans chercher avidement, elle me manquait la FX-602p ...
J'en avait acheté une neuve il y a bien longtemps, elle m'a accompagnée quelques années puis a été volée.

Et j'en ai attrapé une il y a 2 semaine sur EB (vous l'avez sûrement vue), pour une somme que j'estime raisonnable (ce n'est que mon avis). Elle était accompagnée d'une 4000p et d'une 2600. toutes les 3 vendues HS.
Nouvelles piles, et réveil miraculeux pour tout le monde !! baba content !
Pour la 602p, je signale que le réveil a été un peu difficile : elle semblait fonctionner correctement mais indiquait une taille mémoire de 000 en mode 2 (wrt) et rien à effacer en mode 3 (pcl). Tout est revenu à la normale en faisant un "inv MAC" en mode 2. C'est une action qui n'est pas documentée en mode 2 mais qui semble avoir au moins un effet ...
En nota ma 602 a la coque supérieure décollée, mais elle est maintenue quand elle est dans sa pochette. Pour l'instant je ne répare pas ...

Ma 502 (achetée neuve à l'époque) a retrouvé sa vieille copine. Et ça faisait bien longtemps que je ne m'étais pas acheté une petite machine ... (en thérapie ...)

Image

Image
par babaorhum
18 mai 2019 11:51
Forum : Frimer - brag - dernières acquisitions
Sujet : Sharp PC-1211 et PC-1251 avec écran sans taches
Réponses : 15
Vues : 15566

Re: Sharp PC-1211 et PC-1251 avec écran sans taches

La casio FX-502p semble échapper pour l'instant à la maladie, malgré son écran jaune ...

mais c'est peu être la vitre qui est jaune sur un LCD gris ?

Image
par babaorhum
12 nov. 2018 23:03
Forum : Tous les Pockets
Sujet : La Question du Dimanche IV
Réponses : 11
Vues : 9972

Re: La Question du Dimanche IV

Hello,

C'est avant ou après le passage en vitesse lumière ?

8O

Aller à la recherche avancée