Salut

ClrGraphÙ

AxesOffÙ

ViewWindow 1,127,0,1,63,0Ù

0ãBÙ

0ãCÙ

Lbl 0Ù

3ãAÙ

ClrTextÙ

Locate 4,1,"planete-casio.fr"Ù

Locate 2,A,"ã"Ù

If B=0Ù

Then If C=0Ù

Then Locate 3,3,"Tout lire"Ù

Locate 3,4," MES ET INCERT"Ù

IfEndÙ

If C=1Ù

Then Locate 3,3,"1) INCERT ABSOLUE"Ù

Locate 3,4,"2) INCERT REL"Ù

Locate 3,5,"3) ERREUR REL OU ECART REL"Ù

3ãMÙ

1ãNÙ

IfEndÙ

If C=0Ù

Then Locate 3,5,"Nomenclature"Ù

IfEndÙ

If C=2Ù

Then Locate 3,3,"1) Famille groupe nom"Ù

1ãMÙ

2ãNÙ

IfEndÙ

If C=0Ù

Then Locate 3,6,"Spectre"Ù

IfEndÙ

If C=3Ù

Then Locate 3,3,"1) UV visible"Ù

Locate 3,4,"2)IR"Ù

Locate 3,5,"3) RMN"Ù

3ãMÙ

3ãNÙ

IfEndÙ

If C=0Ù

Then Locate 3,7,"PH"Ù

IfEndÙ

If C=4Ù

Then Locate 3,3,"1) DEFINITION"Ù

Locate 3,4,"2) ACIDE BASE"Ù

2ãMÙ

4ãNÙ

IfEndÙ

If C=0Ù

Then 7ãMÙ

IfEndÙ

IfEndÙ

If B=1Ù

Then If C=0Ù

Then Locate 3,3," React entre base forte et acide fort"Ù

Locate 3,4,"TITRAGE DIRECT"Ù

2ãMÙ

IfEndÙ

IfEndÙ

DoÙ

For 1ãI To 250:NextÙ

DoÙ

GetkeyÙ

LpWhile AnsÈ37 And AnsÈ28 And AnsÈ31 And AnsÈ47Ù

If Ans=47Ù

Then 0ãCÙ

Goto 0Ù

IfEndÙ

Locate 2,A," "Ù

M=7×CãNÙ

If Ans=28 And (C=0 Or C>N Or A>3)Ù

Then Dsz AÙ

If A=2Ù

Then 3ãAÙ

If B>0 And C=0Ù

Then B-1ãBÙ

7ãAÙ

IfEndÙ

C>0×C-1ãCÙ

Goto 0Ù

IfEndÙ

IfEndÙ

If Ans=37 And (M=7 Or (A-2<M And M<7))Ù

Then Isz AÙ

If A=8Ù

Then 3ãAÙ

If B<1 And C=0Ù

Then B+1ãBÙ

Goto 0Ù

IfEndÙ

C<4×C+1ãCÙ

Goto 0Ù

IfEndÙ

IfEndÙ

Locate 2,A,"ã"Ù

LpWhile AnsÈ31Ù

If A=3 And B=0 And C=0Ù

Then Goto 1Ù

IfEndÙ

If A=4 And B=0 And C=0Ù

Then 1ãCÙ

Goto 0Ù

IfEndÙ

If A=3 And C=1Ù

Then Goto 2Ù

IfEndÙ

If A=4 And C=1Ù

Then Goto 3Ù

IfEndÙ

If A=5 And C=1Ù

Then Goto 4Ù

IfEndÙ

If A=5 And B=0 And C=0Ù

Then 2ãCÙ

Goto 0Ù

IfEndÙ

If A=3 And C=2Ù

Then Goto 5Ù

IfEndÙ

If A=6 And B=0 And C=0Ù

Then 3ãCÙ

Goto 0Ù

IfEndÙ

If A=3 And C=3Ù

Then Goto 6Ù

IfEndÙ

If A=4 And C=3Ù

Then Goto 7Ù

IfEndÙ

If A=5 And C=3Ù

...