Seuls les membres ayant 30 points peuvent parler sur le chat.

Forum Casio - Autres questions


Index du Forum » Autres questions » Traduction d'un programme de Ti pour Casio
Fabiers Hors ligne Membre Points: 6 Défis: 0 Message

Traduction d'un programme de Ti pour Casio

Posté le 10/11/2008 12:12

Salut a tous, je suis un petit nouveau sur le forum. Je suis en Seconde et mon prof de Maths nous a donner un prog sur l'algorithme des babyloniens, mais le probleme est que le programme est pour les Ti 89 , et moi j'ai une Casio Graph 35+ , es que quelqu'un s'aurrai le traduire pour ma casio ;

Le progrmme est dans le fichier joint

Merci d'avance

Fichier joint


Bjorn Hors ligne Membre Points: 1 Défis: 0 Message

Citer : Posté le 04/05/2012 02:28 | # | Fichier joint


J'aurai aussi un programme de TI à traduire pour ma casio si vous pouviez m'aider. Merci
Totoyo Hors ligne Membre d'honneur Points: 15993 Défis: 102 Message

Citer : Posté le 04/05/2012 10:31 | #


ClrGraph
"ZOOM"?->Q
"MAX ITER"?->N
63->Z
If Q=0
Then ViewWindow -2.6,1,0.5,-1.2,1.2,0.5
31->Z
IfEnd
(Xmax-Xmin)/127->C
(Ymax-Ymin)/63->D
0->J
Lbl J
Ymin+JD->B
0->I
Lbl I
Wmax+IC->A
A->X
B->Y
1->K
Lbl 1
X²->U
Y²->V
2XY+B->Y
U-V+A->X
K+1->K
U+V>100=>Goto 2
If K<N=>Goto 1
PlotOn(A,B)
If Z=31=>PlotOn(A,B)
Lbl 2
...


Je ne comprends pas la syntaxe des dernières lignes
Je ne te garantis pas le bon fonctionnement de ce code, il y a des différences entre Casio et TI.


guil_2324 Invité

Citer : Posté le 12/11/2014 06:50 | #


Bonjour,
Pourriez vous me donner la traduction de ce code en casio svp je n y comprends rien :huh:
:ClrHome
:ClrDraw
:0→Q
:Vertical Xmin
:Vertical Xmax
:StorePic Pic1
:30→Θ
:While Q=0
:       47→X
:       0→Y
:       ClrDraw
:       Text(25,30,"NIVEAU"
:       Text(25,57,(Θ-25)/5
:       For(A,1,500
:       End
:       ClrDraw
:       RecallPic Pic1
:       For(A,1,Θ
:               Pxl-On(randInt(5,62),randInt(1,93)
:       End
:       StorePic Pic1
:       Pxl-On(Y,X
:       0→K
:       Repeat (K=11) or (K=15)
:               getKey→K
:               If ((K=12) and (X>2)) or ((K=14) and (X<92))
:               Then
:                       Pxl-Off(Y,X
:                       X+2(K=14)-2(K=12)→X
:                       Pxl-On(Y,X
:               End
:       End
:       Repeat (Y=62) or (Q=1)
:               getKey→K
:               X+(K=15)-(K=11)→X
:               Y+1→Y
:               Pxl-Test(Y,X)→Q
:               Pxl-On(Y,X
:       End
:       Θ+5→Θ
:End
:Text(15,33,"PERDU !"
:Text(23,30,"NIVEAU"
:Text(23,57,(Θ-30)/5
:Pause
:ClrDraw
:ClrHome

Merci d avance
Fabcvlr Hors ligne Membre Points: 2197 Défis: 41 Message

Citer : Posté le 12/11/2014 09:00 | #


Je suis un peu surpris de voir des programmes pour Ti89 ici ! je pense que dans les programmes de l'éducation Nationale les algorithmes se font essentiellement sur TI82 et Graph 35 et les livres de maths proposent des solutions pour les 2 modèles.
Généralement, ces petits programmes concernent maxi une 10aine de lignes, Si vous voulez des programmes pour Casio, le site en est remplit ! Servez-vous... mais je pense que Planète-Casio n'a pas vocation a traduire du Texas Instrument en Basic Casio ! De plus, il y a quelques instructions intraduisibles de l'un a l'autre.
Après je peux me tromper....
L'expérience des autres, c'est comme une chandelle que l'on tient allumée dans son dos par une nuit de tempête !
Drac0300 Hors ligne Membre Points: 839 Défis: 39 Message

Citer : Posté le 12/11/2014 11:54 | #


Il me semble que ce genre de traduction peut se faire avec festiv'algo

EDIT : Non, visiblement ça ne fonctionne pas avec ce code...
Peut-être que le basic de ce modèle n'est pas supporté, je ne connais pas les calculatrices TI...
Dans Z/1Z, 42==666
Coïncidence ? Je ne pense pas.
Totoyo Hors ligne Membre d'honneur Points: 15993 Défis: 102 Message

Citer : Posté le 12/11/2014 12:54 | #


Traduction littérale, sans souci de compatibilité.
Tu as cet excellent tutoriel pour apprendre le Basic Casio : http://www.planet-casio.com/Fr/programmation/
BG-None
0→Q
StoPict 1
30→Θ
While Q=0
47→X
0→Y
Cls
Text 25,30,"NIVEAU"
Text 25,57,(Θ-25)/5
For 1->A To 500
Next
Cls
RclPict 1
For 1->A,To Θ
PxlOn RanInt(5,62),RanInt(1,93)
Next
StoPict 1
PxlOn Y,X
0→K
Do
Getkey→K
If (K=12 And X>2) Or (K=14 And X<92)
Then
PxlOff Y,X
X+2(K=14)-2(K=12)→X
PxlOn Y,X
IfEnd
LpWhile K=11 or K=15
Do
Getkey→K
X+(K=15)-(K=11)→X
Y+1→Y
PxlTest(Y,X)→Q
PxlOn(Y,X
LpWhile Y=62 Or Q=1
Θ+5→Θ
WhileEnd
Text 15,33,"PERDU !"
Text 23,30,"NIVEAU"
Text 23,57,(Θ-30)/5
Do
LpWhile Getket != 31



guil_2324 Invité

Citer : Posté le 14/11/2014 16:51 | #


Merci beaucoup totoyo en fait j ai une calculatrice casio
mais j avais trouve ce programme sur internet seulement en ti
dont certaines expressions n ont rien a voir avec le casio
Merci aussi drac0300 pour le site de traduction je ne le connaissais pas
il me sera très utile.


bidgi Invité

Citer : Posté le 14/01/2020 21:27 | # | Fichier joint


Bonjour, help me plz. je savait pas qu'il y avait une diférence etre ti et casio sur les programme quelqu'un de sympatique peut me traduire sa svp
--------------------------------------------------------------------------------------------------------------------
from math import*

print ('-----=- Menus -=-----')
print ('')
print ('Choisir une forme de congruence :')

print ('1 : a^n|||r[m]')
print ('2 : x+y|||r[m]')
print ('3 : x^n+y^n|||r[m]')
print ('4 : xa+yb|||r[m]')
print ('5 : a*b |||r[m]')
Choix = int (input('Numéro du choix :'))

if (Choix == 1):
    print ('-----=- A^n|||r[m] -=-----')
    dividende = float(input("Chiffre a diviser :"))
    exposent = float(input("exposent : (sinon 1)"))
    modulo = float(input("modulo :"))
    dividende1 = dividende ** exposent;
    reste = dividende1 % modulo;
    quotient = dividende1 // modulo;
    print ('--------------------')
    print (dividende,'^',exposent,'||| ... [',modulo,']')
    print (dividende,'^',exposent,'|||',reste,'[',modulo,']')
    print ('Donc le reste de la division euclidienne de ',dividende,'^',exposent,' par ',modulo,' est ',reste)
    print ('--------------------')

elif (Choix == 2):
    print ('-----=- x+y=r[m] -=-----')
    print ('')
    r1 = float(input("reste de x :"))
    r2 = float(input("reste de y :"))
    modulo = float(input("modulo :"))
    r = r1 + r2;
    print ('x ||| ' ,r1, '[',modulo,']')
    print ('y ||| ' ,r2, '[',modulo,']')
    print ('x + y |||',r1,'+',r2,'||| [',modulo,']')
    print ('x + y ||| ',r,'[',modulo,']')

    if (r>=modulo):
        print ('')
        print ('Or ',r,' est supérieur a ',modulo,'donc')
        print ('')
        r3 = r % modulo;
        print (r,'|||',r3,'[',modulo,']')
        print ('')
        print ('Donc ',r3,' est le reste de la division euclidienne de x + y par ',modulo)
        print ('--------------------')

    else :
        print ('Donc ',r,' est le reste de la division euclidienne de x + y par ',modulo)
        print ('--------------------')

elif (Choix == 3):
    print ('-----=- x^n+y^n=r[m] -=-----')
    print ('')
    r1 = float(input("reste de x :"))
    r2 = float(input("reste de y :"))
    n = float(input("exposent n :"))
    modulo = float(input("modulo :"))
    r11 = r1 ** n;
    r22 = r2 ** n;
    print ('x ||| ' ,r1, '[',modulo,']')
    print ('x^2 ||| ',r1,'^2 [',modulo,']')
    print ('x^2 ||| ',r11,' [',modulo,']')

    if (r11 >= modulo):
        r111 = r11 % modulo;
        print ('mais',r11,' ||| ',r111,' [',modulo,']')
        print ('x^2 ||| ',r111,' [',modulo,']')
        print('')
        print ('y ||| ' ,r2, '[',modulo,']')
        print ('y^2 ||| ',r2,'^2 [',modulo,']')
        print ('y^2 ||| ',r22,' [',modulo,']')

        if (r22 >= modulo):
            r222 = r22 % modulo;
            print ('mais',r22,' ||| ',r222,' [',modulo,']')
            print ('y^2 ||| ',r222,' [',modulo,']')
            r = r111 + r222
            print ('Donc x^2 + y^2 |||',r,' [',modulo,']')
            if (r>=modulo):
                print ('')
                print ('Or ',r,' est supérieur a ',modulo,'donc')
                print ('')
                r3 = r % modulo;
                print (r,'|||',r3,'[',modulo,']')
                print ('')
                print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

            else :
                print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

        else:
            r = r111 + r22
            print ('Donc x^2 + y^2 |||',r,' [',modulo,']')
            if (r>=modulo):
                print ('')
                print ('Or ',r,' est supérieur a ',modulo,'donc')
                print ('')
                r3 = r % modulo;
                print (r,'|||',r3,'[',modulo,']')
                print ('')
                print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

            else :
                print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

    else:
        print('')
        print ('y ||| ' ,r2, '[',modulo,']')
        print ('y^2 ||| ',r2,'^2 [',modulo,']')
        print ('y^2 ||| ',r22,' [',modulo,']')

        if (r22 >= modulo):
            r222 = r22 % modulo;
            print ('mais',r22,' ||| ',r222,' [',modulo,']')
            print ('^2 ||| ',r222,' [',modulo,']')
            r = r11 + r222
            print ('Donc x^2 + y^2 |||',r,' [',modulo,']')
            if (r>=modulo):
                print ('')
                print ('Or ',r,' est supérieur a ',modulo,'donc')
                print ('')
                r3 = r % modulo;
                print (r,'|||',r3,'[',modulo,']')
                print ('')
                print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

            else :
                print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

        else:
            r = r11 + r22
            print ('Donc x^2 + y^2 |||',r,' [',modulo,']')
            if (r>=modulo):
                print ('')
                print ('Or ',r,' est supérieur a ',modulo,'donc')
                print ('')
                r3 = r % modulo;
                print (r,'|||',r3,'[',modulo,']')
                print ('')
                print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

            else :
                print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
                print ('--------------------')

elif (Choix == 4):
    print ('-----=- xa+yb=r[m] -=-----')
    print ('')
    x = float(input(" x :"))
    r1 = float(input("reste de x :"))
    y = float(input("y :"))
    r2 = float(input("reste de y :"))
    modulo = float(input("modulo :"))
    print (x,'*a|||',r1,' [',modulo,']')
    print (y,'*b|||',r2,' [',modulo,']')
    x1 = x * r1;
    print ('a|||',x1,' [',modulo,']')
    y1 = y * r2;
    print ('b|||',y1,' [',modulo,']')
    print (x,'*a+',y,'*b |||',x1,'+',y1,' [',modulo,']')
    r = x1 + y1;
    print (x,'*a+',y,'*b |||',r,' [',modulo,']')
    if (r>=modulo):
        print ('')
        print ('Or ',r,' est supérieur a ',modulo,'donc')
        print ('')
        r3 = r % modulo;
        print (r,'|||',r3,'[',modulo,']')
        print ('')
        print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
        print ('--------------------')

    else :
        print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
        print ('--------------------')

elif (Choix == 5):
    print ('-----=- a*b |||r[m] -=-----')
    print ('')
    r1 = float(input("reste de a :"))
    r2 = float(input("reste de b :"))
    modulo = float(input("modulo :"))
    print ('a*b |||',r1,'*',r2,' [',modulo,']')
    r = r1 * r2;
    print ('a*b |||',r,' [',modulo,']')

    if (r>=modulo):
        print ('')
        print ('Or ',r,' est supérieur a ',modulo,'donc')
        print ('')
        r3 = r % modulo;
        print (r,'|||',r3,'[',modulo,']')
        print ('')
        print ('Donc ',r3,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
        print ('--------------------')

    else :
        print ('Donc ',r,' est le reste de la division euclidienne de x^n + y^n par ',modulo)
        print ('--------------------')


--------------------------------------------------------------------------------------------------------------------


bidgi Invité

Citer : Posté le 14/01/2020 21:29 | #


il y a plusieur print inutil si il gene retirait
Tituya Hors ligne Rédacteur Points: 1128 Défis: 16 Message

Citer : Posté le 14/01/2020 21:33 | #


C'est du python ça, si tu as python sur ta casio, tu peux lancer ce script
Bretagne > Reste du globe
(Et de toute façon, vous pouvez pas dire l'inverse grâce à Bzh)




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
Pour coloriser votre code, cliquez ici.
Sinon cliquez sur le bouton ci-dessous.
: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 v42 © créé par Neuronix et Muelsaco 2004 - 2020 | Il y a 47 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