31 lines
483 B
Plaintext
31 lines
483 B
Plaintext
PROTO INT fact(k)
|
|
FUNC VOID affichetab(taille, t[]) {
|
|
INT i
|
|
i := 0
|
|
WHILE taille - i
|
|
DO {
|
|
PRINT "f(", i, ") = ", t[i], "\n"
|
|
i := i+1
|
|
}
|
|
DONE
|
|
}
|
|
FUNC VOID main() {
|
|
INT n
|
|
PRINT "Que vaut n ?"
|
|
READ n
|
|
{
|
|
INT i, t[n]
|
|
i := 0
|
|
WHILE n - i
|
|
DO {
|
|
t[i] := fact(i)
|
|
i := i+1
|
|
}
|
|
DONE
|
|
affichetab(n, t)
|
|
}
|
|
}
|
|
FUNC INT fact(n)
|
|
IF n THEN RETURN n* fact(n-1)
|
|
ELSE RETURN 1 FI
|