2019-09-26 15:04:21 +01:00
|
|
|
|
2019-09-26 21:50:50 +01:00
|
|
|
d hello^MyMathRoutines
|
2019-09-26 15:04:21 +01:00
|
|
|
|
|
|
|
|
r "Enter n: ",n,!
|
|
|
|
|
|
2019-09-26 21:50:50 +01:00
|
|
|
s areaCircle=$$areaCircle^MyMathRoutines(n)
|
2019-09-26 15:04:21 +01:00
|
|
|
w "areaCircle(",n,") = ",areaCircle,!
|
|
|
|
|
|
2019-09-26 21:50:50 +01:00
|
|
|
s fibonacci=$$fibonacci^MyMathRoutines(n)
|
2019-09-26 15:04:21 +01:00
|
|
|
w "fibonacci(",n,") = ",fibonacci,!
|
|
|
|
|
|
2019-09-26 21:50:50 +01:00
|
|
|
s factorialByVal=$$factorialByVal^MyMathRoutines(n)
|
2019-09-26 15:04:21 +01:00
|
|
|
w "factorialByVal(",n,") = ",factorialByVal,!
|
|
|
|
|
|
|
|
|
|
s m=n
|
2019-09-26 21:50:50 +01:00
|
|
|
do factorialByRef^MyMathRoutines(.n)
|
2019-09-26 15:04:21 +01:00
|
|
|
w "factorialByRef(",m,") = ",n,!
|
