JerryZhu
/
xiuos
forked from chunyexixiaoyu/xiuos
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
xiuos/Ubiquitous/Nuttx/apps/examples/bastest/tests/test07.bas

5 lines
75 B
QBasic
Raw Permalink Blame History

10 def fna(x)
20 if x=0 then r=1 else r=x*fna(x-1)
30 =r
40 print fna(7)
Reference in New Issue View Git Blame Copy Permalink