XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Zahlen vergleichen
Lauffähig ab Profan-Version 6.6
declare wert%,art$
cls
wert%=11 Hier Testeingabe

if or(equ(wert%,1), and(gt(wert%,1),lt(wert%,11)) )

    print gut

elseif or(equ(wert%,11), and(gt(wert%,11),lt(wert%,21)) )

    print schlecht

else

    print ausserhalb des Bereiches

endif

waitinput