%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:256 File Name:AIDE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "POUR TOUTE VALIDATION AUTRE QUE ENTRER DES VALEURS, CETTE VALIDATION CE FAIT PAR LA TOUCHE SHIFT POUR UNE MEILLEUR ERGONOMIE. POUR PLUS D'AIDE, VEUILLEZ ENVOYER UN E-MAIL A CETTE ADRESSE : clement.raux@free.fr CELLE ADRESSE EST AUSSI UNE ADRESSE MSN." %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:575 File Name:TAB VAL Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Goto0 \Lbl V 'ECRIT TA FONCTION' \sqrt(2-X)\->F 'ECRIT TA FONCTION' \GotoW \Lbl 0 \ClrText "TABLEAU DE VALEUR" \Locate 1,3,"1\->NEW BOARD" \Locate 1,4,"2\->SENSIBILITY" \Locate 1,5,"3\->TYPE X" \Locate 1,7,"clement.raux@free.fr" ?\->\r \If \r=1:\Then \Goto1:\IfEnd \If \r=2:\Then \Goto2:\IfEnd \If \r=3:\Then \ClrText:\Locate 1,3,"1\->ALEA":\Locate 1,4,"2\->SPECIFIQUE":?\->\theta \If \theta=1:\Then 1\->D:\IfEnd:\If \theta=2:\Then "DE"?\->E:"PAS"?\->H:E-H\->E:\IfEnd:\IfEnd \Goto0 \Lbl 2 \ClrText "SENSIBILITE"?\->A \Goto0 \Lbl 1 \If \theta=1:\Then \GotoA:\IfEnd \If \theta=2:\Then \GotoF:\IfEnd \Lbl A \Int (\Ran#*2)\->B \If B=0:\Then \Int (A*\Ran#)\->X:\IfEnd \If B=1:\Then \Int (\(-)A*\Ran#)\->X:\IfEnd \Lbl G \GotoV \Lbl W \ClrText \Lbl B \Locate 1,1,"TABLEAU DE VARIATION" \Locate 1,3,"X" \Locate 1,5,"F(X)" \Locate 6,3,X \Locate 6,5,F \Locate 1,7,"VALUE ? PRESS SHIFT!" \Lbl 4 \Getkey=31\=>\Goto0 \Getkey=78\=>\Goto1 \Goto4 \Lbl F E+H\->X X\->E \GotoG %End