testando, falta parenteses

AvaliaTrabs/Exemplo8.09/MEPA

+     INPP
+     AMEM 2
+     DSVS R00
+R01: ENPR 1 
+     AMEM 1
+     DSVS R02
+R02: NADA 
+     CRVL 1, -4
+     CRCT 1
+     CMMA
+     DSVF R04
+     CRVL 1, -4
+     CRCT 1
+     SUBT
+     CHPR R01, 1
+     DSVS R03
+R04: NADA 
+     CRCT 1
+     ARMZ 0, 1
+R03: NADA 
+     CRVL 0, 1
+     ARMZ 1, 0
+     CRVL 1, 0
+     CRVL 1, -4
+     MULT
+     ARMZ 0, 1
+     DMEM 1
+     RTPR 1, 1
+R00: NADA 
+     LEIT
+     ARMZ 0, 0
+     CRVL 0, 0
+     CHPR R01, 0
+     CRVL 0, 1
+     IMPR
+     DMEM 2
+     PARA

AvaliaTrabs/Exemplo8.09/pgma.pas

+program exemplo9 (input, output);
+var x, y :  integer;
+   procedure p(t : integer);
+   var z : integer;
+   begin
+      if t>1
+         then p(t-1)
+         else y:=1;
+      z:=y;
+      y:=z*t
+   end; 
+begin
+   read(x);
+   p(x);
+   write(y)
+end.

AvaliaTrabs/Exemplo8.10/MEPA

+     INPP
+     AMEM 1
+     DSVS R00
+R01: ENPR 1 
+     AMEM 1
+     DSVS R02
+R02: NADA 
+     CRVL 1, -5
+     CRCT 2
+     CMME
+     DSVF R04
+     CRVI 1, -4
+     CRVL 1, -5
+     SOMA
+     ARMI 1, -4
+     DSVS R03
+R04: NADA 
+     CRVI 1, -4
+     ARMZ 1, 0
+     CRVL 1, -5
+     CRCT 1
+     SUBT
+     CREN 1, 0
+     CHPR R01, 1
+     CRVL 1, 0
+     ARMI 1, -4
+     CRVL 1, -5
+     CRCT 2
+     SUBT
+     CRVL 1, -4
+     CHPR R01, 1
+R03: NADA 
+     CRVL 1, -5
+     IMPR
+     CRVI 1, -4
+     IMPR
+     DMEM 1
+     RTPR 1, 2
+R00: NADA 
+     CRCT 0
+     ARMZ 0, 0
+     CRCT 3
+     CREN 0, 0
+     CHPR R01, 0
+     DMEM 1
+     PARA

AvaliaTrabs/Exemplo8.10/pgma.pas

+program exemplo1 (input, output);
+var k : integer;
+procedure p(    n : integer; var g:integer);
+var h : integer;
+begin
+   if n<2 then
+      g:=g+n
+   else
+   begin
+      h:=g;
+      p(n-1,h);
+      g:=h;
+      p(n-2, g)
+   end;
+   write(n,g)
+end;
+begin
+   k:=0;
+   p(3,k)
+end.
+   
+      

AvaliaTrabs/ExemploErro1/MEPA

+     INPP
+     AMEM 2
+     DSVS R00
+R00: NADA 
+     LEIT
+     ARMZ 0, 0
+     LEIT
+     ARMZ 0, 1
+     CRVL 0, 0
+     CRVL 0, 1
+     CMMA

AvaliaTrabs/ExemploErro1/pgma.pas

+program exemploErro1 (input, output);
+var n, k      : integer;
+begin
+   read (n);
+   read (k);
+   n := n>k;
+   write (n)
+end.

AvaliaTrabs/ExemploErro2/MEPA

+     INPP
+     AMEM 2
+     DSVS R00
+R00: NADA 
+     LEIT
+     ARMZ 0, 0
+     LEIT
+     ARMZ 0, 1
+     CRVL 0, 0
+     CRVL 0, 1
+     CMMA

AvaliaTrabs/ExemploErro2/pgma.pas

+program exemploErro2 (input, output);
+var n, k      : integer;
+begin
+   read (n);
+   read (k);
+   if (n+1) then n:=1;
+   write (n)
+end.

AvaliaTrabs/MEPA

+     INPP
+     AMEM 3
+     DSVS R00
+R01: ENPR 1 
+     AMEM 1
+     DSVS R02
+R02: NADA 
+     CRVL 0, 2
+     CRVL 0, 2
+     MULT
+     ARMZ 1, 0

AvaliaTrabs/MEPA-Res

+     INPP
+     AMEM 2
+     DSVS R00
+R00: NADA 
+     LEIT
+     ARMZ 0, 0
+     LEIT
+     ARMZ 0, 1
+     CRVL 0, 0
+     CRVL 0, 1
+     CMMA

AvaliaTrabs/avaliaTrab.sh

+
+EXEMPLOS="Exemplo5 Exemplo7.01 Exemplo7.02 Exemplo7.03 Exemplo7.04 Exemplo7.05 Exemplo8.05 Exemplo8.06 Exemplo8.07 Exemplo8.08 Exemplo8.09 Exemplo8.10 ExemploErro1 ExemploErro2"
+
+
+echo "Usage: avaliaTrab.sh <arquivo executavel compilador"
+
+for exemplo in $EXEMPLOS; do
+    echo -n $exemplo "... "
+    cp $exemplo"/pgma.pas" "./"
+    cp $exemplo"/MEPA" "MEPA-Res"
+
+    $1 ./pgma.pas > res
+    diff MEPA MEPA-Res  -bBt
+done
+

AvaliaTrabs/forward1.pas

+Program Maximum_Minimum_Number(output);
+
+var 
+    res: integer;
+
+function max(num1, num2: integer): integer; forward;
+
+function min(num1, num2: integer): integer;
+var
+   result: integer;
+
+begin
+   if (num1 > num2) then
+      result := num2
+   else
+      result := num1;
+   min := result;
+end;
+
+
+function max(num1, num2: integer): integer;
+var
+   result: integer;
+
+begin
+   if (num1 > num2) then
+      result := num1
+   else
+      result := num2;
+   max := result;
+end;
+
+begin
+  res := max(5,10);
+  writeln(res);
+end.

AvaliaTrabs/forward2.pas

+Program OutputLines(output);
+
+procedure fun1() ; forward;
+
+procedure fun2();
+begin
+    write(0);
+    fun1();
+end;
+
+procedure fun1();
+begin
+   write(1);
+end;
+
+begin
+    fun2();
+end.

AvaliaTrabs/pgma.pas

+program exemploErro2 (input, output);
+var n, k      : integer;
+begin
+   read (n);
+   read (k);
+   if (n+1) then n:=1;
+   write (n)
+end.

teste5.pas

@@ -12,7 +12,7 @@ begin
           if i = 0
             then write(2)
             else write(3);
-         end;
+         end
         else  write(i,1);
       i := i+1;             
    end;