Prgm trigonométrie

→ **MyCalcs** profile · by **tama** » 25 Jan 2007, 21:12

quelle erreur ? domain error ?
dans ce cas faut vérifier que 0=c=1

→ **MyCalcs** profile · by **Mr. Crocodile** » 26 Jan 2007, 14:28

tama wrote:quelle erreur ? domain error ?
dans ce cas faut vérifier que 0=c=1

et le -1??
-1 ? c ? 1 Non ? (on parle de la meme chose ?)
EDIT :
Pourquoi n'utilises tu pas le mode polaire de la calculatrice pour ce genre de programme avec r = 1 plutot que la representation graphique cartésienne ?

→ **MyCalcs** profile · by **univscien** » 26 Jan 2007, 19:30

Pour le prob c'est bon, jamais mis une ligne avant une autre.
Shika Ben je sais pas faire avec la calc et je veus réussir à le terminer comme çà.

Par contre nouveau prob:

Code: Select all: ClrDraw ClrHome Radian 47-A 31-B Menu("**CERCLE TRIGO**","sin(X)",D,"cos(X)",E Lbl D 1-D Lbl E 2-D If D=1 Input "sin(X)=",S If D=2 Input"cos(X)=",C Circle(A,B,30 Line(0,B,94,B Line(A,0,A,62 If D=1 sin[sup]-1[/sup](S)-X If D=2 cos[sup]-1[/sup](C)-X S*10-S C*10-C iPart(S)-S iPart(C)-C S/10-S C/10-C S*30-S C*30-C If D=1 (sin((Pi/2)-X))-C If D=2 (cos((Pi/2)-X))-S Circle(A+C,B+S,1 Line(A+C,0,A+C,62 Line(16,B+S,78,B+S Text(1,1,"sin(X)=",S/30 Text(57,1,"cos(X)=",C/30 Pause Degree

J'ai l'impression que dans tout les cas, le Lbl E est traversé, et Donc D prend la valeur 2.
C'est normale?
Comment je peus faire?

→ **MyCalcs** profile · by **Mr. Crocodile** » 26 Jan 2007, 19:36

oui si tu va a un Lbl le programme part de ce Lbl jusqu'a la fin.
Donc tu fait un return pour revenir a l'endroit ou tu en etais, un pause enfin je n'ai pas regarder le code mais en tout cas il faut placer un marqueur de fin après que ton bloc d'instruction soit executé.

→ **MyCalcs** profile · by **tama** » 26 Jan 2007, 20:38

univscien wrote:Pour le prob c'est bon, jamais mis une ligne avant une autre.
Shika Ben je sais pas faire avec la calc et je veus réussir à le terminer comme çà.
Par contre nouveau prob:

ClrDraw
ClrHome
Radian
47-A
31-B
Menu("**CERCLE TRIGO**","sin(X)",D,"cos(X)",E
Lbl D
1-D
Goto 0
Lbl E
2-D
Lbl 0
If D=1
Input "sin(X)=",S
If D=2
Input"cos(X)=",C
Circle(A,B,30
Line(0,B,94,B
Line(A,0,A,62
If D=1
sin^-1(S)-X
If D=2
cos^-1(C)-X
S*10-S
C*10-C
iPart(S)-S
iPart(C)-C
S/10-S
C/10-C
S*30-S
C*30-C
If D=1
(sin((Pi/2)-X))-C
If D=2
(cos((Pi/2)-X))-S
Circle(A+C,B+S,1
Line(A+C,0,A+C,62
Line(16,B+S,78,B+S
Text(1,1,"sin(X)=",S/30
Text(57,1,"cos(X)=",C/30
Pause
Degree

J'ai l'impression que dans tout les cas, le Lbl E est traversé, et Donc D prend la valeur 2.
C'est normale?
Comment je peus faire?

problème résolu

→ **MyCalcs** profile · by **ced78fr** » 27 Jan 2007, 12:20

Quand le programme marche, quelqu'un me l'envoie please car je suis très interressé par ce programme

Je le diffuseré...

→ **MyCalcs** profile · by **univscien** » 27 Jan 2007, 12:45

Prob résolu:

Merci Tama

Xywez Ok mais pour l'instant il doit encore y avoir des érreures je pense.

Le code pour le moment:

Code: Select all: ClrDraw ClrHome Radian 47-A 31-B Menu("**CERCLE TRIGO**","sin(X)",D,"cos(X)",E Lbl D 1-D Goto 0 Lbl E 2-D Lbl 0 If D=1 Input "sin(X)=",S If D=2 Input"cos(X)=",C Circle(A,B,30 Line(0,B,94,B Line(A,0,A,62 If D=1 sin-1(S)-X If D=2 cos-1(C)-X If D=1 (sin((Pi/2)-X))-C If D=2 (cos((Pi/2)-X))-S round(S,1)-S round(C,1)-C S*30-S C*30-C If D=1 Then Circle(A+C,B+S,1 Circle(A-C,B+S,1 End If D=2 Then Circle(A+C,B+S,1 Circle(A-C,B-S,1 End Line(A+C,0,A+C,62 Line(16,B+S,78,B+S Text(1,1,"sin(X)=",S/30 Text(57,1,"cos(X)=",C/30 Pause Degree

→ **MyCalcs** profile · by **univscien** » 28 Jan 2007, 19:02

Nouveau code :

Code: Select all: ClrDraw ClrHome Radian 47-A 31-B Menu("**CERCLE TRIGO**","sin(X)",D,"cos(X)",E Lbl D 1-D Goto 0 Lbl E 2-D Lbl 0 If D=1 Input "sin(X)=",S If D=2 Input"cos(X)=",C Circle(A,B,30 Line(0,B,94,B Line(A,0,A,62 If D=1 sin-1(S)-X If D=2 cos-1(C)-X If D=1 (sin((Pi/2)-X))-C If D=2 (cos((Pi/2)-X))-S round(S,1)-S round(C,1)-C X*57.3-X If D=1 180-X-Y If D=2 -X-Y round(X,0)-X round(Y,0)-Y S*30-S C*30-C If D=1 Then Circle(A+C,B+S,1 Circle(A-C,B+S,1 End If D=2 Then Circle(A+C,B+S,1 Circle(A-C,B-S,1 End Line(A+C,0,A+C,62 Line(16,B+S,78,B+S Text(1,1,"sin(X)=",S/30 If D=1 Text(57,1,"cos(X)=",-(C/30) Text(1,69,"X=",X,"°" Text(50,1,"X=",Y,"°" If D=1 Text(57,60,"cos(X)=",C/30 If D=2 Then Text(57,60,"sin(X)=",-(S/30) Text(57,1,"cos(X)=",C/30 End Pause Degree