Infinity-Profan

//Beispiele pour zeilenweises- et zeilenübergreifendes écrivons:
imprimer "Dies ist
un Text avec einer
Stringkonstante avec
Zeilenumbrüchen"
imprimer "Dies ist\non Text avec einer \nStringkonstante avec\nZeilenumbrüchen."
imprimer 10+20;imprimer 30+40
imprimer 10+20
imprimer 30+40
imprimer (10
+20
+30)
imprimer (10+20+30)

a=10
a=10,b=10
a=10 b=10

a[0]=10
a.0=10
/ /
a["test"]["test"]=10
a.test.test=10
/ /
b=[10,20,30]
/ /
c=["Hallo"=10,"Welt"=["pt2"=20,"pt3"=30]]

// InfinityProfan Program v0.7.12
var str_text = "mm"
var str_leer = »
var str_zero = "0"
var str_zahl = "900"
var null_var = zéro
var a = 3
var b = 4
imprimer "??? rumwurzeln ???"
imprimer "Die simple variante /aussi avec Space-Operator."
imprimer "  c = " + str(sqrt(a*a+b*b))// gibt 5 = Wurzel 25 aus
imprimer "  c = " + str sqrt a*a+b*b// gibt 5
imprimer "  c = " + sqrt a*a+b*b// gibt 5
imprimer "Jetzt ca va de travers: "
imprimer "          c = " + sqrt a*a+b*b + "mm"// gibt NaN Not a Number à cause de "mm"
imprimer "Da allez quoi! "
imprimer "  c = " + sqrt a*a+b*b + »// gibt 5 aus
imprimer "  c = " + sqrt a*a+b*b + "0"// gibt 15.8.. = Wurzel 250 aus
imprimer "  c = " + sqrt a*a+b*b + "900"// gibt 16.9.. = Wurzel 25900 aus
imprimer "  c = " + sqrt a*a+b*b + zéro// gibt 5 aus
imprimer "... sans Wurzel ..."
imprimer a*a+b*b + str_text// gibt 25mm aus
imprimer a*a+b*b + str_leer// gibt 25 aus
imprimer a*a+b*b + str_zero// gibt 250 aus
imprimer a*a+b*b + str_zahl// gibt 25900 aus
imprimer a*a+b*b + null_var// gibt 25 aus
imprimer " ... avec Wurzel ..."
imprimer "  c = " + sqrt a*a+b*b + str_text// gibt NaN aus
imprimer "  c = " + sqrt a*a+b*b + str_leer// gibt 5 aus
imprimer "  c = " + sqrt a*a+b*b + str_zero// gibt 15.8.. = Wurzel 250 aus
imprimer "  c = " + sqrt a*a+b*b + str_zahl// gibt 16.9.. = Wurzel 25900 aus
imprimer "  c = " + sqrt a*a+b*b + null_var// gibt 5 aus
imprimer "---------------------------------
"
imprimer "So sollte es son: "
imprimer  "     c = " + sqrt(a*a+b*b) + "mm"// gibt 5mm aus...ici Klammer nötig!
/ /
// ... solange vous encore dans qui XProfan.api fehlt BETA !

proc sqrt(p1)

    return math(math.sqrt,p1)

endproc