XProfan

Título de la ventana " BEWEIS DER ALLGEMEINEN SCHNITTFORMEL"
Ventana de Estilo 24
set("DECIMALS",15)
declarar x!
nochma:
Cls
imprimir
imprimir " Für Goldenen Schnitt:  x = 1"
imprimir " Für Silbernen Schnitt: x = 2 (hay wirklich!)"
imprimir " Für Broncenen Schnitt: x = 3 (frei erfunden!)"
imprimir " Für Pi-ten Schnitt (Kompletter Unsinn): x = "; 4*arctan(1)
imprimir
imprimir " x = ? ";:input x!
imprimir
imprimir ( x!/2 + sqrt(sqr(x!/2)+1) ) ,"-", 1/( x!/2 + sqrt(sqr(x!/2)+1) )," = "
imprimir
imprimir ( x!/2 + sqrt(sqr(x!/2)+1) ) - (1/( x!/2 + sqrt(sqr(x!/2)+1) )), "     ... q.e.d."
waitinput
goto "nochma"