Poster un nouveau sujet Poster une réponse
Forme racine - Programme d'aide pour les maths
Auteur Message
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Sam 12 Jan 2008, 19:27   Citer 

Ce programme utilitaire permet de transformer un nombre en forme racine. Du genre : cos(#Pi#/4) -> Racine(2)/2. (Et de même 3 -> Racine(9) mais bon^^)

Fichier
--------------------------------
http://www.badongo.com/file/7281143

Image
--------------------------------




Source
------------
http://www.badongo.com/file/7281196








Code
ClHome
While 1
Input "",C
If not(C:Then
Disp 0
Else:C<0 -> S
round(abs(C),9 -> C
15 -> M:0 -> J
{0 -> #L2#
ClrHome:1 -> F
For(I,2,12
C/round(#Racine#(I),9 -> D
D -> #L2#(I
15 -> K
Repeat fPart(D10^(K:K-1 -> K:End
If M>K:Then
K -> M:I -> J:End
End:End
If M>3:Then
Disp "AUCUNE RACINE
Else:17
If 1>#L2#(J:Then
1/#L2#(J -> #L2#(J
15-int(log(#L2#(J
Output(2,Ans,#L2#(J
Output(2,Ans-2,")/
Ans-1
Else
If 1<#L2#(J:Then
10-int(log(#L2#(J
Output(2,Ans,#L2#(J
18
End:End
Ans-2-int(log(J
Output(2,Ans,J
Output(2,Ans-2,"#Racine#(
If S:Output(2,Ans-3,"-
End:End:End



----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
ToTo



Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
Posté le : Ven 07 Nov 2008, 14:26   Citer 

Es-ce que quelqu'un aurai essayé ce programme?
Parce que moi oui et ça ne marche pas... angry.gif

 Adresse email Haut de page Bas de page 
 
Google_AdSense



Publicité    



 
chakal37



Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
Posté le : Ven 07 Nov 2008, 15:02   Citer 

Je viens de recopier et efectivement il y a des truc qui marche mais c'est pas la majorité crazy.gif

tu tape 5 il met *racine*(4 crazy.gif

 Adresse email Haut de page Bas de page 
 
ToTo



Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
Posté le : Ven 07 Nov 2008, 15:13   Citer 

J'ai pas compris. Je dois faire quoi ?

 Adresse email Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Ven 07 Nov 2008, 15:16   Citer 

Si ce code ne marche pas, je vais poster la version actuellement effective sur ma Ti, elle marche sans problème. Mais pourtant je l'ai testé celle-là, et ça marche. Une erreur de recopiage arrive facilement.

Note : ce programme affichera tout le temps en racine (ex: 1 -> *racine*(1), mais aussi cos(*Pi*/2) -> (*racine*(2))/2)

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
ToTo



Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
Posté le : Ven 07 Nov 2008, 15:26   Citer 

Look: (ligne 21 de ton programme )

Citer
If M>3:Then
Disp "AUCUNE RACINE
Else:17
If 1>#L2#(J:Then



C'est au niveau du "Else" qu'il y a un problème "ERR:SYNYAXE"

 Adresse email Haut de page Bas de page 
 
chakal37



Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
Posté le : Ven 07 Nov 2008, 19:45   Citer 

Moi il y a pas de err syntax crazy.gif tu est sur d'avoir bien recopier ?

Voici les exemple d'errur fréquente (dont certaine je fais encore) :

-> /// signifie la touche
Code
sto->


9 -> M /// Il y a pas besoin de mettre d'espace happy.gif
#Racine#( /// Tu fais le signe de la racine mais tu rajoute pas de parenthése bigmouth.gif

Voila les erreur fréquente, sinon pour le Else, tu a bien fait prgm puis 2 ?

Mais même si tu a tout copier correctement il y a une erreur ou bien j'ai raté un truc moi aussi (plus possible mais la va faloir attendre demain avant que je récupére ma calculatrice happy.gif

 Adresse email Haut de page Bas de page 
 
ToTo



Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
Posté le : Ven 07 Nov 2008, 20:15   Citer 

Béh, je ne sais pas quel est le problème !

 Adresse email Haut de page Bas de page 
 
Jonas
Invité
Posté le : Sam 17 Oct 2009, 17:07   Citer 

Absolument génial ! Très utile pour la valeur exact du cosinus ou du sinus d'un angle. Dommage qu'il ne fasse pas aussi simplification de racine.
Ex : [racine de]48 = 2x[racine de]12 d'après le prog, alors que c'est aussi 4x[racine de]3 une fois simplifié totalement.
C'est le suel bémol, sinon bravo et merci !

  Haut de page Bas de page 
 
coc5
Avatar

Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
Posté le : Lun 07 Déc 2009, 0:26   Citer 

Merci, je penserais à optimiser, je pense qu'en parcourant les valeures dans l'autre sens il pourrait peut être donner la simplification maximum.

----------------------
Ne cliquez pas ici !
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Powered by Fire-Soft-Board v1.0.10 © 2004 - 2024 Groupe FSB
Page générée en 9 requêtes
BlackOne par Grimmlink