home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Datafile PD-CD 5
/
DATAFILE_PDCD5.iso
/
utilities
/
f
/
fractrace
/
FTS-Files
/
Factorial
< prev
next >
Wrap
Text File
|
1990-07-21
|
180b
|
14 lines
\ Factorial
\ Calculates the factorial of n
var n,factorial,this
n=6
factorial=1
if n>1
for this=n to 1 by -1
factorial=factorial*this
endfor
endif
show factorial