découverte OPL

[bernouilli92]

Là, je commence à avoir envie d'en trouver un

Interessé par un psion 3 à petit prix?

[febed01]

Super bonne idée, ça vaut bien un gros article de la gazette, et aussi peut-être un dossier dans un blog/site pour une plus large diffusion
[Edit] J'ai un 3a disponible aussi, la barre d'icones centrale part de traviole mais ça ne perturbe en rien son fonctionnement.

[ledudu]

J'aime bien les pions, ça se trouve encore en vg. Le REVO ne fonctionne pas.

[febed01]

Il existait un bouquin en anglais sur la programmation des Psion (basé sur le Serie-3 "tout court") mais je l'ai malheureusement perdu
Enfin c'est pour dire que les possibilités ne serait-ce que graphiques sont nombreuses.

[ledudu]

Celui-là ?

[bernouilli92]

Eh bien ledudu, pour un collectionneur de casio, tu as plutôt une belle brochette de psion.

[jxano]

Il existait un bouquin en anglais sur la programmation des Psion (basé sur le Serie-3 "tout court" [...]

J'ai le « Manuel de programmation » (V1 sept 91) en français, récupéré chez un bouquiniste indépendemment de toute machine.

[ledudu]

J'avais écrit un programme qui génère les nombre premiers à partir d'un nombre donné.
L'objectif n'était pas d'écrire le code le plus court mais d'explorer certaines possibilités du langage.
EDIT : remplacement du dEDIT caractère par un dFLOAT numérique (avec la doc c'est plus simple ).
Le voici :

Code : Tout sélectionner

rem procédure principale : input du n0 (impair) dans une boite de dialogue  et boucle sur les nombres impairs suivants
PROC lancer:
   local n
   dINIT "recherche de nombres premiers"
   dFLOAT n,"Donnez le début:",1,1E20
   PAUSE 80
   DIALOG
   CLS
   debut::
   n=n+2
   IF prims:(n)
      PRINT n;" ";
   ENDIF
   GOTO debut::
ENDP
rem Procédure qui détermine si n est premier
PROC prims:(n)
   local d
   d=1
   suite::
   d=d+2
   IF not frac:(n/d)
      RETURN 0
   ENDIF  
   IF (d+2)**2<=n
      GOTO suite::
   ENDIF
   RETURN 1
ENDP

rem Procédure qui extrait la partie fractionnaire
PROC frac:(r)
    RETURN r-INT(r)
ENDP

[Marge]

Programme très sympa, ledudu, je l'incorporerai également - si tu es d'accord.

En revanche, il est assez lent, je suis encore en train de chronométrer le temps qu'il met pour remplir l'écran à partir de 1967...déjà 5 minutes et la moitié n'est pas encore atteinte.

[Marge]

12 minutes 22. Il faut relativiser, car tout de même (17*12=) 204 premiers ont été trouvés !
Le programme était sur un disque externe, je ne pense pas que ça change grand chose...

[réalisé avec le dEDIT initial de ledudu]

[febed01]

Celui-là ?

Celui-là même

[ledudu]

Programme très sympa, ledudu, je l'incorporerai également - si tu es d'accord.

Merci + pas de soucis.

Celui-là même

Alors je l'ai

[bernouilli92]

Merci ledudu pour ce programme en OPL, le premier programme OPL que je tape depuis plus de 10 ans.
Il y cependant des petites corrections à apporter : la fonction prims ne fonctionne pas avec un nombre pair en entrée et la fonction principale traite tous les nombres de la forme n+2*k.
Si le nombre entré est un nombre pair, la liste obtenue ne contient que des nombres pairs.

[ledudu]

@Bernouilli : merci !
Concernant les nombres pairs, tu as raison, c'est pourquoi les spécifications du programme indiquent au début que le nombre entré doit être impair...

[bernouilli92]

Effectivement, c'est bien indiqué au début du programme