FSR - QBasic Seite 21

AG Informatik

Zur Umwandlung von Klein- in Großbuchstaben verwendet man die Funktion UCASE$(x$), im umgekehrten Fall die Funktion LCASE$(x$).

Das folgende Programm wandelt eine beliebige Zeichenkette in Großbuchstaben um.

       REM Strings10
       CLS
       LET x$="Reden ist Silber, Schweigen ist Gold."
       PRINT x$
       FOR n=1 TO LEN(x$)
         z$=MID$(x$,n,1)
         z$=UCASE$(z$)
         MID$(x$,n,1)=z$
       NEXT n
       PRINT x$

Ändere das obige Programm so ab, daß die Zeichenkette nur aus Kleinbuchstaben besteht.
Wähle als Zeichenkette den Text "Ältere Menschen ärgern sich öfters, daß Ihnen keiner über die Straße hilft.". Überprüfe, ob die beiden Funktionen auch bei dieser Zeichenkette korrekt arbeiten.

Der schwierigste Zeichenkettenfunktion ist die INSTR-Funktion. Mit ihr kann man feststellen, ob eine Zeichenkette (such$) in einer anderen Zeichenkette (gesamtkette$) vorkommt. Wird such$ in gesamtkette$ gefunden, so gibt c die Position an, wird such$ nicht gefunden hat c den Wert 0.
Syntax: c=INSTR(gesamtkette$,such$)

Das folgende Programm demonstriert die Verwendung der INSTR-Funktion. Starte das Programm mehrfach und prüfe verschiedene Buchstaben (klein und groß), und auch solche, die in der Zeichenkette nicht vorkommen.

       REM Strings11
       CLS
       LET x$="Reden ist Silber, Schweigen ist Gold."
       INPUT "Buchstabe: ", y$
       c=INSTR(x$,y$)
       PRINT "Der Buckstabe "; y$; " kommt in "; x$;
       IF c>0 THEN
         PRINT " an Position "; c;
       ELSE
         PRINT " nicht ";
       ENDIF
       PRINT " vor."