Schleifen mit Nspire CAS < Taschenrechner < Mathe-Software < Mathe < Vorhilfe
|
| Aufgabe | | Eine feste Zahl ist angegeben(Beispiel 6). Es sollen alle Zufallszahlen angegeben werden welche nicht den selben Teiler besitzen. |
Hallo!
Ich habe eine Aufgabe entwickelt welche vom Grundlegenden Aufbau funktionieren sollte. Jedoch wird als Fehlermeldung im TI-Nspire CAS "Zu viele Argumente" angezeigt. Die bisherige Aufgabe:
Define LibPub zufallszahl()=
Prgm
:Local i,li,z,b
:li={}
:For i,2,n
:li=augment(li,{i^(2)})
:EndFor
:Disp li
:i:=1:li:={}
:While i≤n
:li:=augment(li,{i^(3)}):i:=i+1
:EndWhile
:Disp li
:z:=randInt(1,10):b:=randInt(1,10)
:While gcd(z,b)>1
:b:=randInt(1,10)
:EndWhile
:li:={}
:Loop
:z:=randInt(1,6):li:=augment(li,{z})
:If z=6 Then
:Goto beendet
:EndIf
:EndLoop
:Lbl beendet: Disp li: Disp "ZAhl Nummer 1"
:EndPrgm
Ich weiß nicht wo der Fehler liegt.
Ich würde mich über Anregungen freuen!
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
Viele Grüße!
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 11:37 Fr 10.06.2011 | | Autor: | rolf7 |
Hallo,
deine Fehlermeldung erhalte ich nicht.
Dafür aber eine andere, die auf einen Syntax-Fehler schließen läst. Da du hier aber solchen nicht drin hast, muss es noch eine Abweichung zwischen dem, was du auf deinem Ti-nspire CAS hast und deinem Print hier geben.
In Zeile zwei hast du die Zuweisung falsch (sicher nur ein Schreibfehler).
Deine Variable n hast du nicht im Prgm definiert.
So läuft gar nichts. Du hast sie sicherlich ausserhalb deines Prgm mit einem Zahlenwert belegt, sonst würde sowieso nichts laufen.
Ich habe das mal beseitigt und Var n am Prgm-Anf. eingegeben, damit läuft dein Prgm.
Deinen Algorithmus solltest du neu entwerfen, denn er erfüllt nicht seine Aufgabe.
mfg rolf7
|
|
|
|
