XProfan

Titre de la fenêtre " BEWEIS DER ALLGEMEINEN SCHNITTFORMEL"
Fenêtre Style 24
set("DECIMALS",15)
declare x!
nochma:
Cls
imprimer
imprimer " Pour Goldenen Schnitt:  x = 1"
imprimer " Pour Silbernen Schnitt: x = 2 (gibt es wirklich!)"
imprimer " Pour Broncenen Schnitt: x = 3 (libre erfunden!)"
imprimer " Pour Pi-ten Schnitt (Kompletter Unsinn): x = "; 4*arctan(1)
imprimer
imprimer " x = ? ";:input x!
imprimer
imprimer ( x!/2 + sqrt(sqr(x!/2)+1) ) ,"-", 1/( x!/2 + sqrt(sqr(x!/2)+1) )," = "
imprimer
imprimer ( x!/2 + sqrt(sqr(x!/2)+1) ) - (1/( x!/2 + sqrt(sqr(x!/2)+1) )), "     ... q.e.d."
waitinput
goto "nochma"