Phoen1xLe 25/11/2006 à 11:57
je vais poster tout sa!! mais je viens e de tomber sur un nouveau probleme:
()
Prgm
EffES
Lbl start
Local a,r,t,xa,ya
Prompt a
EffES
défMode("Angle","RADIAN")
Disp "conjugé",conj(a)
Pause
abs(a)r
Disp "module r",r
Pause
arg(a)t
PRx(r,t)xa
PRy(r,t)ya
Disp "cos ˆ"
Disp chaîne(xa)&"/"&chaîne(r)
Disp xa/r
Pause
Disp "sin t"
Disp chaîne(ya)&"/"&chaîne(r)
Disp ya/r
Pause
Disp "argument t",t
Pause
Disp "expo",aPol
Pause
Disp "forme trigo"
Disp chaîne(r)&"(cos("&chaîne(t)&")+i*sin("&chaîne(t)&")"&")"
Disp "1=back 2=RG 3=quit" Début de la 2nde partie du pgrm-> représentation graphique
Prompt n
If n=1 Then
Goto start
ElseIf n=2 Then
Goto rg
ElseIf n=3 Then
Goto end
Lbl rg
EffDess
EffGraph
If xa=0 and ya=0 Then
Disp "complexe nul"
Goto end
EndIf
If xa>0 Then
xa+1xmax
1xmin
EndIf
If xa<0 Then
xa-1xmin
1xmax
EndIf
If ya>0 Then
ya+1ymax
1ymin
EndIf
If ya<0 Then
1ymax
ya-1ymin
EndIf
Lign 0,0,xa,ya
Lbl end
EndPrgm
sauf que, a l'exécution, il me dit
"manque d'une instruction de début ou fin de bloc" en mettant le curseur à la fin , sur la ligne endprgm...