%Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:A Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:B Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:C Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:D Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:E Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:F Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:G Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:H Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:I Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:J Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:K Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:L Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:M Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:N Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:O Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:P Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Q Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:R Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:S Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:T Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:U Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:V Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:W Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:X Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Y Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:Z Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\r Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:VAL Communication SW:0 Data Type:VM Rows:1 Columns:1 Variable Name:\theta Group Name:Variable Variable Type:R Variable Length:10 Option1: Option2: Option3: Option4: %Data Record Value : 1 1 0 %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:5818 File Name:EROS Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record \Lbl L \BG-None:\ClrGraph:\CoordOff:\GridOff:\AxesOff:\LabelOff \ViewWindow -6.3,6.3,1,-3.1,3.1,1 0\->A~Z \Text 1,45,"BONJOUR !" \Text 52,1,"[F1] PHYS\slashCHIM" \Text 52,88,"[F2] MATHS" \Text 58,90,"[F6] AIDE" \Text 58,1,"SECONDE GENERALE" \Text 26,48,"MATRONIX" \For 0\->E \To 70 \Getkey\->P P=29\=>\Goto0 P=79\=>\GotoK P=69\=>\Goto1 \Next \Text 26,48,"PRESENTE " \For 0\->E \To 70 \Getkey\->P P=29\=>\Goto0 P=79\=>\GotoK P=69\=>\Goto1 \Next \Text 26,48," " \Text 26,51,"EROS !" \Do \Getkey\->P P=29\=>\Goto0 P=79\=>\GotoK P=69\=>\Goto1 \LpWhile 1 \Lbl 0 \ClrGraph \Text 1,1,"EROS EST UNE SUPER POMPE POUR" \Text 7,1,"TOUS VOS DEVOIRS DE PHYS\slashCHIMIE" \Text 13,1,"APPRENEZ QUAND MEME VOS FOR\(-)" \Text 19,1,"MULES !!" \Text 25,1,"MATRONIX (NYOAN@aol.com)."\Disp\Horizontal 0.1 \Horizontal 0 \Text 37,1,"Nombre de FORMULES :" \For 0\->E \To 80:\Next \Text 43,82,"-RECHERCHE-" \For 0\->E \To 130:\Next \Text 43,83," 18" \Text 49,1,"Version d'EROS : SECONDE GENE." \Horizontal -2.4 \Text 58,1,"APPUYEZ SUR [EXE]"\Disp\GotoL \Lbl 1 \ClrGraph 1\->A \ClrText \Text 1,9,"PGCD" \Text 7,9,"DIVISION EUCLIDIENNE" \Text 13,9,"NOMBRE 1er" \Text 19,9,"DECOMPOSITION EN PRODUIT DE" \Text 25,14,"FACTEURS PREMIERS" \Text 37,1,"[EXIT] pour s\ortir" \Lbl 6 \Text A,1,"\->" 0\->B \Do \Getkey\->B \LpWhile ((B=28)\ Or (B=37)\ Or (B=31)\ Or (B=47))=0 \Text A,1," " B=28\=>A-6\->A B=37\=>A+6\->A A=-5\=>19\->A A=25\=>1\->A B=31\=>\Goto7 B=47\=>\GotoL \Goto6 \Lbl 7 \If A=1 \Then "A "?\->G:"B "?\->B \Abs G\->G:\Abs B\->B B\Goto8 G\->C:B\->G:C\->B \Lbl 8:\(-)(\Int (G/B)*B-G)\->C C=0\=>\Goto9 B\->G:C\->B:\Goto8 \Lbl 9:B\Disp\Goto6 \IfEnd \If A=7 \Then "A/B" "A "?\->G "B "?\->B \Do \Int (G/B)\->X G-(B*X)\->Y "A/B":X\Disp"\Reste":Y\Disp\Goto6 \IfEnd \If A=13 \Then "Entrer un nombre"?\->N 3\->D \Int \sqrtN\->C \If \Frac (N/2)=0 \Then "Il n'est pas premier"\Disp\Goto6 \IfEnd \While D\<=C \If \Frac (N/D)=0 \Then \GotoJ \IfEnd D+2\->D \WhileEnd \Lbl J \If \Frac (N/D)=0 \Then "Il n'est pas premier"\Disp\Else "Il est premier"\Disp\IfEnd \Goto6 \IfEnd \If A=19 \Then \Lbl \theta:"M "?\->G:\GotoB \Lbl A:2\DispG/2\->G:G=1\=>\GotoI \Lbl B:\Frac (G/2)=0\=>\GotoA:3\->B \Lbl C:\sqrtG+1\->C \Lbl D:B\>=C\=>\GotoH:\Frac (G/B)=0\=>\GotoF \Lbl E:B+2\->B:\GotoD \Lbl F:G/B*B-G=0\=>\GotoG:\GotoE \Lbl G:B\DispG/B\->G:\GotoC \Lbl H:G\Disp\Lbl I:"FIN"\Disp\Goto6 \IfEnd \Lbl K 0\->A~Z \ClrGraph \Text 1,9,"PHYSIQUE (8)" \Text 7,9,"CHIMIE (6)" \Text 13,9,"R\Retour" 1\->A \Lbl 4 \Text A,1,"\->" \Do \Getkey\->L \LpWhile ((L=28)\ Or (L=37)\ Or (L=31))=0 \Text A,1," " L=28\=>A-6\->A L=37\=>A+6\->A A=\(-)5\=>13\->A A=19\=>1\->A L=31\=>\Goto5 \Goto4 \Lbl 5 A=13\=>\GotoL \ClrGraph \If A=1 \Then \Text 1,1,"PHYSIQUE" \Horizontal 2.5 \Text 13,1,"1\slash LOI DE DESCARTES" \Text 19,1,"2\slash INDICE DE REFRACTION" \Text 25,1,"3\slash VITESSE" \Text 31,1,"4\slash POIDS" \Text 37,1,"5\slash LOI DE GRAVITATION" 'PAR YOAN \Text 43,1,"6\slash FREQUENCE-PERIODE" \Text 49,1,"7\slash FORCE PRESSANTE" \Text 55,1,"8\slash GAZ PARFAIT [EXIT]\->\Ret" 0\->K \Do \Getkey\->K \LpWhile ((K=72)\ Or (K=62)\ Or (K=52)\ Or (K=73)\ Or (K=63)\ Or (K=53)\ Or (K=74)\ Or (K=64)\ Or (K=47))=0 K=47\=>\GotoK \ClrGraph \If K=72 \Then \Text 1,1,"PHYSIQUE\slashLOI DE DESCARTES" \Horizontal 2.5 \Text 13,1,"n \sin i = n \sin i " \Text 15,6,"1" \Text 15,29,"1" \Text 15,50,"2" \Text 15,73,"2" \Text 25,1,"n : indice du milieu 1" \Text 27,6,"1" \Text 32,1,"n Defm : indice du milieu 2" \Text 34,6,"2" \Text 39,1,"i : angle d'incidence" \Text 41,4,"1" \Text 46,1,"i : angle de refraction" \Text 48,4,"2" \Text 58,1,"[F1]\->APPLICATION\slash[EXE]\->QUITTER" \Do \Getkey\->G \LpWhile G\<>79\ And G\<>31 G=31\=>\GotoK \ClrText \If G=79 \Then "REFRACTION DE LA LUMIERE" "N1\sin I1=N2\sin I2" "VALEUR INCONNUE 1\->N1 2\->I1 3\->N2 4\->I2 5\->AUCUNE"?\->X X\<>1\=>X\<>2\=>X\<>3\=>X\<>4\=>X\<>5\=>\GotoK \If X=1 \Then "I1"?\->B "N2"?\->C "I2"?\->D (C(\sin D))/(\sin B)\->E "N1":E\Disp\GotoK \IfEnd \If X=2 \Then "N1"?\->B "N2"?\->C "I2"?\->D (C(\sin D))/B\->E \asin E\->F "I1":F\Disp\GotoK \IfEnd \If X=3 \Then "N1"?\->B "I1"?\->C "I2"?\->D (B(\sin C))/(\sin D)\->E "N2":E\Disp\GotoK \IfEnd \If X=4 \Then "N1"?\->B "I1"?\->C "N2"?\->D (B(\sin C))/D\->E \asin E\->F "I2":F\Disp\GotoK \IfEnd \If X=5 \Then "N1"?\->B "I1"?\->C "N2"?\->D "I2"?\->E B(\sin C)\->F D(\sin E)\->G "N1\sin I1=":F\Disp"N2\sin I2=":G\Disp\GotoK \IfEnd \IfEnd \IfEnd \If K=62 \Then \Text 1,1,"PHYSIQUE\slashINDICE DE REFRACTION" \Horizontal 2.5 \Text 13,1,"n=-" \Text 9,11,"c" \Text 17,11,"v" \Text 25,1,"n sans unite" \Text 31,1,"v en m.s-1" \Text 43,1,"c=3,00.10 m.s-1" \Text 40,37,"8"\Disp\GotoK \IfEnd \If K=52 \Then \Text 1,1,"PHYSIQUE\slashVITESSE" \Horizontal 2.5 \Text 13,1,"v=-" \Text 9,10,"d" \Text 17,10,"t" \Text 25,1,"v en m.s-1" \Text 31,1,"d en m" \Text 37,1,"t en s"\Disp\GotoK \IfEnd \If K=73 \Then \Text 1,1,"PHYSIQUE\slashPOIDS" \Horizontal 2.5 \Text 13,1,"P=mg" \Text 25,1,"P en N" \Text 31,1,"m en kg" \Text 37,1,"g en N.kg-1"\Disp\GotoK \IfEnd \If K=63 \Then \Text 1,1,"PHYSIQUE\slashLOI DE GRAVITATION" \Horizontal 2.5 \Text 13,1,"F=G*" \F-Line -4.6,1.7,-3,1.7 \Text 9,19,"mm'" \Text 17,22,"d\x^2" \Text 25,1,"F en N" \Text 25,50,"d en m" \Text 31,1,"m en kg" \Text 31,50,"m' en kg" \Text 43,1,"G=6,67.10" \Text 43,50,"N.m\x^2.kg" \Text 41,36,"-11" \Text 41,82,"-2"\Disp\GotoK \IfEnd \If K=53 \Then \Text 1,1,"PHYSIQUE\slashFREQUENCE\(-)PERIODE" \Horizontal 2.5 \Text 13,1,"f=-" \Text 9,10,"1" \Text 17,10,"F" \Text 25,1,"f en Hz" \Text 31,1,"T en s"\Disp\GotoK \IfEnd \If K=74 \Then \Text 1,1,"PHYSIQUE\slashFORCE PRESSANTE" \Horizontal 2.5 \Text 13,1,"f=pS" \Text 25,1,"f en N" \Text 31,1,"p en Pa" \Text 37,1,"S en m\x^2" \Text 52,1,"[F1] POUR LANCER L'APPLICATION" \Text 58,1,"OU [EXE] POUR QUITTER" \Do \Getkey\->G \LpWhile G\<>31\ And G\<>79 G=31\=>\GotoK \ClrText \If G=79 \Then "F\->N P\->Pa S\->\x^2"\Disp"VALEUR INCONNUE : 1)F2)P 3)S"?\->A \ClrText A\<>1\=>A\<>2\=>A\<>3\=>\GotoK \If A=1 \Then "P en Pa"?\->P "S en \x^2"?\->S (P*S)\->F "F e\nano N":F\Disp\GotoK \IfEnd \If A=2 \Then "F e\nano N"?\->F "S e\nano \x^2"?\->S (F/S)\->P "P e\nano Pa":P\Disp\GotoK \IfEnd \If A=3 \Then "F e\nano N"?\->F "P e\nano Pa"?\->P (F/P)\->S "S e\nano \x^2":S\Disp\GotoK \IfEnd \IfEnd \IfEnd \If K=64 \Then \Text 1,1,"PHYSIQUE\slashGAZ PARFAIT" \Horizontal 2.5 \Text 13,1,"pV=nRT" \Text 25,1,"p en Pa" \Text 25,50,"V en m" \Text 22,77,"3" \Text 31,1,"n en mol" \Text 31,50,"T en K" \Text 43,1,"R=8,31 J.mol-1.K-1"\Disp\GotoK \IfEnd \IfEnd \If A=7 \Then \Text 1,1,"CHIMIE" \Horizontal 2.5 \Text 13,1,"1\slash MASSE VOLUMIQUE" \Text 19,1,"2\slash DENSITE" \Text 25,1,"3\slash NUCLEONS D'UN ATOME" \Text 31,1,"4\slash QUANTITE DE MATIERE" \Text 37,1,"5\slash QUANTITE DE MATIERE (gaz)" \Text 43,1,"6\slash CONCENTRATION MOLAIRE" \Text 55,86,"[EXIT]\->ret" 0\->K \Do \Getkey\->K \LpWhile ((K=72)\ Or (K=62)\ Or (K=52)\ Or (K=73)\ Or (K=63)\ Or (K=53)\ Or (K=47))=0 K=47\=>\GotoK \ClrGraph \Lbl \r \If K=72 \Then \Text 1,1,"CHIMIE\slashMASSE VOLUMIQUE" \Horizontal 2.5 \Text 13,1,"p=-" \Text 9,10,"m" \Text 17,10,"V" \Text 25,1,"p en kg.m" \Text 22,39,"-3" \Text 31,1,"m en kg" \Text 40,1,"V en m" \Text 37,28,"3" \Text 47,100,"^" \Text 49,1,"Le p est un p penche (rho)."\Disp\GotoK \IfEnd \If K=62 \Then \Text 1,1,"CHIMIE\slashDENSITE" \Horizontal 2.5 \Text 13,1,"d=" \F-Line \(-)5.5,1.7,\(-)3.9,1.7 \Text 9,15,"p" \Text 16,10,"p" \Text 19,13,"eau" \Text 25,1,"d sans unite" \Text 33,1,"p en kg.m" \Text 31,39,"-3" \Text 40,1,"p en kg.m" \Text 37,51,"-3" \Text 43,5,"EAU" \Text 49,100,"^" \Text 51,1,"Le p est un p penche (rho)"\Disp\GotoK \IfEnd \If K=52 \Then \Text 1,1,"CHIMIE\slashNUCLEONS D'UN ATOME" \Horizontal 2.5 \Text 13,1,"A=Z+N" \Text 25,1,"A : nucleons" \Text 31,1,"Z : protons" \Text 37,1,"N : neutrons"\Disp\GotoK \IfEnd \If K=73 \Then \Text 1,1,"CHIMIE\slashQUANTITE DE MATIERE" \Horizontal 2.5 \Text 13,1,"n=-" \Text 9,11,"m" \Text 17,11,"M" \Text 25,1,"n en mol" \Text 31,1,"m en g" \Text 37,1,"M en g.mol-1"\Disp\GotoK \IfEnd \If K=63 \Then \Text 1,1,"CHIMIE\slashQUANT. DE MATIERE (GAZ)" \Horizontal 2.5 \Text 13,1,"n=" \F-Line \(-)5.4,1.7,\(-)4.6,1.7 \Text 9,10,"V" \Text 17,10,"V" \Text 19,14,"m" \Text 26,1,"N en mol" \Text 32,1,"V en L" \Text 38,1,"V en L.mol-1" \Text 41,5,"m"\Disp\GotoK \IfEnd \If K=53 \Then \Text 1,1,"CHIMIE\slashCONCENTRATION MOLAIRE" \Horizontal 2.5 \Text 13,1,"c=-" \Text 9,10,"n" \Text 17,10,"V" \Text 25,1,"c en mol.L-1" \Text 31,1,"n en mol" \Text 37,1,"V en L"\Disp\GotoK \IfEnd %End