XProfan

Italia

Michael
Wodrich

Wie schreibe ich Programm-Schleifen in Profan?

---
Eine Zählschleife wie diese...
Kompilieren Markieren Separieren

FOR variable = <startpunkt> TO <endpunkt> STEP <schrittweite>
<schleifenkörper>
NEXT variablere>

wird in Profan zu:
Kompilieren Markieren Separieren

WhileLoop <startpunkt>,<endpunkt>,<schrittweite>

    <schleifenkörper>

EndWhil

Die Laufvariable der Zählschleife è in Profan immer &loop.

Dann kann keine verschachtelte Zählschleife gebaut werden?

Doch, das geht so:
Kompilieren Markieren Separieren

Declare LaufVar1&,LaufVar2&

WhileLoop <startpunkt>,<endpunkt>,<schrittweite>

    LaufVar1& = &loop
    <schleifenkörper>

    WhileLoop <startpunkt>,<endpunkt>,<schrittweite>

        LaufVar2& = &loop
        <schleifenkörper>

    EndWhile

EndWhile

In der ersten Schleife kann dann auf LaufVar1& und in der zweiten Schleife auf beide Variablen zugegriffen werden.

---
Eine Endlosschleife wie diese...
Kompilieren Markieren Separieren

Forever
<schleifenkörper>
Next

wird in Profan zu:
Kompilieren Markieren Separieren

While 1

    <schleifenkörper>

EndWhile

Im Schleifenkörper kann der Befehl BREAK benutzt werden, um die Schleife zu verlassen.

---
Eine Fußschleife:
Kompilieren Markieren Separieren

DO
<schleifenkörper> Ausführung, solange Bedingung gültig ist

WHILE <bedingung>

    oder
    DO
    <schleifenkörper> Ausführung, bis Bedingung gültig wird

UNTIL <bedingung>

wird in Profan mit einem kleinen Trick gelöst:

Da bei diesen Schleifen der Schleifenkörper mindestens einmal durchlaufen wird bevor die Bedingung abgeprüft wird, setzen wir den Schleifenkörper einfach in ein Unterprogramm.

Dann wird die DO...WHILE-Schleife zu:
Kompilieren Markieren Separieren

<Unterprogramm-Aufruf>

While <bedingung>

    <Unterprogramm-Aufruf>

EndWhile

und die DO...UNTIL-Schleife wird zu:
Kompilieren Markieren Separieren

<Unterprogramm-Aufruf>

WhileNot <bedingung>

    <Unterprogramm-Aufruf>

EndWhile

Damit können auch Sonderbehandlungen beim ersten Unterprogrammaufruf (einfach per Parameter) realisiert werden.

MfG
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

31.05.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Genau richtig Michael.

Aber einfacher ist es doch gleich ein Profan zu nehmen was alle diese Schleifen beherrscht.

[...]

31.05.2004 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Zum Quelltext

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

4.097 Views

Untitled	vor 0 min.
RudiB.	02.12.2021
Walter Meidl	02.05.2013
alikiri	17.03.2013
Michael Borowiak	17.06.2011
Di più...

Themeninformationen

Dieses Thema hat 2 subscriber:

unbekannt (1x)

Michael Wodrich (1x)

XProfan

Profan Programm Schleifen

Zum Quelltext

Topic-Options

4.097 Views

Themeninformationen

Informativa sulla privacy