mise à jour des tests

tests/testsAdvanced/fact3.vsl

@@ -0,0 +1,30 @@
+  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