La fonction factorielle mais pas tout a faitledudu a écrit :Que fait le programme suivant ?Testé sur PRo-FX1.Code : Tout sélectionner
ENT1:0=1: ST#1:1=1-K1:0=0*1:IF1=K2:2:2:1: ST#2:ANS0: 41 pas sur 127 possibles.
Explorer une FX-201p, une PRO-FX1 ou une PRO 101
Modérateur : Politburo
- charognard
- Fonctionne à 9600 bauds
- Messages : 4412
- Enregistré le : 06 juin 2007 19:28
- Localisation : Indre et loire
- Contact :
Re: Programmer une FX-201p
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: Programmer une FX-201p
Domaine de définition de la fonction [1,+oo[charognard a écrit :La fonction factorielle mais pas tout a fait
F(n)=n!
Ce n'est pas tout-a-fait la fonction factorielle
- charognard
- Fonctionne à 9600 bauds
- Messages : 4412
- Enregistré le : 06 juin 2007 19:28
- Localisation : Indre et loire
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
et factorielle de 0 c'est quoi ?
- Woodstock
- Fonctionne à 2400 bauds
- Messages : 1969
- Enregistré le : 17 mai 2008 11:19
- Localisation : Au fin fond du Santerre ...
Re: Explorer une FX-201p ou une PRO-FX1
Charo a raison : 0! = 1! =0 avec ce programme...
En voici la version FX-502P (en respectant la structure initiale, mais tests inversés car pas de x<F) :
19 pas, la Pro FX-1 est vraiment une dévoreuse de mémoire (et Casio aurait pu faire un système de codes plus simple pour la FX-502P, ça ressemble à de l'hexadécimal !)
En voici la version FX-502P (en respectant la structure initiale, mais tests inversés car pas de x<F) :
Code : Tout sélectionner
Min0 Min1 2 MinF C6-00 C6-01 02 C6-0F
LBL1 1 M-1 MR1 x MR0 = Min0 MR1 F0-01 01 C8-01 C7-01 E1 C7-00 E5 C6-00 C7-01
x=F GOTO2 FF-03 F1-02
x>=F GOTO1 FF-06 F1-01
LBL2 MR0 F0-02 C7-00
I'm the operator
Of my pocket calculator
I am adding
And substracting...
(Kraftwerk, Computer World, 1981)
Of my pocket calculator
I am adding
And substracting...
(Kraftwerk, Computer World, 1981)
- charognard
- Fonctionne à 9600 bauds
- Messages : 4412
- Enregistré le : 06 juin 2007 19:28
- Localisation : Indre et loire
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
sur G850 V
de plus la factorielle de 0 est bien géré là !!
Vive la récursivité
de plus la factorielle de 0 est bien géré là !!
Code : Tout sélectionner
double fact(char n){
return n?n*fact(n-1):1;
}
Vive la récursivité
- Woodstock
- Fonctionne à 2400 bauds
- Messages : 1969
- Enregistré le : 17 mai 2008 11:19
- Localisation : Au fin fond du Santerre ...
Re: Explorer une FX-201p ou une PRO-FX1
Evidemment, la factorielle est sans doute la meilleure démonstration de l'utilité de la récursivité, ça aide...
Tiens, pour la peine (toujours sur FX-502P) :
En un seul pas !
OK, je
Tiens, pour la peine (toujours sur FX-502P) :
Code : Tout sélectionner
INV x! FF-C9
OK, je
I'm the operator
Of my pocket calculator
I am adding
And substracting...
(Kraftwerk, Computer World, 1981)
Of my pocket calculator
I am adding
And substracting...
(Kraftwerk, Computer World, 1981)
- charognard
- Fonctionne à 9600 bauds
- Messages : 4412
- Enregistré le : 06 juin 2007 19:28
- Localisation : Indre et loire
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
et factorielle de 250 avec tout les chiffres significatifs ?
ma NSPIRE Black touchpad cryogénique le fait elle
double
ma NSPIRE Black touchpad cryogénique le fait elle
double
Re: Programmer une FX-201p
Oui, tout à fait... ca me rappelle de très vieux souvenirs ! Et oui j'ai programmé en Fortran, çà ne me rajeunit pas lolWoodstock a écrit :Ce genre de tests triple, ça vous rappelle pas un peu Fortran ?
Code : Tout sélectionner
IF (A-B) 10, 20, 30 indique de sauter aux instructions d'étiquette 10, 20 ou 30 selon que A-B était négatif, nul ou positif.
Sympa cette 201p mais tres gourmande en "pas de programme"
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
Re: Explorer une FX-201p ou une PRO-FX1
Une logique récursive même si pas naturelle est possible sur 502/602Pcharognard a écrit :sur G850 V
de plus la factorielle de 0 est bien géré là !!Code : Tout sélectionner
double fact(char n){ return n?n*fact(n-1):1; }
Vive la récursivité
Code : Tout sélectionner
[P0]
Min00 x=0 GOTO5 x 1 M-00 MR00 GSBP0
LBL5 1 =
Code : Tout sélectionner
factorielle(entier n) :
si n=0
alors renvoyer 1
sinon renvoyer n * factorielle(n-1)
fin si
9!=362880
A partir de 12! la 602P abdique (pile de retour des s/p qui sature...)
Modifié en dernier par Gilles59 le 15 nov. 2010 20:00, modifié 2 fois.
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
Re: Explorer une FX-201p ou une PRO-FX1
250! instantané sur HP50G avec tous les chiffres. Cà donne un nombre de 493 chiffres!charognard a écrit :et factorielle de 250 avec tout les chiffres significatifs ?
ma NSPIRE Black touchpad cryogénique le fait elle
double
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
- charognard
- Fonctionne à 9600 bauds
- Messages : 4412
- Enregistré le : 06 juin 2007 19:28
- Localisation : Indre et loire
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
pareil pour la NSPIRE mais à y réflechir ça sert pas des massesGilles59 a écrit :250! instantané sur HP50G avec tous les chiffres. Cà donne un nombre de 493 chiffres!charognard a écrit :et factorielle de 250 avec tout les chiffres significatifs ?
ma NSPIRE Black touchpad cryogénique le fait elle
double
Re: Explorer une FX-201p ou une PRO-FX1
Il y a probablement des applications qui nécessite un calcul de xxxx! à l'unité prés ? J'essaie 2000! sur la 50G, là ca commence à ramer :O Voilà, çà fait un nombre de 5736 chiffres calculés en qqes secondes à l'unité pres. Ca ne sert peut être a rien mais c'est bluffantcharognard a écrit :pareil pour la NSPIRE mais à y réflechir ça sert pas des massesGilles59 a écrit :250! instantané sur HP50G avec tous les chiffres. Cà donne un nombre de 493 chiffres!charognard a écrit :et factorielle de 250 avec tout les chiffres significatifs ?
ma NSPIRE Black touchpad cryogénique le fait elle
double
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
J'ai retesté le programme des nombres premiers, je publie les codes permettant d'en vérifier la saisie :
[001] 9 E0 L2 1 0 t6 r5 E2 0 r5
[011] r4 1 r5 0 E0 0 E7 L2 2 r5 1 E0 L2 1 r5
[026] r4 2 r5 1 E0 1 E7 L2 2 r5 2 E0 0 E6 1 r5 4 E0 2 E7 9 r5 4 E0 4 E8 9 r5
[054] r4 3 r5 L3 4 E0 2 r5 4 r5 1 r5 1 r5
[068] r4 4 r5 3 E0 0 t1 r5 L3 1 E0 3 r5 2 r5 5 r5 5 r5
[087] r4 5 r5 E3 0 r5 r2 1 r5 00
[001] 9 E0 L2 1 0 t6 r5 E2 0 r5
[011] r4 1 r5 0 E0 0 E7 L2 2 r5 1 E0 L2 1 r5
[026] r4 2 r5 1 E0 1 E7 L2 2 r5 2 E0 0 E6 1 r5 4 E0 2 E7 9 r5 4 E0 4 E8 9 r5
[054] r4 3 r5 L3 4 E0 2 r5 4 r5 1 r5 1 r5
[068] r4 4 r5 3 E0 0 t1 r5 L3 1 E0 3 r5 2 r5 5 r5 5 r5
[087] r4 5 r5 E3 0 r5 r2 1 r5 00
Re: Explorer une FX-201p ou une PRO-FX1
Sauf erreur de ma part, il y avait un test "historique" de cette calc dans un numéro de l'ordinateur de poche...
Ils faisaient références à Liebnitz sur la manière de noter les nombres avec un k et les variables avec un nombre , si je me souviens bien
Ils faisaient références à Liebnitz sur la manière de noter les nombres avec un k et les variables avec un nombre , si je me souviens bien
Casio FX-502P /602P / 603P / FX180P+ / FX4000P / TI57 / TI66 / TI74 Basicalc / TI95 Procalc / HP12C / HP15C LE / DM41L / HP 30B / HP39GII / HP 48SX USA / 49G / 49g+ / 50G / 50G NewRPL / HP Prime / Oric 1 / Amstrad CPC 6128+ CM14 et MM12 / Alice 32
- ledudu
- Fonctionne à 14400 bauds
- Messages : 5643
- Enregistré le : 26 mars 2009 13:07
- Localisation : Ile de France
- Contact :
Re: Explorer une FX-201p ou une PRO-FX1
Celui qui est dans cette rubrique ?
http://casio.ledudu.com/pockets.asp?type=264
http://casio.ledudu.com/pockets.asp?type=264