Forum

Catégorie : Programmes
Forum : Les programmes des internautes
Vues : 4458
Réponses : 9
Type : discussion
Etat : réponses autorisées
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.

Forme racine - Programme d'aide pour les maths

coc5 le 12/01/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
ToTo le 07/11/2008 à 14:26
Es-ce que quelqu'un aurai essayé ce programme?
Parce que moi oui et ça ne marche pas... angry.gif
chakal37 le 07/11/2008 à 15:02
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
ToTo le 07/11/2008 à 15:13
J'ai pas compris. Je dois faire quoi ?
coc5 le 07/11/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)
ToTo le 07/11/2008 à 15:26
Look: (ligne 21 de ton programme )
Citation
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 le 07/11/2008 à 19:45
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
ToTo le 07/11/2008 à 20:15
Béh, je ne sais pas quel est le problème !
Jonas le 17/10/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 le 07/12/2009 à 00:26
Merci, je penserais à optimiser, je pense qu'en parcourant les valeures dans l'autre sens il pourrait peut être donner la simplification maximum.
Avertissement :
Il s'agit d'une page optimisée pour la navigation mobile. Voir la page originale.