Taper un programme BASIC sur un MSX

Les derniers trucs auxquels vous avez joué, les derniers ordinateurs que vous avez bidouillés.

Modérateur : Politburo

Répondre
jxano
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2362
Enregistré le : 16 févr. 2008 23:34
Localisation : Paris 20ème

Taper un programme BASIC sur un MSX

Message par jxano »

Bonjour,

En guise d'étrennes, j'ai téléchargé et installé "BlueMsx : un émulateur de jeux vidéo MSX", pas spécialement pour jouer, mais pour la possibilité d'utiliser le BASIC spécifique de ce standard, que je n'ai plus pratiqué depuis près de 30 ans.

Je me suis offert une petite mise en jambes avec un petit algorithme testé et retesté sur nombre de mes poquettes, et même sur des machines amicalement mises à ma disposition.

unknown_0000.png
unknown_0000.png (18.21 Kio) Vu 8970 fois
Programmeur abscons.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Taper un programme BASIC sur un MSX

Message par C.Ret »

Salut jxano.

C'est effectivement une seine activité et une bonne résolution que de bien commencer l'année avec un algorithme bien établi.
Mais, à l'usage, ce fond bleu détonnant n'est-il pas un peu gênant ?

Je préfère un fond noir et quelques couleurs pour aider à interpréter les résultats :
CommodoreC128D - BINOMES GENE.gif
CommodoreC128D - BINOMES GENE.gif (5.8 Kio) Vu 8944 fois
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Avatar du membre
gege
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 7141
Enregistré le : 31 janv. 2008 14:24
Localisation : Banlieue Paârisienne
Contact :

Re: Taper un programme BASIC sur un MSX

Message par gege »

Bonjour,
Merci pour ce bel algorithme !
Je file le tapoter sur un truc.
A+
G.E.
Avatar du membre
badaze
Fonctionne à 14400 bauds
Fonctionne à 14400 bauds
Messages : 8384
Enregistré le : 12 févr. 2007 18:36
Localisation : Pas très loin de Lyon
Contact :

Re: Taper un programme BASIC sur un MSX

Message par badaze »

En ce qui me concerne, je mettrais une virgule entre les différentes sorties écran histoire de donner une meilleure lisibilité.
Tout est bon dans le pocket.
Moi j'aime tout.... Casio, HP, Sharp, TI et les autres sauf que les TI semblent ne pas m'aimer :(
http://www.emmella.fr
Mes Casio - HP - Sharp - TI
Homme invisible.
jxano
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2362
Enregistré le : 16 févr. 2008 23:34
Localisation : Paris 20ème

Re: Taper un programme BASIC sur un MSX

Message par jxano »

C'était juste un galop d'essai, mon programme n'a pas tous les raffinements. Dans certaines versions, j'incluais le calcul du nombre de termes avant l'affichage du premier terme.

Je vous prépare un programme avec un produit de binômes et je vous montre ça.
Programmeur abscons.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Taper un programme BASIC sur un MSX

Message par C.Ret »

badaze a écrit : 02 janv. 2021 08:52 En ce qui me concerne, je mettrais une virgule entre les différentes sorties écran histoire de donner une meilleure lisibilité.
Bonne suggestion qui effectivement améliore la lisibilité et surtout simplifie considérablement le code :
CommodoreC128D - BINOMES GENE - koma.gif
CommodoreC128D - BINOMES GENE - koma.gif (9.62 Kio) Vu 8903 fois
jxano a écrit : 02 janv. 2021 11:43Je vous prépare un programme avec un produit de binômes et je vous montre ça.
J'attends avec impatience le galop suivant, surtout pour le calcul du nombre de termes.

Je m'y suis essayé hier soir pour tenter de faire un affichage plus soigné (bien régulièrement tabulé) mais je n'y suis pas parvenu :(
Il doit pourtant y avoir un moyen simple et efficace. :D

Trop fainéant en cette saison je suis.
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
jxano
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2362
Enregistré le : 16 févr. 2008 23:34
Localisation : Paris 20ème

Re: Taper un programme BASIC sur un MSX

Message par jxano »

C.Ret a écrit : 02 janv. 2021 14:27J'attends avec impatience le galop suivant, surtout pour le calcul du nombre de termes.
Tu peux tâtonner, comme je le fais encore. Il s'agit de calculer une combinaison.
Programmeur abscons.
jxano
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2362
Enregistré le : 16 févr. 2008 23:34
Localisation : Paris 20ème

Re: Taper un programme BASIC sur un MSX

Message par jxano »

C'est mieux comme ça, en noir sur blanc ?

1ère partie
1ère partie
prog_0007.png (21.04 Kio) Vu 8867 fois
2nde partie
2nde partie
prog_0008.png (18.54 Kio) Vu 8867 fois
Exemple
Exemple
prog_0009.png (21.21 Kio) Vu 8867 fois

Avec le produit, l'enjeu de l'affichage est la compacité, donc j'ai travaillé cette partie pour présenter un résultat factorisé. Le calcul du nombre de termes est fait ici sans factorielle ; sur mon Casio fx-790P, j'écris "NCR(E+N-1,E)".
Programmeur abscons.
Avatar du membre
C.Ret
Fonctionne à 9600 bauds
Fonctionne à 9600 bauds
Messages : 3404
Enregistré le : 31 mai 2008 23:43
Localisation : N 49°22 E 6°10

Re: Taper un programme BASIC sur un MSX

Message par C.Ret »

jxano a écrit : 03 janv. 2021 17:46 C'est mieux comme ça, en noir sur blanc ?
C'est Tip-Top !

En plus, j'ai trouvé le moyen d'obtenir ces combinaisons sans même avoir à programmer en BASIC.
HP Prime BINOMES GENE 1.png
HP Prime BINOMES GENE 1.png (10.32 Kio) Vu 8837 fois
HP Prime BINOMES GENE 2.png
HP Prime BINOMES GENE 2.png (13.67 Kio) Vu 8837 fois

Là aussi c'est Tip-Top car en noir sur un beau fond blanc.... par contre question lisibilité ???
SHARP PC-1211 PC-1360 EL-5150 PC-E500 | Commodore C=128D | Texas Instruments Ti-57LCD Ti-74BASICalc Ti-92II Ti-58c Ti-95PROCalc Ti-30XPROMathPrint | Hewlett-Packard HP-28S HP-41C HP-15C HP-Prime HP-71B | CASIO fx-602p | NUMWORKS | Graphoplex Rietz Neperlog | PockEmul | Sommaire des M.P.O. | Ma...dov'il sapone.
Répondre

Retourner vers « A quoi t'as joué hier ? »