Das deutsche QBasic- und FreeBASIC-Forum

[Candeias]

Guten Tag
Ich habe eine kurze Frage zu einem einfachen Programm. So sieht das Programm aus:
_______________________________________

'Olgas ordnen
DIM SHARED wort$(100)
DIM SHARED n
eingabe
ordnen
ausgabe

SUB eingabe
INPUT "Wie viele Wörter?", n
FOR i=1 TO n
INPUT wort$(i)
NEXT i
END SUB

SUB ordnen
FOR i=1 TO n
setzeRichtigesWortauf(i)
NEXT i
END SUB

SUB setzeRichtigesWortauf(i)
min=1
FOR k=1 TO n
IF wort$(k)<wort$(min) THEN min=k
NEXT k
zwischenlager$=wort$(i)
wort$(i)=wort$(min)
wort$(min)=zwischenlager$
END SUB
_______________________________________

Nun das Programm soll zur alphabetischen Ordnung einer bestimmten Anzahl von Wörtern dienen & ist in meinem Lernbuch in der Kategorie "Felder ordnen" festgehalten. Ich bin Schüler auf einem Gymnasium und würde von euch gerne den letzten SUB ausgabe wissen. Habe sämtliche Möglichkeiten durchprobiert, jedoch hat nichts funktioniert. Danke für eure Antworten.

[croco97]

Na ja, genauso wie die Eingabe:

[dreael]

Sonst noch einige Hinweise zur Programmdesignverbesserung:
- Du kannst auf SHARED komplett verzichten, weil sich bei SUB auch Felder übergeben lassen
- Auf die Variable n kannst Du prinzipiell ebenfalls verzichten, weil QB die Feldgrösse mit LBOUND() und UBOUND() auslesen lässt.

Siehe dazu auch Artikel

http://www.dreael.ch/Deutsch/BASIC-Knowhow-Ecke/SUB-Unterprogramme.html

Speziell Untertitel "Feldvariablen als Aufrufparameter" beachten, wo übrigens exakt so ein Sortierbeispiel erscheint.
_________________
Teste die PC-Sicherheit mit www.sec-check.net