découverte OPL

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
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4557
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: découverte OPL

Message par bernouilli92 » 29 mars 2014 16:46

Woodstock a écrit :Là, je commence à avoir envie d'en trouver un :slime:
Interessé par un psion 3 à petit prix?
HP, Casio, Sharp, Psion, quelques TI et divers autres

Avatar de l’utilisateur
febed01
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 407
Inscription : 21 juin 2009 22:13

Re: découverte OPL

Message par febed01 » 29 mars 2014 17:25

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.
Dernière édition par febed01 le 29 mars 2014 17:31, édité 1 fois.
10 PRINT "One program a day keeps Alzheimer away..." : GOTO 10

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5480
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: découverte OPL

Message par ledudu » 29 mars 2014 17:26

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

Avatar de l’utilisateur
febed01
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 407
Inscription : 21 juin 2009 22:13

Re: découverte OPL

Message par febed01 » 29 mars 2014 17:33

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.
10 PRINT "One program a day keeps Alzheimer away..." : GOTO 10

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5480
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: découverte OPL

Message par ledudu » 29 mars 2014 17:58

Celui-là ?
Image

Avatar de l’utilisateur
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4557
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: découverte OPL

Message par bernouilli92 » 29 mars 2014 18:00

Eh bien ledudu, pour un collectionneur de casio, tu as plutôt une belle brochette de psion.
HP, Casio, Sharp, Psion, quelques TI et divers autres

jxano
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2363
Inscription : 17 févr. 2008 00:34
Localisation : Paris 20ème

Re: découverte OPL

Message par jxano » 29 mars 2014 18:24

febed01 a écrit :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.
Programmeur abscons.

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5480
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: découverte OPL

Message par ledudu » 29 mars 2014 19:15

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 :D ).
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
Image
Image
Dernière édition par ledudu le 30 mars 2014 15:46, édité 3 fois.

Avatar de l’utilisateur
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5404
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: découverte OPL

Message par Marge » 29 mars 2014 21:30

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.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
Marge
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5404
Inscription : 01 oct. 2008 14:39
Localisation : En bas, tout au fond à gauche.

Re: découverte OPL

Message par Marge » 29 mars 2014 21:42

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]
Dernière édition par Marge le 31 mars 2014 02:58, édité 1 fois.
3 hommes, 3 demis, un 3a... Magnéto, Serge !

« Boris », c'est juste Maurice enrhumé.

Avatar de l’utilisateur
febed01
Fonctionne à 1200 bauds
Fonctionne à 1200 bauds
Messages : 407
Inscription : 21 juin 2009 22:13

Re: découverte OPL

Message par febed01 » 29 mars 2014 21:59

ledudu a écrit :Celui-là ?
Celui-là même :)
10 PRINT "One program a day keeps Alzheimer away..." : GOTO 10

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5480
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: découverte OPL

Message par ledudu » 30 mars 2014 01:41

Marge a écrit :Programme très sympa, ledudu, je l'incorporerai également - si tu es d'accord.
Merci + pas de soucis.
febed01 a écrit :Celui-là même :)
Alors je l'ai :D

Avatar de l’utilisateur
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4557
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: découverte OPL

Message par bernouilli92 » 30 mars 2014 11:23

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.
HP, Casio, Sharp, Psion, quelques TI et divers autres

Avatar de l’utilisateur
ledudu
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 5480
Inscription : 26 mars 2009 14:07
Localisation : Ile de France
Contact :

Re: découverte OPL

Message par ledudu » 30 mars 2014 14:12

@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... :D

Avatar de l’utilisateur
bernouilli92
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 4557
Inscription : 21 nov. 2012 14:03
Localisation : Ile de France

Re: découverte OPL

Message par bernouilli92 » 30 mars 2014 14:28

Effectivement, c'est bien indiqué au début du programme ;-)
HP, Casio, Sharp, Psion, quelques TI et divers autres

Répondre

Revenir vers « Tous les Pockets »