Forme racine - Programme d'aide pour les maths |
Auteur |
Message |
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Sam 12 Jan 2008, 19:27
|
|
|
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 ! |
|
|
|
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Ven 07 Nov 2008, 14:26
|
|
|
Es-ce que quelqu'un aurai essayé ce programme?
Parce que moi oui et ça ne marche pas...
|
|
|
|
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
|
|
|
Je viens de recopier et efectivement il y a des truc qui marche mais c'est pas la majorité
tu tape 5 il met *racine*(4
|
|
|
|
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Ven 07 Nov 2008, 15:13
|
|
|
J'ai pas compris. Je dois faire quoi ?
|
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Ven 07 Nov 2008, 15:16
|
|
|
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 ! |
|
|
|
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Ven 07 Nov 2008, 15:26
|
|
|
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"
|
|
|
|
chakal37
Autorisation : Membre
Nb de messages : 18
Inscrit le : Sam 18 Oct 2008, 11:38
|
Posté le : Ven 07 Nov 2008, 19:45
|
|
|
Moi il y a pas de err syntax tu est sur d'avoir bien recopier ?
Voici les exemple d'errur fréquente (dont certaine je fais encore) :
-> /// signifie la touche
9 -> M /// Il y a pas besoin de mettre d'espace
#Racine#( /// Tu fais le signe de la racine mais tu rajoute pas de parenthése
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
|
|
|
|
ToTo
Autorisation : Membre
Nb de messages : 104
Inscrit le : Ven 07 Nov 2008, 11:38
|
Posté le : Ven 07 Nov 2008, 20:15
|
|
|
Béh, je ne sais pas quel est le problème !
|
|
|
|
Jonas
Invité
|
Posté le : Sam 17 Oct 2009, 17:07
|
|
|
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 !
|
|
|
|
coc5
Autorisation : Membre
Nb de messages : 891
Inscrit le : Sam 16 Jui 2007, 13:37
|
Posté le : Lun 07 Déc 2009, 0:26
|
|
|
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 ! |
|
|
|