Forum

Oui Gege, et merci. Il y a des petits bouts de tous ceux qui ont fait quelque chose sur ce sujet, bouts que je connaisse et qui soit utilisables pour cet objectif. Même des japonnais. Si tu le veux, tu me dis pour quelle partie tu souhaites que ton nom apparaisse comme auteur, ce sera fait (tu peux également le faire toi-même et changer le n° de version dans le titre).
Pour l'instant, j'ai pour seul but de faire un résumé utilisable des rares ressources disponibles sur cette formidable machine.
L'article dont il est question plus haut est remarquable et vraiment bien présenté (il m'a décidé dans le choix d'achat de cet ordi de poche), ce serai une belle annexe à ce travail collectif.
A+

Manuel en cours pour "SHARP PC-G850V (VS etc.)" : voir ce sujet : viewtopic.php?f=46&t=37543
Cordialement.

Je travaille, à l'occasion, à mettre sur pied un manuel pour cette merveilleuse machine à partir de toutes les sources trouvées et de ma propre expérience. Il est indifféremment (pour l'instant) en français ou en anglais (en fait un truc qui ressemble de loin à de l'anglais, sans doute une traduction Googlenienne). Mais peu importe, je remettrai tout cela en français par la suite. Pour l'instant, le jeu consiste à rassembler ce qui est épars et tenter de faire quelque chose d'utile.
Cette machine mérite bien un vrai sujet à elle toute seule je crois, et un manuel à son nom autre que japonais.
Donc, première ébauche : http://lgn5f0m72h.1fichier.com/ (Version 05 comme indiqué dans le titre).
Tout apport (correction, réécriture, modification...) est bien venu car j'y consacre assez peu de temps et de manière irrégulière. Mais j'avance.
A bientôt, Gilles.

Et pour ce qui est du PC-G850 V, voici mon adaptation :

5 CLS : PRINT "CALENDRIER SELON LA FORMULE DE MIKE KEITH (1990)": PRINT
10 CLEAR : INPUT "JOUR (1 A 31) = "; D
20 INPUT "MOIS (1 A 12) = "; M
30 INPUT " ANNEE = "; Y
40 IF M<3 THEN Z=Y-1 ELSE Z=Y: W=2
50 J=((23*M/9)+D+4+Y+(Z/4)-(Z/100)+(Z/400)-W) MOD 7
60 ON J GOSUB 80,81,82,83,84,85,86
70 PRINT "C'EST UN "; W$: PRINT : GOTO 10
80 W$="DIMANCHE": RETURN
81 W$="LUNDI": RETURN
82 W$="MARDI": RETURN
83 W$="MERCREDI": RETURN
84 W$="JEUDI": RETURN
85 W$="VENDREDI": RETURN
86 W$="SAMEDI": RETURN

A bientôt.

OK, c'est vrai, la fonction créé l'organe comme le souligne "rogeroge" à propos de la CE 126P. Cependant, je ne sais pas pourquoi, lorsque l'on éteint l'appareil (coupe l'alimentation), l'impression redevient pâle (mais reprend de sa force plus rapidement). Condensateurs ?
En revanche, faire faire deux ou trois tours dans le sens des aiguilles d'une horloge comptoise (ou d'une montre pour les modernes, ou d'un coucou suisse pour les gens neutres) au potentiomètre entouré de rouge sur la photo règle le problème d'une manière définitive (du moins sur ma CE 126P quasi neuve et achetée semaine dernière pour 20 euros sur Ebay). Cf. photo, .

Bonne journée.

C'est un bon début ! Welcome.

Bienvenue, amitiés.

Bienvenue, et amitiés.

Exact, cela fonctionne. Merci Céline.
J'avais effectivement fait la boucle "FOR I=2 TO SQR N" directement, pais pas vu le "I" qu'il fallait passer en "N" pour que ce programme soit OK.
Je vais maintenant regarder ce programme de plus près de façon à bien comprendre comment il fonctionne (Est-ce sur une formule dite "d'Euclide" genre : 2^-1(2^-1)... ?).
Restera ensuite, histoire de faire un tour un peu plus complet, à ajouter au menu général (Nb. premiers et parfaits) un programme pour les "nombres amiables".
C'est sans doute un peu plus compliqué... Je regarderai cela par la suite.
En fait, je ne suis pas doué en math, mais j'aime cela ! J'apprends en espérant qu'il ne soit pas trop tard ! La programmation est une motivation comme une autre pour avancer.
Cordialement.

Bonjour Céline,
Je n'ai pas trouvé comment fonctionne ton programme pour les nombres parfaits :
10 : INPUT "LIMITE :";L
20 : FOR N=1 TO L
30 : S=0 : M=INT(SQR N)
40 : FOR I=2 TO M
50 : IF I=I*INT(N/I) THEN LET S=S+I+N/I
60 : NEXT I
70 : IF S+1=N THEN PRINT S+1;
80 : NEXT N
Aussi bien sur mon Sharp G850V que sur mon pc en QBASIC, la réponse (avec une limite donnée de 30) est 1 et c'est tout.
Avant que je regarde cela de plus près, n'y a-t-il pas d'erreur de transcription ?
Merci et amitiés numériques.

Bienvenue, et courage ! Amitiés.

Salut, moi, je suis jeune depuis plus longtemps que toi ! Bienvenue.

Probablement ce genre de chose. A+

En attendant, je regarde les nombres premiers, merci Céline pour ce premier programme (qui sur le G850V ne donne que 1, mais je ne sais pas encore pourquoi. Ah! la syntaxe !!!)

Bien, il semble que "le SHARP PC-G850V que prête Remy" (Cf. C.ret) répond différemment du vrai, ce qui ne lui retire rien, mais il ne répond pas au même Basic.
Il serai intéressant de déterminer le programme le plus efficient (le plus rapide sur une machine identique naturellement), et donc probablement le plus "élégant" mathématiquement parlant ! En s'imposant une "limite de calcul" raisonnable comme 500 (au sens des programmes précédents, pas les 500 premiers nombres premiers) .
Mon petit programme, sur Sharp PC-G850V, tel qu'il figure plus haut, et en gros, je n'ai pas de chronomètre sous la main, demande pour les premiers (de 2 à 499) : 24 secondes.
A+