TI-Basic: Programme und Tutorials: Länge einer Zeichenkette

Aus Wikibooks
Erstellt von: Peter Riedel
Schwierigkeitsgrad: Einsteiger
Modell: Voyage 200

Länge (Anzahl der Zeichen) einer Zeichenkette[Bearbeiten]

Die Länge der Zeichenkette wird ab dem -ten Zeichen von links berechnet für und . Außerhalb dieser Definition wird für und immer 0 zurückgegeben. Das dritte Argument muss gleich dem zweiten Argument sein, damit man nicht nur die gesamte Stringlänge, sondern auch die Länge ab einem bestimmten Zeichen berechnen kann. Da man in Funktionen nicht direkt den Wert einer Variablen einer anderen Variablen (i→k) zuweisen kann, muss dieser als drittes Argument von außen übergeben werden. Wenn man also die Gesamtlänge eines Strings ab dem ersten Zeichen haben will, schreibt man beispielsweise length("Hallo",1,1) und erhält 5 als Ergebnis. Weiteres Beispiel für Teillänge: length("Hallo",3,3) = 3.

:length(str,i,k)
:Func
:If i<1 or i≠k or mod(i,1)≠0
:  Return 0
:While mid(str,i,1)≠""
:  i+1→i
:EndWhile
:Return i-k
:EndFunc