Forum TI-Planet.org

bonjour,

j'aurais besoin d'aide sur un de mes programmes. J'ai réussi a faire 90% du programme mais je bloque sur la dernière partie:

je voudrais créer une section à la fin de mon programme qui demande à l'utilisateur le nombre N de valeur de X à rentrer. Si la valeur 2 est rentré le programme demande alors les valeurs x1 et x2 et retourne ensuite les valeurs Y1 et Y2 d'une équation que j'ai rentré.

j'ai écris des programmes vraiment basique jusqu'à présent, du coup je ne vois pas trop comment faire merci de votre aide

Pour demander un nombre a l'utilisateur tu peux utiliser Input [String ou Variable ou Valeur immediate],Variable ou Prompt Variable[,Variable,...].

Pour tester une egalite, tu as le bloc:

Code: Select all

If Condition
Then
Code en cas de varacite de Condition
[Else
Code en cas de non veracite de Condition]
End]

Tu peux aussi juste utiliser Un If Condition:Instruction en cas de veracite. Mais dans ce cas la, il ne peux executer qu'une seule instruction si Condition se revele vrai.
Le code suivant est donc valide:

Code: Select all

If A=1:Disp "A=1"
Disp "Je ne suis plus dans le If"

ou

If A=1:Then
Disp "A=1"
Else
Disp "A different de 1"
End

ou
If A=1 and B=3:Then
Disp "A=1"
Disp "Et B=3"
End

Les : font exactement la meme chose que un retour a la ligne. Ca permet que ce soit plus comprehensible. Moi je les utilise, a toi de voir. Si tu veux enlever les : dans mes codes, tu peux, mais alors reviens a la ligne avant.
Exemple:

Code: Select all

If A=1:Then
...
End

est exactement le meme code que:

Code: Select all

If A=1
Then
...
End

Voila, j'espere que tu auras compris

Merci de ta reponse, je vais essayer avec tes indication dès que possible.

Je viendrais poster si je n'y parviens toujours pas

Je viens de m'apercevoir que j'avais posté dans la mauvaise section quel est la démarche à suivre pour déplacé ?
Index du forum ‹Forum TI-Nspire (CX) (CAS) ‹Programmation TI-Basic


J'ai écris le programme avec les connaissances que j'ai:

Code: Select all

Define test()=
Prgm
:
:Request "X des pts=",x  ©les valeurs de X doivent être sous la forme d'une liste {x1,x2,..xn}
:Request "Rayon (signe)=",r  ©Attention au signe de r
:Request "Coordonnées Xs=",xs
:Request "Coordonnées Ys=",ys
:
:y:=ys+(((x-xs)^(2))/(2*r)):Disp "valeur des Y=",y
:EndPrgm

j'ai "contourné" le problème en rentrant directement une liste de valeur lors de la demande des X des points ainsi le programme me retourne :

X des pts= {450,500,550,600}
Rayon (signe)= −4000
Coordonnées Xs= 794.792
Coordonnées Ys= 249.757
valeur de y= {234.897,238.894,242.267,245.014}

Si je suis l'utilisateur il n'y a pas de problème mais si je met mon programme sur le site afin d'en faire profité tout le monde, je doute que ce genre de programme soit très friendly

non il était bien dans la bonne catégorie. la personne qui t'a répondu, a écrit du code (e)z80 du coup j'ai pensé qu'il n'était pas dans la bonne catégorie.

Oh, je suis desole. Je ne sais pourquoi j'ai cru que c'etait pour TI-z80

(Il ne l'était pas initialement, apparemment ?)

Bref en tout cas, oui, on peut soit utiliser des Request, ce qui permet d'avoir des explications à chaque demande, soit directement rentrer les valeurs en paramètres de la fonction. C'est plus simple/rapide, mais encore faut-il connaître la fonction à l'avance pour savoir quoi mettre où.

Dans la mesure où il n'y a qu'un seul paramètre, vu que ça semble être l'objectif principal du programme, ça vaut vraiment le coup de 'e saisir en paramètre directement non ?

Tu peux aussi rajouter tes parametres en tant que parametres d'appel a la fonction.
Tu rajoutes le nom des variables entre les () a cote du nom.
Exemple:

Code: Select all

Define monprogramme(arg1,arg2)=
Func
Disp "arg1=",arg1
Disp "arg2=",arg2
EndFunc

Et pour appeler cette fonction tu tapes monprogramme([var1],[var2])
Exemple:

Code: Select all

monprogramme(12,3)

Le programme complet sert à calculer l'implantation d'un raccord circulaire d'une route entre 2 alignement droit. La partie du programme,que je décris dans mon premier post, sert à l'implantation des points complémentaire de la courbe, soit tout les 10,30 ou 50m suivant si c'est une autoroute, voie rapide etc...

J'avais dans l'idée de faire quelque chose comme ceci:

Code: Select all

Define test()=
Prgm
:
:request "nombre de point complémentaire ?", x
:
:If x=1 then
:request "valeur x1=",x1
:EndIf
:If x=2 then
:request "valeur x1=",x1
:request "valeur x2=",x2
:
:If x=3 then
etc..


Le programme aurais placé toutes les valeurs de X dans une liste pour l'utilisateur et aurais déterminé les valeurs Y. Mais je me suis vite aperçu que si x="un-grand-nombre" l'écriture du programme était impossible.

Mais bon le programme tels que je l'ai posté hier fonctionne très bien. La manière la plus simple, je pense, serais d'écrire une page d'instruction qui explique à l'utilisateur que les valeurs de X doivent être écrite sous la forme d'une liste tels que {x1,x2,x3,...xn}