Infinity-Profan

//Beispiele para zeilenweises- y zeilenübergreifendes Carta:
imprimir "Dies es
una Texto con uno
Stringkonstante con
Zeilenumbrüchen"
imprimir "Dies es\nein Texto con uno \nStringkonstante con\nZeilenumbrüchen."
imprimir 10+20;imprimir 30+40
imprimir 10+20
imprimir 30+40
imprimir (10
+20
+30)
imprimir (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 = null
var a = 3
var b = 4
imprimir "??? rumwurzeln ???"
imprimir "Die einfache Variante /auch con Espacio-Operator."
imprimir "  c = " + str(sqrt(a*a+b*b))// son 5 = Wurzel 25 de
imprimir "  c = " + str sqrt a*a+b*b// son 5
imprimir "  c = " + sqrt a*a+b*b// son 5
imprimir "Jetzt es torcido: "
imprimir "          c = " + sqrt a*a+b*b + "mm"// son NaN Not a Number wegen "mm"
imprimir "Da va qué! "
imprimir "  c = " + sqrt a*a+b*b + ""// son 5 de
imprimir "  c = " + sqrt a*a+b*b + "0"// son 15.8.. = Wurzel 250 de
imprimir "  c = " + sqrt a*a+b*b + "900"// son 16.9.. = Wurzel 25900 de
imprimir "  c = " + sqrt a*a+b*b + null// son 5 de
imprimir "... sin Wurzel ..."
imprimir a*a+b*b + str_text// son 25mm de
imprimir a*a+b*b + str_leer// son 25 de
imprimir a*a+b*b + str_zero// son 250 de
imprimir a*a+b*b + str_zahl// son 25900 de
imprimir a*a+b*b + null_var// son 25 de
imprimir " ... con Wurzel ..."
imprimir "  c = " + sqrt a*a+b*b + str_text// son NaN de
imprimir "  c = " + sqrt a*a+b*b + str_leer// son 5 de
imprimir "  c = " + sqrt a*a+b*b + str_zero// son 15.8.. = Wurzel 250 de
imprimir "  c = " + sqrt a*a+b*b + str_zahl// son 16.9.. = Wurzel 25900 de
imprimir "  c = " + sqrt a*a+b*b + null_var// son 5 de
imprimir "---------------------------------
"
imprimir "So debería lo ser: "
imprimir  "     c = " + sqrt(a*a+b*b) + "mm"// son 5mm de...hier Klammer nötig!
/ /
// ... solange ellos aún en el XProfan.api fehlt BETA !

proc sqrt(p1)

    volver math(math.sqrt,p1)

ENDPROC