Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 14 Sep 2011, 14:18
Posté le : Ven 30 Sep 2011, 22:48
Bonjour je suis nouveau aussi les seuls choses que je sait faire c'est d'écrire un programme sur TI-82 stat et enfaite j'aimerai que quelqu'un me trouve ou me fassent un programme sur le theroeme de thales niveau 3eme qui marche merci a la personne qui le fera.
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Ven 30 Sep 2011, 23:38
En voici un que j'ai fait il y a un bout de temps (attention, je ne l'ai pas retesté, mais je crois bien qu'il fonctionnait) :
Code
ClrDraw
FnOff
PlotsOff
GridOff
AxesOff
0 -> Xmin
94 -> Xmax
0 -> Ymax
-62 -> Ymin
-9 -> X
Menu("CONFIGURATION","STANDART",S,"CROISE",C
Lbl S
Line(48,-7,7,-57
Line(48,-7,88,-57
Line(7,-57,88,-57
Line(28,-32,67,-32
Text(0,47,"A
Text(29,22,"D
Text(29,72,"E
Text(55,4,"B
Text(55,90,"C
Pause
Goto 5
Lbl C
Line(30,-5,80,-55
Line(55,-5,15,-55
Line(30,-5,55,-5
Line(80,-55,15,-55
Text(16,37,"A
Text(50,11,"B
Text(50,82,"C
Text(2,56,"D
Text(2,25,"E
Pause
Lbl 5
Menu("JE CHERCHE","UNE LONGUEUR",L,"SI PARALLELE",P
Lbl L
ClrHome
Disp "","","","","
Output(3,1,"AD AE DC
Output(4,1,"--=--=--
Output(5,1,"AB AC DC
Output(1,1,"SI CHERCHE:'X'
Output(2,1,"SI IGNORE:'0'
Input "AB:",A
Input "AC:",B
Input "AD:",C
Input "AE:",D
Input "DE:",E
Input "BC:",F
ClrHome
If A=-9
Then
If DB
Then
Disp "AB=",CB/D>Frac
Else
Disp "AB=",CF/E>Frac
End
End
If B=-9
Then
If CA
Then
Disp "AC=",DA/C>Frac
Else
Disp "AC=",DF/E>Frac
End
End
If C=-9
Then
If DB
Then
Disp "AD=",AD/B>Frac
Else
Disp "AD=",AE/F>Frac
End
End
If D=-9
Then
If CA
Then
Disp "AE=",BC/A>Frac
Else
Disp "AE=",BE/F>Frac
End
End
If E=-9
Then
If DB
Then
Disp "DE=",FD/B>Frac
Else
Disp "DE=",FC/A>Frac
End
End
If F=-9
Then
If DB
Then
Disp "BC=",EB/D>Frac
Else
Disp "BC=",EA/C>Frac
End
End
Goto Q
Lbl P
Input "AB:",A
Input "AC:",B
Input "AD:",C
Input "AE:",D
Input "DE:",E
Input "BC:",F
If DA=BC or DF=BE or CF=AE
Then
Disp "(DE) PARAL (BC)
Else
Disp "NON PARALLELE
End
Pause
Lbl Q
ClrDraw
FnOn
AxesOn
zStandart
Sandro
PS : si tu ne trouve pas une fonction, cherche dans le catalogue.
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 14 Sep 2011, 14:18
Posté le : Sam 01 Oct 2011, 12:29
Enfaite ton programme ne me dit rien il me fait un triangle sur le graph et c'est tout il ne me dit pas combien fait la longueur chercher.Et le graphique est toujours le meme.Et tu peut me passer tout tes progrmmes en ralations avec la 3eme stpl?
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 01 Oct 2011, 12:52
Non, une fois que tu as affiché le graph (qui sert juste à définir les points (ça change si un point est au sommet ou au milieux)), tu fait enter puis tu entre tes lmongueurs et le programme te répond par la longueur marquée par X.
Sandro
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 9
Inscrit le : Mer 14 Sep 2011, 14:18
Posté le : Sam 01 Oct 2011, 12:53
Ok jvai essyae et tu peut me passer tout tes progrmmes en ralations avec la 3eme stpl?Et serieusement je comprend pas la formule genre AD/AB=AE/AC=DC/DC
Disp "AX+BY=C
Disp "DX+EY=F
Prompt A,B,C,D,E,F
If (A/D=B/E)(B/E=C/F)(C/F=A/D)=1
Then
Disp "IL Y A UNE INFI","NITE DE SOLUT","IONS:DX+EY=F
Else
DA -> G
DB -> J
DC -> K
AE -> H
AF -> I
If J-H différend de 0
Then
(K-I)/(J-H) -> Y
(C-BY)/A -> X
Disp "X=",X
Disp "Y=",Y
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 01 Oct 2011, 14:21
Code
Lbl U
Disp "NE PAS ENTRER LE","S CLASSES VIDES
Disp "VALEUR EN ORDRE
Input "CROISSANT",L1
Input "EFFECTIFS",L2
For(C,1,dim(L2
If not(L2
(C
Then
Disp "CLASSE VIDE
Goto U
End
End
cumSum(L2 -> L4
sum(L2 -> E
Lbl T
Disp "EFFECTIF TOTAL",E
Pause
Disp "MOYENNE:",sum(L1*L2)/sum(L2
Pause
min(L1 -> I
Disp "minX=",I
Pause
.1sum(L1 -> B
For(C,1,dim(L2
If B<=L4(C
Goto A
End
Lbl A
L1(C -> J
Disp "DECILE 1 =",J
Pause
.2sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto B
End
Lbl B
L1(C -> K
Disp "DECILE 2 =",K
Pause
.25sum(L1 -> B
For(C,1,dim(L2
If B<=L4(C
Goto C
End
Lbl C
L1(C -> L
Disp "Q1=",L
Pause
.3sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto D
End
Lbl D
L1(C -> M
Disp "DECILE 3 =",M
Pause
.4sum(L1 -> B
For(C,1,dim(L1
If B<=(C
Goto E
End
Lbl E
L1(C -> N
Disp "DECILE 4 =",N
Pause
If fPart(E/2
Then
For(C,1,dim(L2
If sum(L2)/2+.5<=L4(C
Then
Goto F
End
End
Lbl F
L1(C -> O
Disp "Med=",O
Goto théta
End
If not(fPart(E/2
Then
For(C,1,dim(L2
If sum(L2)/2-.5<=L4(C
Goto G
End
End
Lbl G
L1(C -> X
For(C,1,dim(L2
If sum(L2)/2+.5<=L4(C
Goto H
End
Lbl H
.5(X+L1(C -> O
Disp "Med =",O
Lbl théta
Pause
.6sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto I
End
Lbl I
L1(C -> P
Disp "DECILE 6 =",P
Pause
.7sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto J
End
Lbl J
L1(C -> Q
Disp "DECILE 7 =",Q
Pause
.75sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto K
End
Lbl K
L1(C -> R
Disp "Q3=",R
Pause
.8sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto L
End
Lbl L
L1(C -> S
Disp "DECILE 8 =",S
Pause
.9sum(L2 -> B
For(C,1,dim(L2
If B<=L4(C
Goto M
End
Lbl M
L4(C -> T
Disp "DECILE 9 =",T
Pause
max(L1 -> U
Disp "maxX",U
Pause
Disp "ECART INTER QUAR","TILE",R-L
Pause
Disp "ETENDUE",max(L1)-min(L1
Pause
Menu("CHOISIR","RELIRE",T,"AUTRES VALEURS",U,"BOITE A MOUSTACH",V,"QUITTER",Q
Lbl V
ClrDraw
FnOff
PlotsOff
GridOff
AxesOn
.1(U-I -> Xscl
I-.1(U-I -> Xmin
1.02U -> Xmax
62 -> Ymax
0 -> Ymin
Pt-On(I,32
Pt-On(U,32
Line(L,51,L,11
Line(O,53,O,9
Line(R,51,R,11
Line(L,51,R,51
Line(L,11,R,11
Line(J,32,T,32
Lbl M3
Line(J,40,J,24
Line(T,40,T,24
Lbl Q
Pause
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
Autorisation : Membre
Nb de messages : 3767
Inscrit le : Lun 19 Oct 2009, 21:25
Posté le : Sam 01 Oct 2011, 20:28
Le programme de stat n'est pas indispensable car la calculatrice sait faire tout ça.
Mais je crois me souvenir que tu as prétendu (à raison ?) que la définition américaine des quartiles etc est différente de la nôtre...
Je ne retrouve pas mon programme le plus efficace pour les systèmes, alors je ressort celui de sandro :
Il résoud TOUS les systèmes à une solution.
---------------------- 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)
Autorisation : Membre
Nb de messages : 1387
Inscrit le : Ven 25 Mar 2011, 22:58
Posté le : Sam 01 Oct 2011, 21:23
Oui, mais au niveau troisème (où on n'a pas besoin de plus de 2 équations à 2 inconus), ce programme est un peu plus compliqué (var1 et var2 c'est moins parlant que X et Y).
Sinon, effectivement il y a des différences de définition des quartiles et decilles entre france et USA:
en france, on prend la première valeur telle que 10%,20%,25%,30%,[...] des elements soit inférieur ou égal. En revanche, aux USA, si ce n'est pas une valeur réelle, on utilise des moyennes à coefficients (comme pour la médiane sauf évantuellement avec coeficients si c'est pas au milieu).
Sandro
PS : merci quand même
---------------------- mort à l'inutile, place à la mémoire libre et aux programmes
