easy partiel

eval-partiel/input/affect-err.l

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

eval-partiel/input/affect.l

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

eval-partiel/input/boucle.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-partiel/input/eval1.l

@@ -0,0 +1,25 @@
+add (entier $a, entier $b)
+{
+ retour $a + $b;
+}
+
+mult (entier $a, entier $b)
+{
+ retour $a * $b;
+}
+
+main()
+entier $a, entier $b, entier $op;
+{
+ $a = lire();
+ $b = lire();
+ $op = lire();
+ si $op = 1 alors {
+  ecrire(add($a, $b));
+ }
+ sinon {
+  si $op = 2 alors {
+   ecrire(mult($a, $b));
+  }
+ }
+}

eval-partiel/input/eval1err.l

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

eval-partiel/input/eval2.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-partiel/input/eval2err.l

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

eval-partiel/input/eval3.l

@@ -0,0 +1,12 @@
+entier $i, entier $j, entier $k, entier $somme;
+main() {
+  $somme = 0;
+  pour $i = 0; $i < 10; $i = $i + 1; faire {
+    pour $j = 0; $j < $i; $j = $j + 1; faire {
+      pour $k = 0; $k < $j; $k = $k + 1; faire {    
+        $somme = $somme + $i + $j + $k;
+      }
+    }
+  }
+  ecrire ( $somme );
+}

eval-partiel/input/eval3err.l

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

eval-partiel/input/eval4.l

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

eval-partiel/input/eval4err.l

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

eval-partiel/input/eval5.l

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

eval-partiel/input/eval5err.l

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

eval-partiel/input/eval6.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-partiel/input/eval8.l

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

eval-partiel/input/expression.l

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

eval-partiel/input/max.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-partiel/input/test1.l

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

eval-partiel/input/test1err.l

@@ -0,0 +1,6 @@
+entier $i;
+main() {
+  pour $i = 5; $i < 10; $i faire {
+    ecrire ( $i );
+  }
+}

eval-partiel/input/test2.l

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

eval-partiel/input/test3.l

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

eval-partiel/input/tri.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 );
+}