  Planete-casio.fr
|
|
 |
|
 |
 |
| Forums Casio - Problèmes de programmation ou avec un programme |  |
|
 |
|
Index du Forum |
Problèmes de programmation ou avec un programme |
Bonjour un petit peu d'aide merci
|
|
Posté le 30/10/2007 11:53
Bonjour un petit peu d'aide merci :Nouveau sur le forum je recherche des programmes de BTS MUC (prix psycho, calculs commerciaux...)
J'ai trouvé ça et je voudrai le traduire pour ma casio 25
ClrText
-==PRIX PSYCHO==-
Do:GetKey
LpWhile Not Ans
Do
COMBIEN DE PRIX?
ENTREZ VALEUR PUIS
APPUYEZ SUR [EXE]
?→A
{A,9}→Dim Mat A
For 1→B To A
ClrText: :
Locate 1,1,NIVEAU DE PRIX
Locate 1,2,B
?→C
C→Mat A[B,1]
Next
0→D
For 1→B To A
ClrText: :
Locate 1,1,REPONSES PRIX EXCF ?
Locate 1,2,B
?→C
C→Mat A[B,2]
D+C→D
Next
For 1→B To A
Mat A[B,2]*100/D→Mat A[B,3]
Next
For 1→B To A
For 1→G To B
Mat A[G,3]+Mat A[B,4]→Mat A[B,4]
Next
Next
0→D
For 1→B To A
ClrText: :
Locate 1,1,REP QLT INSF
Locate 1,2,B
?→C
C→Mat A[B,5]
C+D→D
Next
For 1→B To A
Mat A[B,5]*100/D→Mat A[B,6]
Next
For A→B To 1 Step –1
For A→G To B Step –1
Mat A[G,6]+Mat A[B,7]→Mat A[B,7]
Next
Next
ClrText
Locate 1,1,CALCUL NON ACHAT
For 1→B To A
Mat A[B,4]+Mat A[B,7]→Mat A[B,8]
Next
Locate 1,2,CALCUL ACHAT
For 1→B To A
100-Mat A[B,4]-Mat A[B,7]→Mat A[B,9]
Next
0→E
For 1→B To A
Mat A[B,9]→D
If D≥E
Then D→E
B→F
IfEnd
Next
Locate 1,3,LE MEILLEUR PRIX EST
Locate 3,4,Mat A[F,1]
Do:GetKey
LpWhile Not Ans
Mat A
ClrText
RECOMMENCER?
[EXE]:OUI
Do:GetKey
LpWhile Not Ans
Ans≠31⇒Break
LpWhile 1
Et une autre question comment ne pas répéter une phase de calcul déjà effectuer, donc le résultat est utile pour la suite du programme.
Merci |
|
|
| Posté le 30/10/2007 12:51 |
|
Tu n'utilises presque pas de Getkey dans ce programme (à part au début et à la fin), ça fait un problème de moins. 
Supprime tous les Locate et ton texte s'affichera sans erreur sur g25.
Mais pour les matrices, c'est la galère ! 
Alors je te conseille d'acheter une g35+.  (pour un BTS, ça peut être bien  ).
|
| ----------------------------------Calculatrices : Graph 35+, G100+
|
|
|
|
| Posté le 30/10/2007 20:40 |
|
| J'avais fait un programme similaire pour rendre service il y a quelques années de ca : regarde pour PRIPSY.FXI la dedans http://grabag.free.fr/fourtout/caltos/
|
| ----------------------------------Calculatrice : Graph 35+
|
|
|
|
| Posté le 30/10/2007 20:43 |
|
euh mais attends, ton programme c'est exactement celui que j'avais fait sans les deux lignes :
Locate 1,6,"Prog : MEITHAL"
Locate 1,7,"MEITHALÎHOTMAIL.COM"
mystérieusement disparues en début de programme 
|
| ----------------------------------Calculatrice : Graph 35+
|
|
|
|
| Posté le 30/10/2007 20:49 |
|
Vu qu'il a l'air utile, je l'ai mis sur le site ici.
le ftp free commence à me gaver d'ailleurs : je ne réponds pas de la validité à long terme du lien que j'ai fourni deux posts plus haut.
|
| ----------------------------------Calculatrice : Graph 35+
|
|
Index du Forum |
Problèmes de programmation ou avec un programme |
Bonjour un petit peu d'aide merci
|
|
 |
|
 |
|
| Chat | |
|
|
|
Veuillez saisir le code affiché sur l'image
|
|
|
|
|
|
 |
www.planete-casio.fr v3.0 © crée par Neuronix et Muelsaco 2007
Il y a 11 connectés |
Nous contacter |
Recherches effectuées |
Liens |
Forum Commun Casio
|
