Poster un nouveau sujet Poster une réponse
k=a+racine(b) avec k connu
Auteur Message
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Jeu 30 Jui 2011, 20:53   Citer 

Bonjour/bonsoir,
je vous poste un petit programme que j'ai fait ce soir qui permet de trouver un nombre de la forme a+racine(b) à partir d'un nombre décimal.


Code
FnOff
PlotsOff
Prompt A
While A
ClrDraw
ClrHome
iPart(A->B
fPart(A->C
Delvar Z
Repeat 0=round(fPart((C+Z)²),5) or 1=round(fPart((C+Z)²),5
Z+1 -> Z
End
Text(1,1,B-Z,"+racine(",(C+Z)²,")"
DispGraph
Pause
Prompt A
End



Seuls inconvéniant, a et b doivent être des entiers naturels ; si a est entier, on optient a-1"+racine(1)".

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 01 Juil 2011, 13:31   Citer 

L'avant dernier A est le caractère spécial "Á" qui représente thêta.
Alors je me pose des questions. D'autant que le programme ne marche pas correctement pour moi.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 01 Juil 2011, 13:35   Citer 

Désolé, c'est un Z qu'il faut mettre, au dépar c'était théta partout, mais en recopiant, j'ai remplacé par Z mais j'ai oublié celui-là : j'édite.

Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 01 Juil 2011, 13:40   Citer 

Même remplacer le Z ne marche toujours pas. J'obtiens toujours A+rac(1.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 01 Juil 2011, 13:49   Citer 

Tu as mis quoi comme nombre? Essaye par example avec 2+racine(2) et donne moi le résultat.

Merci d'avance
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 01 Juil 2011, 13:51   Citer 

2+racine(2) donne 2+racine(1.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
sandro



Autorisation : Membre
Nb de messages : 1366
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 01 Juil 2011, 13:59   Citer 

Bizard, je ne trouve pas pourquoi, mais essaye avec ça :

Code
1 -> A
While A
Prompt A
ClrDraw
ClrHome
iPart(A->B
fPart(A->C
0 -> Z
Repeat 0=round(fPart((C+Z)²),5) or 1=round(fPart((C+Z)²),5
Z+1 -> Z
End
Text(1,1,B-Z,"+racine(",(C+Z)²,")"
DispGraph
Pause
End



C'est le code que j'ai moi sur la TI, je l'ai modifier au recopiage (je ne voie pas d'où peut venir la différence! crazy.gif

Essaye toujurs, même si je commence à trouver ça bizzard ...

Merci d'avance
Sandro

----------------------
mort à l'inutile, place à la mémoire libre et aux programmes
 Adresse email Haut de page Bas de page 
 
linkakro



Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Ven 01 Juil 2011, 15:47   Citer 

L'erreur venait bien de moi. Une erreur de syntaxe empêchait un sto d'agir.
Maintenant les deux programmes fonctionnent. Merci.

----------------------
ti82statfr: 2008, inscrit: 2009, ti84pocketfr: noël2011, ti30xbmultiview: iut 2012-2014
Perfectionniste, manque tact. Pas le temps de tout publier depuis 2011. Répond toujours aux questions. (rédigé juin 2014)

Pour tout le monde et surtout les débutants, quelques-uns des articles courants :
*Traductions Algorithmie/Ti-Basic.
*Caractères spéciaux sur Tout82
Les défauts du TI-Basic : Goto_versus_algo et DelVar/End/Lbl/guillemet/store
 Adresse email Haut de page Bas de page 
 
Poster un nouveau sujet Poster une réponse





  Page générée en 9 requêtes