Category:Amazing Hopper: Difference between revisions
m
→#SYNONYMOUS, #SYNON
m (→#CONTEXT-FREE) |
|||
Line 4,776:
Lo anterior expande a:
main:
emptystack?,not,do{{"No puedo continuar por datos en el stack "},throw(1000)}jsub(obtenercuadradodepi),{"\n"}print
emptystack?,not,do{{"No puedo continuar por datos en el stack "},throw(1000)},jsub(obtenercuadradodepi);emptystack?,do{{"No
puedo continuar por falta de datos "},throw(1001)},{"\n"}print
{0}return
.locals
obtenercuadradodepi:
{3.14159265358979323846}powby'2'
back
CONSIDERACIONES CON #PROTO.
Line 4,791 ⟶ 4,792:
#proto cálculo(_X_,_Y_)
#synon _cálculo _operación, _obtencióndelresultado
Line 4,798 ⟶ 4,799:
_operación (2,100.6)
_obtención del resultado ({M_PI}mulby(180), 0.25)
==== #IMPORT ====
|