Bonjour à tous, je voulais vous partager mon programme appellé COURS, il concerne plutôt les 1ères S, il sera completé tout au long de l'année
Il y a deux parties, une partie Math, une Physique-Chimie. J'ai essayé d'optimiser du mieux que j'ai pu, mais je ne suis pas un pro là dedans, il est programmer de base pour ti-82stats.fr. J'ai essayé d'être le plus simple possible dans le programme, economiser quelques octets par ci par là, par exemple remplacer "RETOUR" par "BACK" en anglais, histoire de gagner 2 octets ou autre.
Dans la partie Maths, le programme Degre 2 est basé sur le programme degre 2 de tout82, mais il est tout de même modifier.
Je ne mets pas de crédit dans le programme car ça prends des octets et c'est utile pour certains mais bon, si vous souhaitez les mettre, mettez simplement "BELABBAS.A" ou mon pseudo "ANOU".
La 1ère ligne "Lbl 1,2,3... c'est un pense bête pour me souvenir des labels utilisés, vous pouvez donc la supprimé pour gagner encore de la place ou simplement faire Lbl utilisé 1->37
Je vous passe le fichier .83p ainsi que le code à recopier si vous n'avez pas de cable
Si il y a une quelconque optimisation possible, merci de m'en faire part :)Ou si il y a un bug
PS: Certains programmes comme Graph sont inutile, je l'ai fais simplement pour essayer de comprendre la gestion des touches.
PS 2: Il y a le programme COURS et le programme 0DEL, c'est un programme qui se charge de supprimer automatiquement toutes les variables, les chaines et les listes quand vous quittez le programme.
Ce programme fais 113 Octets.
Le programme COURS.83p : http://www.mediafire.com/download/angw18yaax4vu96/COURS.83p
Le programme DEL: http://www.mediafire.com/download/p6amycbjnk0l8kg/_theta_DEL.83p
Il faut utiliser la balise CODE ?
Le code du programme DEL:
Le programme COURS:
Il y a deux parties, une partie Math, une Physique-Chimie. J'ai essayé d'optimiser du mieux que j'ai pu, mais je ne suis pas un pro là dedans, il est programmer de base pour ti-82stats.fr. J'ai essayé d'être le plus simple possible dans le programme, economiser quelques octets par ci par là, par exemple remplacer "RETOUR" par "BACK" en anglais, histoire de gagner 2 octets ou autre.
Dans la partie Maths, le programme Degre 2 est basé sur le programme degre 2 de tout82, mais il est tout de même modifier.
Je ne mets pas de crédit dans le programme car ça prends des octets et c'est utile pour certains mais bon, si vous souhaitez les mettre, mettez simplement "BELABBAS.A" ou mon pseudo "ANOU".
La 1ère ligne "Lbl 1,2,3... c'est un pense bête pour me souvenir des labels utilisés, vous pouvez donc la supprimé pour gagner encore de la place ou simplement faire Lbl utilisé 1->37
Je vous passe le fichier .83p ainsi que le code à recopier si vous n'avez pas de cable
Si il y a une quelconque optimisation possible, merci de m'en faire part :)Ou si il y a un bug
PS: Certains programmes comme Graph sont inutile, je l'ai fais simplement pour essayer de comprendre la gestion des touches.
PS 2: Il y a le programme COURS et le programme 0DEL, c'est un programme qui se charge de supprimer automatiquement toutes les variables, les chaines et les listes quand vous quittez le programme.
Ce programme fais 113 Octets.
Le programme COURS.83p : http://www.mediafire.com/download/angw18yaax4vu96/COURS.83p
Le programme DEL: http://www.mediafire.com/download/p6amycbjnk0l8kg/_theta_DEL.83p
Il faut utiliser la balise CODE ?
Le code du programme DEL:
- Code:
:ClrHome
:DelVar ADelVar BDelVar CDelVar DDelVar EDelVar FDelVar GDelVar HDelVar IDelVar JDelVar KDelVar LDelVar LDelVar MDelVar NDelVar ODelVar PDelVar QDelVar RDelVar SDelVar TDelVar UDelVar VDelVar WDelVar XDelVar YDelVar ZDelVar ΘDelVar Y1DelVar Str1ClrAllLists
:Output(1,1,"
Le programme COURS:
- Code:
:"LBL 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37
:
:Lbl 36
:ClrHome
:Menu("CHOIX","MATH",16,"PHYS",26,"QUIT",37
:Lbl 16
:Menu("CHOIX","DEGRE 2",1,"COLINEAIRE",12,"CARTESIENNE",15,"DERIVE",18,"GRAPH",19,"BACK",5
:Lbl 1
:ClrHome
:Input "A:",A
:Input "B:",B
:Input "C:",C
:If A=0:Then
: Goto 17
:Else
: ‾B/(2A→J
: ClrHome
: Lbl 6
: Menu("FORME","RACINE",2,"CANONIQUE",3,"NEW",4,"BACK",16
: Lbl 4
: Goto 1
: Lbl 2
: ClrHome
: Lbl 17
: ClrHome
: If A=0:Then
: Output(3,3,"C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'EST PAS
: Output(5,3,"DU 2ND DEG
: Pause
: Goto 16
: End
: B²-4AC→D
: Output(1,1,"DELTA=
: Output(1,7,D
: If D>0:Then
: Disp "2 SOLUT°
: (‾B)-(√(D))/2A→E
: (‾B)+(√(D))/2A→F
: Output(4,1,"S1=("
: Output(4,5,‾B
: Output(4,8,"-√(
: Output(4,10,D
: Output(4,12,")/
: Output(4,14,2A
: Output(6,1,"S2=(
: Output(6,5,‾B
: Output(6,8,"+√(
: Output(6,10,D
: Output(6,12,")/
: Output(6,14,2A
: Output(8,1,"SOIT
: Pause
: ClrHome
: Disp "S1=",E►Frac,"S2=",F►Frac
: Pause
: ClrHome
: End
: If D<0:Then
: Menu("NB","REELS",7,"COMPLEXE",8
: Lbl 7
: Output(2,1,"0 SOLUT°
: Pause
: Goto 9
: Lbl 8
: Output(2,1,"2 SOLUT°
: Output(4,1,"S1=(
: Output(4,5,‾B
: Output(4,8,"-I√(
: Output(4,11,‾D
: Output(4,13,")/
: Output(4,15,2A
: Output(6,1,"S2=(
: Output(6,5,‾B
: Output(6,8,"+I√(
: Output(6,11,‾D
: Output(6,13,")/
: Output(6,15,2A
: Pause
: Goto 6
: End
: If D=0:Then
: Output(2,1,"1 SOLUT°
: Output(4,1,"S=
: Output(4,3,‾B
: Output(4,6,"/
: Output(4,7,2A
: Output(6,1,"SOIT
: Pause
: ClrHome
: Disp "S= ",J►Frac
: End
: Lbl 9
: ClrHome
: Menu("GRAPH","YES",10,"NO",11
: Lbl 10
: AxesOn
: StoreGDB 5
: "AX²+BX+C"→Y1
: ZStandard
: DispGraph
: Text(0,0,"SOMMET:
: Text(6,0,"X= ",J
: Text(12,0,"Y= ",Y1(J
: Pause
: RecallGDB 5
: Goto 6
: Lbl 11
: Goto 6
: Lbl 3
: ClrHome
: Output(2,1,"ALPHA=
: Output(2,7,J
: Output(1,1,"ALPHA=‾B/2A
: AJ²+BJ+C→K
: Output(5,1,"BETA=F(X)=
: Output(5,11,K
: Pause
: Goto 6
: Lbl 12
: ClrHome
: Disp "VECT (AB)(CD)
: Input "ˉxAB:",A
: Input "ˉyAB:",B
: Input "ˉxCD:",C
: Input "ˉyCD:",D
: If AD=BC:Then
: Disp "COLI
: Else
: Disp "PAS COLI
: End
: Pause
: Goto 16
: Lbl 15
: ClrHome
: Input "ˉx0:",X
: Input "ˉy0:",Y
: Input "ALPHA:",F
: Input "BETA:",G
: G→A
: ‾F→B
: ‾AX-BY→C
: ClrHome
: Output(1,1,"A=BETA=
: Output(1,9,A
: Output(3,1,"B=‾ALPHA=
: Output(3,12,B
: Output(5,1,"C=
: Output(5,3,C
: Pause
: Goto 16
: Lbl 18
: ClrHome
: Input "F(X):",Str1
: Str1→Y1
: Input "A:",A
: A→X
: ClrHome
: Output(1,1,"F(A):
: Output(1,6,expr(Str1
: Output(2,1,"F\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'(A):
: Output(2,7,nDeriv(Y1,X,A
: Pause
: Goto 16
: Lbl 19
: 1→A
: Lbl 20
: Input "FONCTION:",Str1
: Str1→Y1
: ZStandard
: Goto 21
: Lbl 22
: Xmax+A→Xmax
: Lbl 21
: DispGraph
: Text(1,1,"ECART:",A
: DelVar K
: getKey→K
: While A≤0
: 1→A
: End
: If K=24:Then
: Goto 23
: End
: If K=26:Then
: Goto 22
: End
: If K=25:Then
: Goto 24
: End
: If K=34:Then
: Goto 25
: End
: If K=85:Then
: A-1→A
: Text(1,1,"
: Goto 21
: End
: If K=95:Then
: A+1→A
: Goto 21
: End
: If K=13:Then
: ZStandard
: 1→A
: Goto 21
: End
: If K=104:Then
: Zoom Out
: Goto 21
: End
: If K=103:Then
: Zoom In
: Goto 21
: End
: If K=45:Then
: Goto 16
: End
: If K≠24 and K≠26 and K≠25 and K≠34 and K≠85 and K≠95 and K≠13 and K≠104 and K≠103 and K≠45
: Goto 21
:End
:Lbl 23
:Xmin-A→Xmin
:Goto 21
:Lbl 25
:Ymin-A→Ymin
:Goto 21
:Lbl 24
:Ymax+A→Ymax
:Goto 21
:
:Lbl 26
:1.6*10^‾19→A
:3*10^8→C
:6.63*10^‾34→H
:ClrHome
:Menu("CHOIX","LAMBDA",27,"TEMP",28,"MOLECULE",29,"BACK",36
:Lbl 27
:Menu("VOUS VOULEZ","LAMBDA",30,"JOULE",31,"<stat>e</stat>V",32,"BACK",33
:Lbl 30
:Input "<stat>e</stat>V:",D
:HC/(AD→B
:Disp B
:Pause
:Goto 27
:Lbl 31
:Input "LAMBDA:",D
:HC/(D10^‾9→B
:Disp B
:Pause
:Goto 27
:Lbl 32
:Input "LAMBDA:",D
:((HC/D)/A)10^9→B
:Disp B
:Pause
:Goto 27
:Lbl 33
:Goto 26
:Lbl 28
:Menu("VOUS VOULEZ","CELSIUS",34,"LAMBDA MAX",35,"BACK",33
:Lbl 34
:Input "LAMBDA:",D
:(2.898*10^6/D)-273→B
:Disp B
:Pause
:Goto 28
:Lbl 35
:Input "DEG C°:",D
:2.898*10^6/(D+273→B
:Disp B
:Pause
:Goto 28
:Lbl 29
:12→C
:16→O
:1→H
:Input "C:",D
:Input "H:",F
:Input "O:",E
:DC+EO+HF→R
:Disp R,"GRAMME
:Pause
:Goto 26
:Lbl 5
:Goto 36
:Lbl 37
:prgmΘDEL