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

Hoch zu "Programme und Tutorials"

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

Länge (Anzahl der Zeichen) einer Zeichenkette

Die Länge $\operatorname {length} (str,i,k)$ der Zeichenkette $str$ wird ab dem $i$-ten Zeichen von links berechnet für $0<i,k<\operatorname {length} (str,1,1)+1$ und $i=k\in \mathbb {N} ^{+}$. Außerhalb dieser Definition wird für $i$ und $k$ 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