Files
xiuos/Ubiquitous/Nuttx/apps/examples/bastest/tests/test07.bas
2021-06-09 14:33:15 +08:00

5 lines
75 B
QBasic

10 def fna(x)
20 if x=0 then r=1 else r=x*fna(x-1)
30 =r
40 print fna(7)