Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- REAL FUNCTION FATORIAL(N)
- ! Locais de memória
- INTEGER N
- ! Cálculos
- FAT = 1
- DO I = 2,N,1
- FATORIAL=FATORIAL*I
- END DO
- END FUNCTION
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
