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
FabiersHors ligneMembrePoints: 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


BjornHors ligneMembrePoints: 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
TotoyoHors ligneMembre d'honneurPoints: 15959 Défis: 101 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
Statut : 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
FabcvlrHors ligneMembrePoints: 2186 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 !
Drac0300Hors ligneMembrePoints: 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.
TotoyoHors ligneMembre d'honneurPoints: 15959 Défis: 101 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
Statut : 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
Statut : 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
Statut : Invité

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


il y a plusieur print inutil si il gene retirait
TituyaHors ligneRédacteurPoints: 651 Défis: 15 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
Casio VS Nokia 3310 ? Qui gagne ?




Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2020 | Il y a 75 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