Change test

eval-final-projet/input/eval1-err.l

@@ -0,0 +1,7 @@
+entier $a;
+main()
+{
+$a = 5;
+ecrire( $a );
+}
+$extra = 0;

eval-final-projet/input/eval1.l

@@ -0,0 +1,6 @@
+entier $a;
+main()
+{
+$a = 1;
+ecrire($a);
+}

eval-final-projet/input/eval10-err.l

@@ -0,0 +1 @@
+33a

eval-final-projet/input/eval10.l

@@ -0,0 +1,11 @@
+procedure()
+{
+retour 1;
+}
+
+main()
+{
+ecrire(procedure());
+}
+
+

eval-final-projet/input/eval11-err.l

@@ -0,0 +1,11 @@
+entier $a[10], entier $b;
+main() {
+  $a[0] = 10;
+  $b = 5;
+  ecrire( $a );      # erreur de type ou ecrit 10?
+  ecrire( $a + 1 );  # erreur de type ou ecrit 11?
+  ecrire( $b[0] );   # erreur de type ou ecrit 5?
+  ecrire( $a[10] );  # erreur de type ou ecrit 5?
+  retour 0;
+  ecrire( $b );      # ecrit 5 ou pas?
+}

eval-final-projet/input/eval11.l

@@ -0,0 +1,13 @@
+procedure()
+entier $a;
+{
+$a = 1;
+ecrire($a);
+}
+
+main()
+{
+procedure();
+}
+
+

eval-final-projet/input/eval12.l

@@ -0,0 +1,7 @@
+entier $a;
+main()
+{
+si 1 alors
+{ecrire(1);
+}
+}

eval-final-projet/input/eval13-err.l

@@ -0,0 +1,4 @@
+main() 
+{
+  ecrire( 1 ? 0 ? 1 : 1 ? 0 );
+}

eval-final-projet/input/eval13.l

@@ -0,0 +1,9 @@
+entier $a;
+main()
+{
+si 0 alors
+{ecrire(1);
+}
+sinon
+{ecrire(0);}
+}

eval-final-projet/input/eval14.l

@@ -0,0 +1,18 @@
+entier $tab[10];
+
+main()
+entier $a;
+{
+$a=0;
+tantque $a < 10 faire{
+$tab[$a] = $a;
+$a = $a + 1;
+}
+$a = 0;
+tantque $a < 10 faire{
+ecrire($tab[$a]);
+$a = $a + 1;
+}
+}
+
+

eval-final-projet/input/eval15.l

@@ -0,0 +1,9 @@
+entier $tab[10];
+
+main()
+{
+$tab[4] = 4;
+ecrire($tab[4]);
+}
+
+

eval-final-projet/input/eval16.l

@@ -0,0 +1,7 @@
+entier $a;
+main()
+{
+tantque 0 faire{
+ecrire(1);
+}
+}

eval-final-projet/input/eval17.l

@@ -0,0 +1,9 @@
+entier $a;
+main()
+{
+$a = 0;
+tantque $a < 10 faire{
+ecrire($a);
+$a = $a + 1;
+}
+}

eval-final-projet/input/eval18.l

@@ -0,0 +1,23 @@
+entier $t0,
+entier $t1,
+entier $123,
+entier $,
+entier $$,
+entier $$$,
+entier $f,
+entier $_;
+
+f(entier $$)
+entier $$$,
+entier $f,
+entier $_;
+{
+  $ = $123 + $_ + $$;
+  ecrire($);  
+}
+
+main() {
+  $t0 = 1;
+  $123 = $t0 + 0;
+  f($123);
+}

eval-final-projet/input/eval19.l

@@ -0,0 +1,3 @@
+main(){
+  ecrire(1 & 2);
+}

eval-final-projet/input/eval2-err.l

@@ -0,0 +1,13 @@
+add(entier $a, entier $b)
+{
+retour($a + $b);
+}
+
+main()
+entier $x, entier $y, entier $z;
+{
+$x = 1;
+$y = 2;
+$z = 3;
+ecrire(add($x,$y,$z));
+}

eval-final-projet/input/eval2.l

@@ -0,0 +1,11 @@
+entier $i, entier $carre;
+main()
+{
+    $i = 0;
+    tantque $i < 10 faire 
+    {
+        $carre = $i * $i;
+        ecrire( $carre );
+        $i = $i + 1;
+    }
+}

eval-final-projet/input/eval20.l

@@ -0,0 +1,16 @@
+fact( entier $f ) 
+{
+  si $f = 1 | $f = 0 alors {
+    retour 1;
+  }
+  sinon {
+    retour fact( $f - 1 ) * $f ;
+  }
+}
+
+main() 
+entier $a;
+{
+  $a = lire();
+  ecrire( fact( $a ) );
+}

eval-final-projet/input/eval21.l

@@ -0,0 +1,14 @@
+fibo( entier $n ) 
+{
+  si $n < 2 alors {
+    retour 1;
+  }
+  sinon {
+    retour fibo( $n - 1 ) + fibo( $n - 2 );
+  }
+}
+
+main()
+{
+  ecrire( fibo( lire() ) );
+}

eval-final-projet/input/eval22.l

@@ -0,0 +1,16 @@
+entier $a, entier $b;
+
+pgcd( entier $a, entier $b )
+entier $c;
+{
+  $c = $a - ( $a / $b ) * $b;
+  si $c = 0 alors{ retour $b; }
+  sinon{ retour pgcd( $b, $c ); }
+}
+
+main() {
+  $a = lire();
+  $b = lire();
+  si $b < $a alors{ ecrire( pgcd( $a, $b ) ); }
+  sinon{ ecrire( pgcd( $b, $a ) ); }
+}

eval-final-projet/input/eval23.l

@@ -0,0 +1,5 @@
+main() {
+    si 1 | lire() alors {
+        ecrire(5);
+    }
+}

eval-final-projet/input/eval24.l

@@ -0,0 +1,8 @@
+main() {
+    ecrire(3 | 4);
+    ecrire(3 & 6);
+    ecrire(3 | lire());
+    ecrire(3 & lire());
+    ecrire(0 | lire());
+    ecrire(0 & lire());    
+}

eval-final-projet/input/eval25.l

@@ -0,0 +1,6 @@
+entier $a;
+main() 
+{
+  $a = lire();
+  ecrire( $a < 10 ? 0 : 1);  
+}

eval-final-projet/input/eval26.l

@@ -0,0 +1,11 @@
+main() 
+entier $temp, entier $g, entier $l, entier $v;
+{
+  $temp = lire();                       # temperature de l'eau
+  $g = $temp < 0 | $temp = 0 ? 1 : 0;   # glace ? 
+  $l = $temp < 100 & 0 < $temp ? 1 : 0; # liquide ?
+  $v = !$g & !$l ? 1 : 0;               # vapeur ?
+  ecrire($g);
+  ecrire($l);  
+  ecrire($v);  
+}

eval-final-projet/input/eval27.l

@@ -0,0 +1,6 @@
+main() 
+{
+  ecrire( 1 ? 0 : 1 ? 0 : 1 );
+  ecrire( ( 1 ? 0 : 1 ) ? 0 : 1 );
+  ecrire( 1 ? 0 : ( 1 ? 0 : 1 ) );    
+}

eval-final-projet/input/eval3-err.l

@@ -0,0 +1,4 @@
+main()
+{
+procedure();
+}

eval-final-projet/input/eval3.l

@@ -0,0 +1,5 @@
+entier $a;
+main()
+{
+ecrire(5 * 2);
+}

eval-final-projet/input/eval4-err.l

@@ -0,0 +1,4 @@
+main()
+{
+$a = 1;
+}

eval-final-projet/input/eval4.l

@@ -0,0 +1,23 @@
+max( entier $a, entier $b ) 
+{
+    si $a < $b alors {
+        retour $b;
+    }
+    retour $a;
+}
+
+main()
+entier $v_1, entier $v_2;
+{
+    $v_1 = lire();
+    $v_2 = lire();
+    si max( $v_1, $v_2 ) = $v_1 alors
+    {
+        ecrire( $v_1 );
+    }
+    sinon
+    {
+        ecrire( $v_2 );
+    }
+
+}

eval-final-projet/input/eval5-err.l

@@ -0,0 +1,5 @@
+entier $a, entier $a;
+main()
+{
+$a = 1;
+}

eval-final-projet/input/eval5.l

@@ -0,0 +1,57 @@
+entier $tab[ 10 ];
+
+initialiser()
+{
+    $tab[0] = 8;    $tab[1] = 6;    $tab[2] = 9;
+    $tab[3] = 9;    $tab[4] = 4;    $tab[5] = 2;
+    $tab[6] = 3;    $tab[7] = 1;    $tab[8] = 4;
+    $tab[9] = 5;    
+}
+
+afficher( entier $n )
+entier $i;
+{
+    $i = 0;
+    tantque $i < $n faire {
+        ecrire( $tab[ $i ] );
+        $i = $i + 1;
+    }    
+    ecrire( 0 ); # marqueur fin de tableau         
+}
+
+echanger( entier $i, entier $j )
+entier $temp;
+{
+    $temp = $tab[ $j ];
+    $tab[ $j ] = $tab[ $i ];
+    $tab[ $i ] = $temp;
+}
+
+trier( entier $n )
+entier $echange, entier $j, entier $m;
+{
+    $m = $n;
+    $echange = 1;
+    tantque $echange = 1 faire
+    {
+        $echange = 0;
+        $j = 0;
+        tantque $j < $m - 1 faire 
+        {
+            si $tab[ $j + 1 ] < $tab[ $j ] alors {
+                echanger( $j, $j + 1 );
+                $echange = 1;
+            }
+            $j = $j + 1;
+        }
+        $m = $m - 1;        
+    }    
+}
+
+main()
+{
+    initialiser();
+    afficher( 10 );
+    trier( 10 );
+    afficher( 10 );
+}

eval-final-projet/input/eval6-err.l

@@ -0,0 +1,9 @@
+main()
+{
+$a = 1;
+}
+
+main()
+{
+$a = 1;
+}

eval-final-projet/input/eval6.l

@@ -0,0 +1,13 @@
+entier $a;
+
+procedure()
+{
+ecrire(1);
+}
+
+main()
+{
+procedure();
+}
+
+

eval-final-projet/input/eval7-err.l

@@ -0,0 +1,8 @@
+procedure()
+{
+}
+
+main()
+{
+procedure(1);
+}

eval-final-projet/input/eval7.l

@@ -0,0 +1,5 @@
+entier $a;
+main()
+{
+ecrire(5 - 3 + 2);
+}

eval-final-projet/input/eval8-err.l

@@ -0,0 +1,6 @@
+entier $a;
+
+main()
+{
+ecrire($a[1]);
+}

eval-final-projet/input/eval8.l

@@ -0,0 +1,11 @@
+procedure(entier $a)
+{
+ecrire($a);
+}
+
+main()
+{
+procedure(10);
+}
+
+

eval-final-projet/input/eval9-err.l

@@ -0,0 +1 @@
+entier entier entier

eval-final-projet/input/eval9.l

@@ -0,0 +1,11 @@
+procedure()
+{
+ecrire(1);
+}
+
+main()
+{
+procedure();
+}
+
+