XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Schleifen verschachteln
Betrachtung von binärem und logischem AND
Autor: Michael Wodrich, www.michael-wodrich.de
Außerdem wird hier gezeigt, das Zählschleifen
sehr einfach verschachtelt werden können.
Def BinStr$(1)  Right$(0000+Bin$(&(1)),4)
Declare x&,y&,z&,s$
NumWidth 2
ClearList
AddString Die Werte kommen wie folgt zustande:  z& = @And(x&,y&)
AddString Im Dezimalbereich ist zu sehen, daß die Werte von z nur binär
AddString betrachtet einen Sinn ergeben.
AddString
AddString  x    y    z     x  y  z

WhileLoop 0,15

    x& = &loop

    WhileLoop 0,15

        y& = &loop
        z& = @And(x&,y&)
        s$ = BinStr$(x&),BinStr$(y&),BinStr$(z&),,x&,y&,z&
        AddString s$

    EndWhile

EndWhile

ListBox$(Ergebnis bei @And (binär),2)
ClearList
AddString Die Werte kommen wie folgt zustande:  z& = x& and y&
AddString Hier wird schnell deutlich: Die Werte werden nur als
AddString Null oder Ungleich Null betrachtet, also eine
AddString logische Verknüpfung. (0: Unwahr, <>0: Wahr)
AddString  x    y    z     x  y  z

WhileLoop 0,7

    x& = &loop

    WhileLoop 0,7

        y& = &loop
        z& = x& and y&
        s$ = BinStr$(x&),BinStr$(y&),BinStr$(z&),,x&,y&,z&
        AddString s$

    EndWhile

EndWhile

ListBox$(Ergebnis bei x And y (logisch),2)
./../../funktionsreferenzen/XProfan/end/'>End