Interessé par un psion 3 à petit prix?Woodstock a écrit :Là, je commence à avoir envie d'en trouver un
découverte OPL
Modérateur : Politburo
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5265
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: découverte OPL
HP, Casio, Sharp, Psion, quelques TI et divers autres
Re: découverte OPL
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.
[Edit] J'ai un 3a disponible aussi, la barre d'icones centrale part de traviole mais ça ne perturbe en rien son fonctionnement.
Modifié en dernier par febed01 le 29 mars 2014 16:31, modifié 1 fois.
10 PRINT "One program a day keeps Alzheimer away..." : GOTO 10
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: découverte OPL
J'aime bien les pions, ça se trouve encore en vg. Le REVO ne fonctionne pas.
Re: découverte OPL
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.
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
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5265
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: découverte OPL
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
-
- Fonctionne à 2400 bauds
- Messages : 2362
- Enregistré le : 16 févr. 2008 23:34
- Localisation : Paris 20ème
Re: découverte OPL
J'ai le « Manuel de programmation » (V1 sept 91) en français, récupéré chez un bouquiniste indépendemment de toute machine.febed01 a écrit :Il existait un bouquin en anglais sur la programmation des Psion (basé sur le Serie-3 "tout court" [...]
Programmeur abscons.
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: découverte OPL
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 :
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
Modifié en dernier par ledudu le 30 mars 2014 15:46, modifié 3 fois.
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: découverte OPL
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.
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 !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
- Marge
- Fonctionne à 14400 bauds
- Messages : 6186
- Enregistré le : 01 oct. 2008 14:39
- Localisation : En bas, tout au fond à gauche.
Re: découverte OPL
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]
Le programme était sur un disque externe, je ne pense pas que ça change grand chose...
[réalisé avec le dEDIT initial de ledudu]
Modifié en dernier par Marge le 31 mars 2014 02:58, modifié 1 fois.
3 hommes, 3 demis, un 3a... Magnéto, Serge !
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Quelques-uns de mes petits programmes pour machines Hewlett-Packard :
15C : Knight's Tour ;
29C : (k-)Permutations, Combinations, Linear Regression and Pseudo-random number ;
34C : Hanoi Towers - Automatic & Manual resolutions ;
67__: A L I E N .
♣ ♦ « Boris », c'était juste Maurice enrhumé. ♥ ♠
Re: découverte OPL
Celui-là mêmeledudu a écrit :Celui-là ?
10 PRINT "One program a day keeps Alzheimer away..." : GOTO 10
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: découverte OPL
Merci + pas de soucis.Marge a écrit :Programme très sympa, ledudu, je l'incorporerai également - si tu es d'accord.
Alors je l'aifebed01 a écrit :Celui-là même
- bernouilli92
- Fonctionne à 14400 bauds
- Messages : 5265
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: découverte OPL
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.
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
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: découverte OPL
@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...
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
- Fonctionne à 14400 bauds
- Messages : 5265
- Enregistré le : 21 nov. 2012 13:03
- Localisation : Ile de France
Re: découverte OPL
Effectivement, c'est bien indiqué au début du programme
HP, Casio, Sharp, Psion, quelques TI et divers autres