0ãUÙ ClrTextÙ Locate 1,1,"====="Ù Locate 6,1,"SUPER MATHS"Ù Locate 17,1,"====="Ù Locate 1,3,"[1] CERCLE"Ù Locate 1,4,"[2] RECTANGLE"Ù Locate 1,5,"[3] TRIANGLE"Ù Locate 1,6,"[4] REPERE"Ù Locate 1,7,"[5] QUITTER"Ù While U=0Ù GetkeyãªÙ If ª=72Ù Then 2ãUÙ Else If ª=62Ù Then 1ãUÙ Else If ª=52Ù Then 3ãUÙ Else If ª=73Ù Then 5ãUÙ Else If ª=63Ù Then BreakÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ WhileEndÙ ClrTextÙ While U=1Ù Locate 1,1,"====="Ù Locate 7,1,"RECTANGLE"Ù Locate 17,1,"======"Ù Locate 1,3,"[1] AIRE"Ù Locate 1,4,"[2] PERIMETRE"Ù Locate 1,5,"[3] CUBE_PAVE"Ù Locate 1,6,"[DEL] RETOUR"Ù GetkeyãªÙ If ª=79Ù Then ClrTextÙ "LONGUEUR":?ãAÙ ClrTextÙ "LARGEUR":?ãBÙ ClrTextÙ Locate 3,4,AÀBÙ Locate 13,4," UNITE’"StopÙ Else If ª=69Ù Then ClrTextÙ "LONGUEUR":?ãAÙ ClrTextÙ "LARGEUR":?ãBÙ ClrTextÙ Locate 3,4,(AÀ2)+(BÀ2)Ù Locate 13,4,"UNITE"Ù StopÙ Else If ª=59Ù Then "LONGUEUR":?ãAÙ ClrTextÙ "LARGEUR":?ãBÙ ClrTextÙ "HAUTEUR":?ãCÙ ClrTextÙ Locate 3,4,AÀBÀCÙ Locate 13,4,"UNITE^3"StopÙ Else If ª=44Ù Then Prog "~MATHS"Ù StopÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ WhileEndÙ While U=2Ù Locate 1,1,"======"Ù Locate 7,1,"CERCLE"Ù Locate 17,1,"======"Ù Locate 1,3,"[F1] AIRE"Ù Locate 1,4,"[F2] PERIMETRE"Ù Locate 1,5,"[F3] CYLINDRE"Ù Locate 1,6,"[DEL] RETOUR"Ù GetkeyãªÙ If ª=79Ù Then ClrTextÙ "RAYON ":?ãAÙ ((A’)Àæ)ãBÙ ClrTextÙ Locate 3,4,BÙ Locate 13,4," UNITE’"Ù StopÙ Else If ª=69Ù Then ClrTextÙ "RAYON":?ãAÙ ClrTextÙ Locate 3,4,æÀ(AÀ2)Ù Locate 13,4," UNITE"Ù StopÙ Else If ª=59Ù Then "RAYON":?ãAÙ ClrTextÙ "HAUTEUR":?ãBÙ ClrTextÙ Locate 3,4,æÀA’ÀBÙ Locate 13,4," UNITE.3"StopÙ Else If ª=44Ù Then Prog "~MATHS"Ù StopÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ WhileEndÙ While U=3Ù Locate 1,1,"====="Ù Locate 7,1,"TRIANGLE"Ù Locate 17,1,"====="Ù Ù Locate 1,2,"[F1] PERIMETRE"Ù Locate 1,3,"[F2] AIRE"Ù Locate 1,4,"[F3] PYRAMIDE"Ù Locate 1,5,"[F4] CONE"Ù Locate 1,7,"[DEL] RETOUR"Ù Locate 1,6,"[F5] HYPOTHENUSE"Ù GetkeyãªÙ If ª=79Ù Then ClrTextÙ "COTE 1":?ãAÙ ClrTextÙ "COTE 2":?ãBÙ ClrTextÙ "COTE 3":?ãCÙ ClrTextÙ Locate 3,4,A+B+CÙ Locate 13,4,"UNITE"Ù StopÙ Else If ª=69Ù Then "Attention, cette partie s'adresse uniquement aux triangles rectangles"Ø ClrTextÙ "Merci de donner uniquement les deux plus petites valeurs"Ø ClrTextÙ "COTE 1":?ãAÙ ClrTextÙ "COTE 2":?ãBÙ ClrTextÙ Locate 3,4,(AÀB)»2Ù Locate 13,4,"UNITE’"Ù StopÙ Else If ª=59Ù Then "LONGUEUR BASE":?ãAÙ ClrTextÙ "LARGEUR BASE":?ãBÙ ClrTextÙ "HAUTEUR":?ãCÙ ClrTextÙ 1»3ÀCãDÙ Locate 3,4,DÀ(AÀB)Ù Locate 13,4,"UNITE.3"Ù StopÙ Else If ª=49Ù Then ClrTextÙ "RAYON BASE":?ãAÙ ClrTextÙ "HAUTEUR":?ãBÙ ClrTextÙ (A’)ãCÙ (æ»3)ãDÙ Locate 3,4,1»BÀCÀDÙ StopÙ Else If ª=44Ù Then Prog "~MATHS"Ù StopÙ Else If ª=39Ù Then ClrTextÙ "COTE 1":?ãRÙ ClrTextÙ "COTE 2":?ãSÙ ClrTextÙ (R’+S’)ãTÙ ClrTextÙ Locate 4,3,"La longueur de"Ù Locate 3,4,"l#E596hypothenuse est "Ù Locate 5,5,"#E60Agal #E601"Ù Locate 13,5,TÙ Locate 16,5,"U’"Ù StopÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ WhileEndÙ While U=5Ù ClrTextÙ Locate 1,1,"======="Ù Locate 9,1,"REPERE"Ù Locate 16,1,"======"Ù Locate 1,3,"[F1] DISTANCE 2 PTS"Ù Locate 1,4,"[F2] MILIEU"Ù Locate 1,5,"[F3] COEF DIRECTEUR"Ù Locate 1,6,"[DEL] RETOUR"Ù 9ãUÙ WhileEndÙ While U=9Ù GetkeyãªÙ If ª=79Ù Then ClrTextÙ "POINT 1":?ãStr 8Ù ClrTextÙ "POINT 2":?ãStr 9Ù ClrTextÙ "X 1":?ãAÙ ClrTextÙ "Y 1":?ãBÙ ClrTextÙ "X 2":?ãCÙ ClrTextÙ "Y 2":?ãDÙ ClrTextÙ ((A-C)’+(B-D)’)ãOÙ Locate 1,4,Str 8Ù Locate 2,4,Str 9Ù Locate 1,5,Str 8Ù Locate 2,5,Str 9Ù Locate 6,4,OÙ Locate 10,4,"U’"Ù Locate 5,5,"Ë"Ù Locate 6,5,OÙ Locate 10,5,"U"Ù Else If ª=69Ù Then ClrTextÙ "MILIEU":?ãStr 1Ù ClrTextÙ "X 1":?ãAÙ ClrTextÙ "Y 1":?ãBÙ ClrTextÙ "X 2":?ãCÙ ClrTextÙ "Y 2":?ãDÙ (A+C)ãEÙ (B+D)ãFÙ (EÀ(1»2))ãXÙ (FÀ(1»2))ãYÙ ClrTextÙ Locate 5,4,Str 1Ù Locate 6,4,":"Ù Locate 7,4,"("Ù Locate 8,4,XÙ Locate 10,4,";"Ù Locate 12,4,YÙ Locate 15,4,")"Ù Else If ª=59Ù Then ClrTextÙ "X 1":?ãAÙ ClrTextÙ "X 2":?ãBÙ ClrTextÙ "Y 1":?ãCÙ ClrTextÙ "Y 2":?ãDÙ ClrTextÙ (B-A)ãXÙ (D-C)ãYÙ Locate 4,4,"m ="Ù Locate 10,4,Y»XÙ Locate 16,4,"UNITE"Ù Else If ª=44Ù Then Prog "~MATHS"Ù StopÙ IfEndÙ IfEndÙ IfEndÙ IfEndÙ WhileEnd