TI98: Finde den Fehler! < Taschenrechner < Mathe-Software < Mathe < Vorhilfe
|
| Status: |
(Frage) überfällig  | | Datum: | 21:06 So 03.02.2008 | | Autor: | Flonk |
| Aufgabe | | Finde den Missing start or end of Block syntax-fehler! |
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Habe dieses Programm x mal durchgeschaut und finde diesen "Missing start or end of block syntax"-fehler einfach nicht!
Danke im Vorraus
______________________
folgen()
Prgm
lbl top
ClrIO
Disp "Folgen und Reihen"
Popup {"Folgen","Reihen"},folge
If folge=1 Then
Popup {"Linear","Geometrisch"},lingeo
If lingeo=1 Then
Popup {"Bis zum n-ten Glied","Das n-te Glied"},linear
If linear=1 Then
Input "Erstes Glied b1:",b1
ClrIO
Input "+q:",q
ClrIO
Input "Ende bn:",bn
For i,2,bn
Disp "b"&string(i)&"= b1+q*"&string(i-1)&"="&string(b1+q*(i-1))
Pause
ClrIO
EndFor
goto Ende
ElseIf linear=2 Then
Input "Erstes Glied b1:",b1
ClrIO
Input "+q:",q
ClrIO
Input "Glied bn:",bn
Pause
ClrIO
Disp "Lösung Glied bn= b1+q*"&string(bn-1)&"="&string(b1+q*(i-1))
Pause
ClrIO
goto Ende
EndIf
EndIf
If lingeo=2 then
Popup {"Bis z. n-ten Glied","Das n-te Glied","q berechnen"},geomet
If geomet=1 Then
Input "Erstes Glied b1:",b1
ClrIO
Input "q:",q
ClrIO
Input "Ende bn:",bn
For i,2,bn
Disp "b"&string(i)&"= b1*q^"&string(i-1)&"="&string(b1*(q^(i-1)))
Pause
ClrIO
EndFor
Pause
ClrIO
goto Ende
ElseIf geomet=2 Then
Input "Erstes Glied b1:",b1
ClrIO
Input "+q:",q
ClrIO
Input "Glied bn:",bn
Pause
ClrIO
Disp "Lösung Glied bn= b1+q*"&string(bn-1)&"="&string(b1*q^(i-1))
Pause
ClrIO
goto Ende
ElseIf geomet=3 Then
ClrIO
Disp "Kleineres Glied zuerst!"
Dialog
Dropdown "Glied 1",{"b1","b2","b3","b4","b5","b6","b7","b8","b9","b10"},qrechn1
Dropdown "Glied 2",{"b1","b2","b3","b4","b5","b6","b7","b8","b9","b10"},qrechn2
EndDlog
Input "Kleineres Glied:",bn1
Input "Größeres Glied:",bn2
If qrechn1 [mm] \ge [/mm] qrechn2
goto Error
qrechn1-qrechn2r
Input "kleineres Glied:",i1
Input "größeres Glied:",i2
root(i1/i2,r)e
Disp "Die ("&string(qrechn1)&"- "&string(qrechn2)&")te Wurzel aus ("&string(i1)&"/"&string(i2)&" =q"
Disp "q = "&string(e)
Pause
ClrIO
goto Ende
EndIf
EndIf
ElseIf folge=2 Then
Popup {"Linear","Geometrisch"},linegeom
If lingeom=2
Popup {"Endlich","Unendlich"},endlich
If linegeom=1 Then
Input "b1: ",b1
Input "q: ",q
Input "Sn: ",sn
b1x
For i,1,sn
b1+q*im
x+mx
EndFor
Disp "Sn = "&string(b1)&"+"&string(b1)&"+q+...+ ("&string(b1)&"+"&string(q)&"*("&string(sn)&"-1)),x
Pause
ClrIO
goto Ende
EndIf
If lingeom=2 and endlich=1 Then
Input "b1: ",b1
Input "q: ",q
Input "Sn: ",sn
b1x
For i,1,sn
[mm] b1*q^im
[/mm]
x+mx
EndFor
Disp "Sn = b1 + b1*q + etc. +"
Disp "b1*(q^(n-1)) = "&string(x)
Pause
ClrIO
goto Ende
EndIf
If lingeom=2 and endlich=2 Then
Input "b1: ",b1
Input "q: ",q
If q1 Then
Text "Die Reihe hat keinen Grenzwert (Unendlich!)"
goto Ende
EndIf
(b1*(1-(1-q)))p
Disp "Grenzwert = "&string(b1)&"*(1/(1-"&string(q)&"))",p
Pause ClrIO
goto Ende
EndIf
EndIf
lbl Ende
Popup {"Nochmal","Ende"},ende
If ende=2
Disphome
goto top
EndPrgm
___________________________
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig  | | Datum: | 22:28 So 10.02.2008 | | Autor: | DerVogel |
Hallo,
ich kenne mich zwar nicht mit dem TI98 aus, aber ich persönlich finde es unverschämt so eine Frage zu stellen, hier einfach soviel Code reinzuwerfen.
Aber dennoch ein Tipp: vllt. solltest du dein Programm erstmal partiell testen.
|
|
|
| |
|
| Status: |
(Mitteilung) Reaktion unnötig | | Datum: | 21:20 Mi 05.03.2008 | | Autor: | matux |
$MATUXTEXT(ueberfaellige_frage)
|
|
|
|
