Les membres ayant 30 points peuvent parler sur les canaux annonces, projets et hs du chat.
La shoutbox n'est pas chargée par défaut pour des raisons de performances. Cliquez pour charger.

Forum Casio - Autres questions


Index du Forum » Autres questions » Bonjour un petit peu d'aide merci
Stanjjb Hors ligne Membre Points: 2 Défis: 0 Message

Bonjour un petit peu d'aide merci

Posté le 30/10/2007 11:53

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



LienAjouter une imageAjouter une vidéoAjouter un lien vers un profilAjouter du codeCiterAjouter un spoiler(texte affichable/masquable par un clic)Ajouter une barre de progressionItaliqueGrasSoulignéAfficher du texte barréCentréJustifiéPlus petitPlus grandPlus de smileys !
Cliquez pour épingler Cliquez pour détacher Cliquez pour fermer
Alignement de l'image: Redimensionnement de l'image (en pixel):
Afficher la liste des membres
:bow: :cool: :good: :love: ^^
:omg: :fusil: :aie: :argh: :mdr:
:boulet2: :thx: :champ: :whistle: :bounce:
valider
 :)  ;)  :D  :p
 :lol:  8)  :(  :@
 0_0  :oops:  :grr:  :E
 :O  :sry:  :mmm:  :waza:
 :'(  :here:  ^^  >:)

Σ π θ ± α β γ δ Δ σ λ
Veuillez donner la réponse en chiffre
Vous devez activer le Javascript dans votre navigateur pour pouvoir valider ce formulaire.

Si vous n'avez pas volontairement désactivé cette fonctionnalité de votre navigateur, il s'agit probablement d'un bug : contactez l'équipe de Planète Casio.

Planète Casio v4.3 © créé par Neuronix et Muelsaco 2004 - 2024 | Il y a 110 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd