mise à jour des tests
This commit is contained in:
32
tests/testsAdvanced/fact.vsl
Normal file
32
tests/testsAdvanced/fact.vsl
Normal file
@@ -0,0 +1,32 @@
|
||||
PROTO INT fact(k)
|
||||
FUNC VOID main()
|
||||
{
|
||||
INT i, t[11]
|
||||
i := 0
|
||||
|
||||
WHILE 11 -i
|
||||
DO
|
||||
{
|
||||
t[i] := fact(i)
|
||||
i := i+1
|
||||
}
|
||||
DONE
|
||||
i := 0
|
||||
WHILE 11 -i
|
||||
DO
|
||||
{
|
||||
PRINT "f(", i, ") = ", t[i], "\n"
|
||||
i := i+1
|
||||
}
|
||||
DONE
|
||||
}
|
||||
|
||||
FUNC INT fact(n)
|
||||
{
|
||||
IF n
|
||||
THEN
|
||||
RETURN n* fact(n-1)
|
||||
ELSE
|
||||
RETURN 1
|
||||
FI
|
||||
}
|
||||
Reference in New Issue
Block a user