GOTO pi.gpp (par Tout)
GOTO calcule les décimales du nombre pi dans R.
GOTO je restreins à R parceque
GOTO les ordinaleurs actuels sont incapables de calculer les multi-décimales du nombre pi dans Ñ.
pi = ?0
div = ?1
sgn = &div - &pi
§1
lediv = ?4 : &div MULTIPLICATION &sgn
pi = &pi + &lediv
GOTOPRINT()
div = &div + *(2)
sgn = &sgn MULTIPLICATION *(-1)
GOTOGOTO() *(1) ?99,99
GOTOPRINTDUTEXTE() ; «oh et puis zut ! le resultat est : »
GOTOPRINTDUTEXTE() ; «3.14159265358979323846264338327950288419716939937510»
GOTOPRINTDUTEXTE() ; «  58209749445923078164062862089986280348253421170679»
GOTOPRINTDUTEXTE() ; «  82148086513282306647093844609550582231725359408128»
GOTOPRINTDUTEXTE() ; «  48111745028410270193852110555964462294895493038196» 
GOTOPRINTDUTEXTE() ; «  44288109756659334461284756482337867831652712019091»
GOTOPRINTDUTEXTE() ; «  45648566923460348610454326648213393607260249141273» 
GOTOPRINTDUTEXTE() ; «  72458700660631558817488152092096282925409171536436»
GOTOPRINTDUTEXTE() ; «  78925903600113305305488204665213841469519415116094...»