| Point entier sur un cercle |
| Auteur |
Message |
boobiboobi
Invité
|
Posté le : Sam 19 Nov 2011, 9:59
|
|
 |
Bonjour à vous voilà je fais appel à vous car j'essaie de faire un programme sur ti 82 stats à partir d'un énoncé mais je n'y arrive pas, pouvez vous m'aider ?
L'énoncé étant: On souhaite déterminer les points entiers de la courbe C c'est à dire les points de cette courbe donc les coordonnées sont entières.
On me donne comme indication:
Initialisation: Effacer la liste L1 et la liste L2
Affecter la variable n à la valeur 0
Traitement: Pour i allant de 0 à 40
Affecter à la variable a la valeur racine carré de (1625_i²)
Si a est entier alors
Affecter à la variable n la valeur n+1
Affecter à la variable L1(n) la valeur i
Affecter à la variable L2(n) la valeur a
Fin_du_si
Fin_du-pour
Sortie: Afficher n
Afficher L1 et L2
Si vous pouviez m'aider ce serait top merci !
|
| |
  |
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 11:11
|
|
|
Bonjour 
Eh bien, ça devrait pouvoir se faire 
| Code |
EffListe L1 \\ se trouve dans le menu stats
EffListe L2
EffVar N \\est égal à : 0->N, mais ça économise un octet
For(I,0,40 //boucle pour
[Racine de](1625_i²->A //j'ai pas très bien compris le(1625_i²)...
If non(PartDec(A:Then //Si A n'a pas de partie décimale, alors :
N+1->N
I->L1(N
A->L2(N
End \\Fin du Si
End \\Fin du pour
EffEcr
Disp N,L1,L2 //Affiche N et les deux listes
|
Est-ce que cela correspond ?
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
 |
|
| |
boobiboobi
Invité
|
Posté le : Sam 19 Nov 2011, 12:00
|
|
|
Je pense que cela marche mais comment fait tu pour rentrer les listes dans le prog. car si je met L1 et L2 comme ça, cela ne marche pas.
|
| |
|
| |
boobiboobi
Invité
|
Posté le : Sam 19 Nov 2011, 12:04
|
|
|
le racine carré de 1625_i² est enfait à la base une fonction carré mais on peut aussi le remplacé par une valeur R où on peut lui donné différentes valeurs.
|
| |
|
| |
The K
Autorisation : Membre
Nb de messages : 850
Inscrit le : Sam 15 Oct 2011, 11:07
|
Posté le : Sam 19 Nov 2011, 13:04
|
|
|
Disp L1,L2 ne marche pas ? 
Euh essaie ça :
| Code |
Output(2,1,L1
Output(4,1,L2
|
Et si ça ne marche pas, quand le programme est fini (après avoir affiché N), fais la fonction rappel (seconde + sto) puis L1, ou L2.
----------------------
La la la ...
Avez-vous pensé à regarder le manuel avant de demander conseil ? Un manuel est fait avant tout pour être consulté : MANUEL
Vous avez un problème avec l'ordinateur avec votre calculatrice ? SOLUTION EN VIDEO
Mes programmes sur le site : Produit scalaire KMorpion Puissance 4 Mastermind
Mes nouveaux programmes de calcul formel : FCarré FPrime
Projet base de données : ici mais abandonné. Trop de travail ... |
| |
|
| |
Persalteas
Autorisation : Membre
Nb de messages : 2086
Inscrit le : Sam 23 Jan 2010, 20:09
|
Posté le : Sam 19 Nov 2011, 13:52
|
|
|
Je pesne que tu ignores simplement comment entrer L1 et L2.
L1 : fais [2nde][1]
L2 : fais [2nde][2]
|
| |
|
| |
boobiboobi
Invité
|
Posté le : Sam 19 Nov 2011, 15:00
|
|
|
c bon merci à vous ça marche nikel !
|
| |
|
| |
Programme TI
Invité
|
Posté le : Lun 12 Déc 2011, 21:53
|
|
|
Bonjour , j'ai le meme programme à faire sauf que je ne trouve pas le " for " pour i allant de 0 à 40 , serait ce possible de me dire où je peux le trouver merci
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Lun 12 Déc 2011, 21:59
|
|
|
For( se trouve dans le menu prgm.
Quand tu cherches une fonction, vas dans le menu catalogue. (2nde+0)
Pour d'autres informations sur les traductions et les emplacements de fonctions consulte l'article dans ma signature.
----------------------
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 |
| |
|
| |
tutu
Invité
|
Posté le : Mar 08 Jan 2013, 19:16
|
|
|
j ai le meme exercice sauf qu il faut modifier le programme de maniere a ajouter l affichage en sortie du nombre de points entiers sur un cercle de centr o et de rayon r
mais je n y arrive pas merci d avance si quelqu un peut m eclairer
|
| |
|
| |
linkakro
Autorisation : Membre
Nb de messages : 3738
Inscrit le : Lun 19 Oct 2009, 21:25
|
Posté le : Mar 08 Jan 2013, 20:10
|
|
|
Il faut parcourir le cercle avec une équation.
Le plus simple est de calculer Y en fonction de X pour X entier et retenir les points quand Y est entier.
X est entre -R et R. On initialise avec une valeur entière le plus proche de -R (ou de R) puis on incrémente (ou décrémente) de 1 à chaque boucle.
L'équation du demi cercle suppérieur est Y=rac(R²-X²) et celle de l'inférieur est Y=-rac(R²-X²)
On se contentera d'utiliser le demi cercle suppérieur car chaque point entier aura un opposé entier.
Il ne faut compter qu'une fois les points aux intersections de l'axe horizontal, il faudrait des tests en plus.
Je choisis de tester si R est entier pour soustraire 2.
| Code | Prompt R // doit être positif
0->N
If not(fPart(R
-2->N
For(X,-int(R),R,1)
rac(R^2-X^2->Y
If not(fPart(Y
Then
N+2->N // un point en haut
End
End
Disp N // écrire N suffit |
En français int=partEnt contrairement à ce qu'on attend.
rac() désigne la racine carrée.
----------------------
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 |
| |
|
| |
