Forum Casio - Traduction d'un programme de Ti pour Casio par Fabiers

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: 16103 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.

<<< >>> Teste mon générateur de mots nouveaux

<<<
>>> Random Youtube Video

<<<

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: 2275 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: 16103 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

<<< >>> Teste mon générateur de mots nouveaux

<<<
>>> Random Youtube Video

<<<

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 Administrateur Points: 2156 Défis: 26 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 le contraire)Projet en cours : Adoranda

Mes programmes

Hésite pas à faire un test !

Stick hero
MultipliCasio
RDM Calculs
Back Mirror
A Switch To The Top C

Nom d'utilisateur

Adresse email

Message

Ajouter un spoiler(texte affichable/masquable par un clic)

Nom du lien (facultatif): Adresse du lien:

Adresse de l'image: Alignement de l'image: Normal Flottante à gauche Centrée Flottante à droite Redimensionnement de l'image (en pixel): Largeur : Hauteur :

Adresse de la vidéo:

Pseudo du profil: Afficher la liste des membres

Auteur de la citation (faculatif):

Texte de déroulage du spoiler (modification faculative): Texte d'enroulage du spoiler (modification faculative):

Titre de la barre de progression: Pourcentage de la barre de progression entre 1 et 100:

→ ⇒ √ Σ ∫ ≠ ≥ ≤ π θ ◢ ± α β γ δ Δ σ ≈ ∞ ∈ λ

Fichier joint

Me prévenir par email lorsqu'une réponse est postée

Combien font huit fois huit ?

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