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 - Discussions


Index du Forum » Discussions » Héron d'Alexandrie
Bdodul Hors ligne Membre Points: 9 Défis: 0 Message

Héron d'Alexandrie

Posté le 10/03/2016 08:13

bonjour, je recherche quelqu'un qui saurait transformer ce programme en BASIC (issu de mon ancienne fx 850p) en programme pour ma nouvelle fx cg20 ? merci d'avance pour vos réponses

Fichier joint


Hackcell Hors ligne Maître du Puzzle Points: 1531 Défis: 11 Message

Citer : Posté le 10/03/2016 08:25 | #


c'est moche et je vais me faire taper dessus, mais essaye ça.
"formule de héron"
lbl1
"a=" ?->À
"b=" ?->B
"c=" ?->C
ton premier calcul ->H
ton deuxième calcul ->D
clrtext
locate 1,1,ta chaine de caractère
locate longueur de ta chaîne +2,1,variable à afficher
...
goto 1

je te laisse un peu travailler par toi même, mais c'est pas très compliqué
Et si tu bloque: http://www.planet-casio.com/Fr/logiciels/dl_logiciel.php?id=72&file=1
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 10/03/2016 12:24 | #


Correction : faire une boucle avec des labels n'est jamais adapté.
De même, pour ce genre de programme il est inutile d'utiliser les strings, exprimer le résultat pas à pas est tout aussi clair.

Et quand tu postes du code, utilise la balise [co[color=auto]d[/color]e]

"Formule d'Héron"
While 1
"a="?→À
"b="?→B
"c="?→C
ton premier calcul→H
ton deuxième calcul→D
"H="
H◢
"Cote="
D◢
"Surface="
H*B/2◢
WhileEnd

Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Hackcell Hors ligne Maître du Puzzle Points: 1531 Défis: 11 Message

Citer : Posté le 10/03/2016 13:37 | #


Merci DS, et je n'utilisait pas des chaines de caractères, c'était pour lui dire de mettre son texte.
[Hs]Et pour la balise je la mettrai volontiers, si j'avais plus de ram (512mo)[/Hs]
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 10/03/2016 13:58 | #


Heu, je ne vois pas ce que la RAM vient faire là-dedans
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Dragonbleu Hors ligne Membre Points: 466 Défis: 7 Message

Citer : Posté le 10/03/2016 14:13 | #


Ehhh des Disp.

Pour la RAM, j'avoue ne pas comprendre. C'est une blague ?
Attends... Balise... RAM...

Non, je ne vois pas.

Ah, ou alors, son appareil qui lui permettait de poster est vachement lent, et rame plus qu'un canoë. C'est pour cela qu'il a besoin de plus de RAM. Après, c'est une hypothèse, il faudra demander à Hackcell un éclaircissement sur sa phrase, ma foi fort énigmatique.

Enfin bon, on ne s'éloigne pas du sujet du topic ?
Bien sûr que si, c'est pourquoi je vais m'arrêter là.

sur ce, salutations, jeunes gens. Et comme on dit dans le milieu, ghal-la !


Hackcell Hors ligne Maître du Puzzle Points: 1531 Défis: 11 Message

Citer : Posté le 10/03/2016 15:40 | #


Ou alors remplace disp par:
Do
Lpwhile Getkey≠31

c'est mieux, ça évite d'avoir des disp qui s'affichent.
Et je reviens pour dire que dragonbleu a raison, mon téléphone rame énormément, au point que le clavier Google ne s'ouvre pas systématiquement, alors le bouton pour mettre du code... et il faut dire que la co du lycée aide pas, désolé de m'être mal expliqué.
Lephenixnoir En ligne Administrateur Points: 24575 Défis: 170 Message

Citer : Posté le 11/03/2016 11:18 | #


Attention, l'équivalent véritable du Disp est
Do:LpWhile Getkey
Do:LpWhile Getkey≠31

Car, ne l'oubliez pas, si vous gardez la touche [EXE] pressée il ne faut pas que le programme continue de sauter tous les Disp sans attendre
Mon graphe (11 Avril): ((Rogue Life || HH2) ; PythonExtra ; serial gint ; Boson X ; passe gint 3 ; ...) || (shoutbox v5 ; v5)
Bdodul Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 11/03/2016 20:53 | #


Hackcell a écrit :
c'est moche et je vais me faire taper dessus, mais essaye ça.
"formule de héron"
lbl1
"a=" ?->À
"b=" ?->B
"c=" ?->C
ton premier calcul ->H
ton deuxième calcul ->D
clrtext
locate 1,1,ta chaine de caractère
locate longueur de ta chaîne +2,1,variable à afficher
...
goto 1

je te laisse un peu travailler par toi même, mais c'est pas très compliqué
Et si tu bloque: http://www.planet-casio.com/Fr/logiciels/dl_logiciel.php?id=72&file=1


merci, je vais m’exercer des que j'aurai reçu ma nouvelle calculatrice (mardi ou mercredi) , je vais regreter ma vieille 850p

Ajouté le 13/03/2016 à 18:04 :
J'ai un petit problème avec les fonctions while1 et whileEnd , comment est ce que je sort de la boucle ?
je pensais rajouter une commande du genre:
voulez vous effectuer le calcul ? 1: oui (direction "a=" )
2: non (direction exit)

Qui peut m'aider? pour les commandes ? merci
Je vais regretter ma vieille FX 850P!!
Hackcell Hors ligne Maître du Puzzle Points: 1531 Défis: 11 Message

Citer : Posté le 13/03/2016 18:07 | #


Utilise des label
Plus sirieusement, introduit une condition dans ton while, et a la fin pose la question, et donne une valeur a une variable en fonction de la reponse. Et utilise lavaleurde cette variable dans ton while. Je suis clair? (Je pense que non...)
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 13/03/2016 18:15 | #


Non. Pas de labels. Surtout pas pour ça.

Pour sortir de la boucle (modifications en bleu) :

"Formule d'Héron"
[blue]Do[/blue]
"a="?→À
"b="?→B
"c="?→C
ton premier calcul→H
ton deuxième calcul→D
"H="
H◢
"Cote="
D◢
"Surface="
H*B/2◢
[blue]"1: Continuer"
"2: Quitter"
?→X
LpWhile X≠2[/blue]


L'avantage de la boucle Do … LpWhile condition est qu'elle s'éxécute au moins une fois
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Bdodul Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 13/03/2016 22:03 | #


Dark storm a écrit :
Non. Pas de labels. Surtout pas pour ça.

Pour sortir de la boucle (modifications en bleu) :

"Formule d'Héron"
[blue]Do[/blue]
"a="?→À
"b="?→B
"c="?→C
ton premier calcul→H
ton deuxième calcul→D
"H="
H◢
"Cote="
D◢
"Surface="
H*B/2◢
[blue]"1: Continuer"
"2: Quitter"
?→X
LpWhile X≠2[/blue]


L'avantage de la boucle Do … LpWhile condition est qu'elle s'éxécute au moins une fois


Super ! merci, le seul truc , comme je n'ai pas trouvé le symbol ≠ j'ai inversé la commande.
Je vais regretter ma vieille FX 850P!!
Dark storm En ligne Labélisateur Points: 11641 Défis: 176 Message

Citer : Posté le 13/03/2016 22:08 | #


Shift > Menu (Vars) > F6 > F3 (Rel) > F2
Finir est souvent bien plus difficile que commencer. — Jack Beauregard
Bdodul Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 14/03/2016 06:53 | #


Dark storm a écrit :
Shift > Menu (Vars) > F6 > F3 (Rel) > F2


super merci, j'avance, mon programme tourne

Ajouté le 14/03/2016 à 07:04 :
maintenant je vais essayer de mettre une image qui explique ou se trouve placé les différents coté du triangle et sa hauteur calculé et à quel cote.
Je vais regretter ma vieille FX 850P!!
Bdodul Hors ligne Membre Points: 9 Défis: 0 Message

Citer : Posté le 15/03/2016 21:48 | # | Fichier joint


quelqu'un pour m'aider à mettre une image ? car j'ai bien essayer avec photocasio, mais le rendu des lettres ne donne rien ?
je vous joins un model.
Je vais regretter ma vieille FX 850P!!

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 285 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