XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Mathematik: In einem String abgelegte Gleichung ausrechnen
Ohne Berücksichtigung der Regel Punktrechnung geht vor Strichrechnung
Als Grundlage zum Weiterbasteln aber prima geeignet ...
Con David iF Strutz
http://xprofan.com
print iF-Calcer :);chr$(10)
declare os$,s$,stack&,num&,oop$,op$,tmp$
s$=20*300-1+1+4:2:2*10=
os$=s$
stack&=0
oop$=
op$=

while len(s$)

    tmp$=

    while (ord(mid$(s$,1,1)) > 47) and (ord(mid$(s$,1,1)) <58) and len(s$)

        tmp$=tmp$+mid$(s$,1,1)
        s$=del$(s$,1,1)

    wend

    oop$=op$
    op$=mid$(s$,1,1)
    s$=del$(s$,1,1)

    ifnot len(oop$)

        stack&=stack&+val(tmp$)

    elseif oop$=+

        stack&=stack&+val(tmp$)

    elseif oop$=-

        stack&=stack&-val(tmp$)

    elseif (oop$=/) or (oop$=:)

        stack&=stack& / val(tmp$)

    elseif (oop$=*) or (oop$=x)

        stack&=stack& * val(tmp$)

    endif

wend

print os$;stack&
waitkey
./../../references-fonction/XProfan/end/'>end