[mOved] ne marche pas - Page 1

hallo j'ai un proleme. je suis nouveau au fait des probram, mais tout le mond doit commence.
j'ai ecrit une program qu'ill doit calcule tout des posibilités avec y=mx+q ou m=(y2-y1)/(x2-x1)
mon program est comme ça:

()
Prgm
Lbl a

PopUp {"1Punkt","2punkte"},bb
if bb=2
goto aa

PopUp {"Y","X","m","q"},bbb
if bbb=2
goto aaa
if bbb=3
goto aaaa
if bbb=4
goto aaaaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x",x
Request "m",m
Request "q",q
EndDlog
expr(x)»x
expr(m)»m
expr(q)»q
mx+q»y
Disp "y",y," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm
Lbl (!!) aaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "y",y
Request "m",m
Request "q",q
EndDlog
expr(y)»y
expr(m)»m
expr(q)»q
(y-q)/m»x
Disp "x",x," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm
Lbl aaaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x",x
Request "y",y
Request "q",q
EndDlog
expr(x)»x
expr(y)»y
expr(q)»q
(y-q)/x»m
Disp "m",m," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm
Lbl aaaaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x",x
Request "y",y
Request "m",m
EndDlog
expr(x)»x
expr(y)»y
expr(m)»m
y-m*x»q
Disp "q",q," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm





Lbl aa
PopUp {"m","q","x1","x2","y1","y2"},bbbb
if bbbb=2
goto aaaaaa
if bbbb=3
goto aaaaaaa
if bbbb=4
goto aaaaaaaa
if bbbb=5
goto aaaaaaaaa
if bbbb=6
goto aaaaaaaaaa
ClrIO
Local x,xx,y,yy,m
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x1 ",x
Request "y1 ",y
Request "x2 ",xx
Request "y2 ",yy
EndDlog
expr(x)»x
expr(xx)»xx
expr(y)»y
expr(yy)»yy
(yy-y)/(xx-x)»m
Disp "m",m," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm
Lbl aaaaaa
ClrIO
Local x,xx,y,yy,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x1 ",x
Request "y1 ",y
Request "x2 ",xx
Request "y2 ",yy
EndDlog
expr(x)»x
expr(xx)»xx
expr(y)»y
expr(yy)»yy
y-((yy-y)/(xx-x))*x»q
Disp "q",q," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm
Lbl aaaaaaa
ClrIO
Local x,xx,y,yy,m
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "y1 ",y
Request "x2 ",xx
Request "y2 ",yy
Request "m ",m
EndDlog
expr(m)»m
expr(xx)»xx
expr(y)»y
expr(yy)»yy
(y-yy)/m+xx»x
Disp "x1",x," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm

Lbl aaaaaaaa
ClrIO
Local x,xx,y,yy,m
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x ",x
Request "y1 ",y
Request "y2 ",yy
Request "m ",m
EndDlog
expr(m)»m
expr(x)»x
expr(y)»y
expr(yy)»yy
x-(y-yy)/m»xx
Disp "x2",xx," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm

Lbl aaaaaaaaa
ClrIO
Local x,xx,y,yy,m
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x ",x
Request "x2 ",xx
Request "y2 ",yy
Request "m ",m
EndDlog
expr(m)»m
expr(x)»x
expr(xx)»xx
expr(yy)»yy
m*(x-xx)+yy»y
Disp "y1",y," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm

Lbl aaaaaaaaaa
ClrIO
Local x,xx,y,yy,m
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "x ",x
Request "x2 ",xx
Request "y ",yy
Request "m ",m
EndDlog
expr(m)»m
expr(x)»x
expr(xx)»xx
expr(y)»y
y-m*(x-xx)»yy
Disp "y2",yy," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
EndPrgm

jai recu tout le temps une fault plus exact une syntax chez les(!!)

est -ce que quelques-un trouve le fault?
merci

EndPrgm Lbl (!!) aaa

je n'ai pas lu tout ton programme (un peu long, et g pas bcp le temps), mais EndPrgm marque la fin du code source du programme, il ne peut donc pas y avoir d'autre code après... si tu veux stoper l'execution du programme (quand il est fini), utilise "Stop", et non pas "EndPrgm"

ça doit être ça, mais quand t'as des problèmes évite de recopier des trucs aussi long... ceux qui répondent n'ont pas vraiment que ça à faire de lire une source complete, t'auras probablement plus de réponses si tu ne met que les 10 lignes qui posent problème.

Et je suis pas sûr que Goto aaaaaaaaaaaaaaaaaaaaa[...] fonctionne. Le nom de l'étiquette doit être de 8 caractères maxi

Geraden Gleichung, ça veut dire quoi ?

merci à tout. geradengleichung est une function du mathe. y=mx+q. très simple mais je paense que cest pérfect pour commençer de faire des program.
parceque je vit en swiss je parle allemamd. cest pourquoi je fait beaucoup de fault. main à l'allemand je ne trouve aucun forum!

je suis votre conseil come stop et 8 caractères maxi et éspere quil marche.

tu peux aussi parler anglais si tu préfères

->Forum international

As jfg said, you can try this one if you prefer speaking english

Vertyos
: ça doit être ça, mais quand t'as des problèmes évite de recopier des trucs aussi long... ceux qui répondent n'ont pas vraiment que ça à faire de lire une source complete, t'auras probablement plus de réponses si tu ne met que les 10 lignes qui posent problème.

NON! Surtout pas!
* S'ils mettent 10 lignes, le problème est toujours partout à part dans ces 10 lignes.
* N'avoir qu'une partie du programme empêche de compiler/tokéniser/assembler (selon le langage) pour tester.

naPO :
Geraden Gleichung, ça veut dire quoi ?

équation de droite

Kevin Kofler
: * S'ils mettent 10 lignes, le problème est toujours partout à part dans ces 10 lignes.

"Enter : goto", ça envoie sur la zone de l'erreur, et à partir de là on peut dans la majorité des cas en déduire d'où vient le problème

* N'avoir qu'une partie du programme empêche de compiler/tokéniser/assembler (selon le langage) pour tester.

Tu es pret à lancer le programme pour le faire planter, sans même savoir quelles sont les conditions nécessaires pour ça, toi ?

VTI est fait pour ça.

salut.
merci beaucoup de votre conseil. je change mon program comme vous avez dit et maintenat il marche. main pas tout. il marce pour mon premier imput quand je veut savoir quest ce que Y est. main quand je prend la deuxiem variable je recoit une nouvelle fault. invalid variable reference. la callculette me montre la fault ici chez les(!!!)

Stop
Lbl aaa
ClrIO
Local x,y,m,q
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "y",y
Request "m",m
Request "q",q
EndDlog(!!!)
expr(y)»y
expr(m)»m
expr(q)»q
(y-q)/m»x
Disp "x",x," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
Stop

est ce que quelqu'un trouve la fault?

jai ajoute mon program si quelque se interesse http://yn1.free.fr/up/GG3.rar

Tu as essayé de faire

Local x,y,m,q
""-> q
"" -> m
"" -> y
setMode("Exact/Approx","APPROXIMATE")
setMode("Display Digits","FIX 2")
Dialog
Title "Geraden Gleichung"
Request "y",y
Request "m",m
Request "q",q
EndDlog

ça peut peut-être marcher

cest vrai le program marche si je le fait comme tu dis. mais il ne fait pas ce que je veut. ala fin il ne calcule pas. il seulemant ecrit

y
"x"*"m"+"q"

mais il doit calculer ce term.

est aver les deux point, la deuxieme art de ma program ne marche pas encore.

Il faut garder tes expr. (Du mußt deine expr beibehalten.)

je ne comprend pas. est ce que je doit ecrir
expr(y)->y par exemple ou quelque autre chose?
si je le fait commme ça il ne marche pas.

excuse-moi pour faire beaucoup des complication mais je ne peux pas regarder la solution!

Il suffit de mettre les deux programmes (le tien et celui de Flanker) ensemble:

Local x,y,m,q 
""-> q 
"" -> m 
"" -> y 
setMode("Exact/Approx","APPROXIMATE") 
setMode("Display Digits","FIX 2") 
Dialog 
Title "Geraden Gleichung" 
Request "y",y 
Request "m",m 
Request "q",q 
EndDlog
expr(y)»y 
expr(m)»m 
expr(q)»q 
(y-q)/m»x 
Disp "x",x," " 
PopUp {"Retry","Quit"},b 
If b=1 
Goto a 
ClrIO 
Stop

merci mais le problem n'est pas disparu.

()
Prgm
Lbl a

PopUp {"1Punkt","2punkte"},bb
if bb=2
goto aa

PopUp {"Y","X","m","q"},bbb
if bbb=2
goto aaa
if bbb=3
goto aaaa
if bbb=4
goto aaaaa
ClrIO
Local x,y,m,q
" "»x
" "»m
" "»q
Dialog
Title "Geraden Gleichung"
Request "x ",x
Request "m ",m
Request "q ",q
EndDlog
expr(x)»x
expr(m)»m
expr(q)»q
m*x+q»y
Disp "y",y," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
Stop

Lbl aaa
ClrIO
Local x,y,m,q
----------------------------------------------------------------
" "»y
" "»m
" "»q
Dialog
Title "Geraden Gleichung"
Request "y ",y
Request "m ",m
Request "q ",q
EndDlog
expr(y)»y
expr(m)»m
expr(q)»q
(y-q)/m»x
Disp "x",x," "
PopUp {"Retry","Quit"},b
If b=1
Goto a
ClrIO
Stop


le program marche justqu'à la lingne,mais ça est seulement la premiere variable. abres il ne mache pas.

le fault que je revevoit est: invalid variable reference

tu as défini 2 fois les variables en Local, essaie de supprimer la 2ème ligne Local