Lbl A
"cos ,sin OU tan ?"
Lbl 0
Getkey=46ãGoto 2
Getkey=36ãGoto 1
Getkey=26ãGoto 3
Goto 0
Lbl 1
"R¥ntÍ¥ la val¥uÍ du cos "?ÞA
ClrText
"ANGLE(S)"
A=1ãLocate 1,3,"0 , 2Ð"
A=(†3¹2)ãLocate 1,3,"Ð/6 , 11Ð/6"
A=(†2¹2)ãLocate 1,3,"Ð/4 , 7Ð/4"
A=(1»2)ãLocate 1,3,"Ð/3 , 5Ð/3"
A=0ãLocate 1,3,"Ð/2 , 3Ð/2"
A=(‡1»2)ãLocate 1,3,"2Ð/3 , 4Ð/3"
A=(‡†2¹2)ãLocate 1,3,"3Ð/4 , 5Ð/4"
A=(‡†3¹2)ãLocate 1,3,"5Ð/6 , 7Ð/6"
A=‡1ãLocate 1,3,"Ð"
'A'Ý
Goto 5
Lbl 2
"R¥ntÍ¥ la val¥uÍ du sin "?ÞA
ClrText
"ANGLE(S)"
A=1ãLocate 1,3,"Ð/2"
A=(†3¹2)ãLocate 1,3,"Ð/3 , 2Ð/3"
A=(†2¹2)ãLocate 1,3,"Ð/4 , 3Ð/4"
A=(1»2)ãLocate 1,3,"Ð/6 , 5Ð/6"
A=0ãLocate 1,3,"0 , Ð , 2Ð"
A=(‡1»2)ãLocate 1,3,"7Ð/6 , 11Ð/6"
A=(‡†2¹2)ãLocate 1,3,"5Ð/4 , 7Ð/4"
A=(‡†3¹2)ãLocate 1,3,"4Ð/3 , 5Ð/3"
A=‡1ãLocate 1,3,"3Ð/2"
'A'Ý
Goto 5
Lbl 3
"R¥ntÍ¥ la val¥uÍ du tan "?ÞA
ClrText
"ANGLE(S)"
A=1ãLocate 1,3,"Ð/4 , 5Ð/4"
A=(†3¹3)ãLocate 1,3,"Ð/6 , 7Ð/6"
A=(†3)ãLocate 1,3,"Ð/3 , 4Ð/3"
A=0ãLocate 1,3,"0 , 2Ð"
A=(‡†3¹3)ãLocate 1,3,"5Ð/6 , 11Ð/6"
A=(‡†3)ãLocate 1,3,"2Ð/3 , 5Ð/3"
A=‡1ãLocate 1,3,"3Ð/4 , 7Ð/4"
'A'Ý
Lbl 5
"FIN"
"VOULEZ VOUS D'AUTRE ANGLE ?"
Lbl 9
Getkey=54ãGoto A
Getkey=64ãGoto 7
Goto 9
Lbl 7