10 zFrogram to show the vse of recursiori:

so

36 FROGRAM FACTOR;

40 .

50 Tnis program calculates the factorial of a numder input from tne
60 kkeydooard 1) vsing recursion and 2) using an iterative metnjoz.:

»
70
š 80 TYPE
že 90  NPOSINT » 0.,,MAXINT;
. 100
110 VAR
120 METHOD : CHAR; r
130  NUMEER : POSINT; E:
140 H
150 <IRecursive algorithm. s
1640 ;
170 FUNCTION RFAC(N -2 POSINT) % INTECER;
189 :
190 VAR F 3 POSINT;
Ce 200 . s
)]. -%19 -scCIM
; zz IF N>1 THEN Fža N x RFAC(N-1) CRFAC irvoked' N times
; 230 ELSE Fža 1;
- 249 RFAC tz F s
250 ENO; 4
; 260 I ši
; 270 <cIterative solution? gi
: 280 ti
299 FUNCTION IFAC(N 2 POSINT) : INTEGER; i
390
319 VAR I,F% POSINT; :
320  MEEGIN | H
320 F ot: 1) .
340 FOR I :»« 2 TO N DO F :!» Fxi; CSimple Locp: !
PSI — INN AA a ee dane eni, z ji
360 BENO;
SPY
230 £EGIN jj
a) 290 REFERAT si)
š j so kRZTE('Give method (I or R) and riumoar a] si
410 REAOLN; z
429 READ (METHOD, NUMEBER); hI
230 IF METHOD » "R' s
420 THEN WRITELN(NUNETR,'! m ',UFACINUMNETR)) hi
450 ELSE WRITILN(NUMSEA,'! s ',ITAC.NUMLZR)) ;
46)  VUNTI. NUPSEREI k
470 END.

di nd Ka
ze vee —--a on Neron prome > Pra

HM