Skip to content
Snippets Groups Projects
Commit ef74179d authored by hm19's avatar hm19
Browse files

testando, falta parenteses

parent 606af457
No related branches found
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 730 additions and 0 deletions
AvaliaTrabs/Exemplo5/MEPA 0 → 100644
+ 38
− 0
View file @ ef74179d
INPP
AMEM 2
AMEM 3
DSVS R00
R00: NADA
LEIT
ARMZ 0, 0
CRCT 0
ARMZ 0, 2
CRCT 1
ARMZ 0, 3
CRCT 1
ARMZ 0, 1
R01: NADA
CRVL 0, 1
CRVL 0, 0
CMEG
DSVF R02
CRVL 0, 2
CRVL 0, 3
SOMA
ARMZ 0, 4
CRVL 0, 3
ARMZ 0, 2
CRVL 0, 4
ARMZ 0, 3
CRVL 0, 1
CRCT 1
SOMA
ARMZ 0, 1
DSVS R01
R02: NADA
CRVL 0, 0
IMPR
CRVL 0, 2
IMPR
DMEM 5
PARA
AvaliaTrabs/Exemplo5/pgma.pas 0 → 100755
+ 15
− 0
View file @ ef74179d
program exemplo5 (input, output);
var n, k : integer;
f1, f2, f3 : integer;
begin
read (n);
f1:=0; f2:=1; k:=1;
while k<=n do
begin
f3:=f1+f2;
f1:=f2;
f2:=f3;
k:=k+1;
end;
write (n, f1);
end.
AvaliaTrabs/Exemplo7.01/MEPA 0 → 100644
+ 33
− 0
View file @ ef74179d
INPP
AMEM 3
DSVS R00
R00: NADA
LEIT
ARMZ 0, 0
LEIT
ARMZ 0, 1
CRCT 0
ARMZ 0, 2
R01: NADA
CRVL 0, 0
CRVL 0, 1
CMEG
DSVF R02
CRVL 0, 2
CRVL 0, 0
CRVL 0, 0
MULT
SOMA
ARMZ 0, 2
CRVL 0, 0
IMPR
CRVL 0, 2
IMPR
CRVL 0, 0
CRCT 1
SOMA
ARMZ 0, 0
DSVS R01
R02: NADA
DMEM 3
PARA
AvaliaTrabs/Exemplo7.01/pgma.pas 0 → 100755
+ 15
− 0
View file @ ef74179d
program teste (input, output);
var m, n, s : integer;
begin
read(m,n);
s:=0;
while m<=n do
begin
s:=s+m*m;
write (m,s);
m:=m+1;
end;
end.
AvaliaTrabs/Exemplo7.02/MEPA 0 → 100644
+ 55
− 0
View file @ ef74179d
INPP
AMEM 3
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R02: NADA
CRVL 0, 2
CRVL 0, 2
MULT
ARMZ 1, 0
CRVL 0, 2
CRCT 2
DIVI
CRCT 2
MULT
CRVL 0, 2
CMIG
DSVF R04
CRVL 0, 1
CRVL 1, 0
SOMA
ARMZ 0, 1
DSVS R03
R04: NADA
CRVL 0, 1
CRVL 1, 0
SUBT
ARMZ 0, 1
R03: NADA
DMEM 1
RTPR 1, 0
R00: NADA
LEIT
ARMZ 0, 0
CRCT 0
ARMZ 0, 1
CRCT 0
ARMZ 0, 2
R05: NADA
CRVL 0, 2
CRVL 0, 0
CMEG
DSVF R06
CHPR R01, 0
CRVL 0, 1
IMPR
CRVL 0, 2
CRCT 1
SOMA
ARMZ 0, 2
DSVS R05
R06: NADA
DMEM 3
PARA
AvaliaTrabs/Exemplo7.02/pgma.pas 0 → 100755
+ 22
− 0
View file @ ef74179d
program exemplo73 (input, output);
var n, s, i : integer;
procedure soma;
var q : integer;
begin
q:=i*i;
if (i div 2) * 2 = i
then
s:=s+q;
else
s:=s-q;
end;
begin
read (n);
s:=0; i:=0;
while i<=n do
begin
soma; write(s); i:=i+1;
end;
end.
\ No newline at end of file
AvaliaTrabs/Exemplo7.03/MEPA 0 → 100644
+ 54
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R02: NADA
CRCT 2
CRVL 1, -4
MULT
ARMZ 1, -4
CRCT 2
CRVL 1, -4
MULT
ARMZ 1, 0
CRVL 1, 0
CRCT 1
SOMA
ARMZ 0, 0
DMEM 1
RTPR 1, 1
R00: NADA
CRCT 3
ARMZ 0, 0
CRCT 4
ARMZ 0, 1
CRVL 0, 1
CHPR R01, 0
CRVL 0, 0
IMPR
CRVL 0, 1
IMPR
CRVL 0, 0
CHPR R01, 0
CRVL 0, 0
IMPR
CRVL 0, 1
IMPR
CRVL 0, 1
CRVL 0, 0
SOMA
CHPR R01, 0
CRVL 0, 0
IMPR
CRVL 0, 1
IMPR
CRCT 7
CHPR R01, 0
CRVL 0, 0
IMPR
CRVL 0, 1
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo7.03/pgma.pas 0 → 100755
+ 18
− 0
View file @ ef74179d
program exemplo3 (input, output);
var z, t : integer;
procedure g(t : integer);
var x : integer;
begin
t:=2*t;
x:=2*t;
z:=x+1
end;
begin
z:=3;
t:=4;
g(t); write (z,t);
g(z); write (z,t);
g(t+z); write (z,t);
g(7); write (z,t)
end.
\ No newline at end of file
AvaliaTrabs/Exemplo7.04/MEPA 0 → 100644
+ 68
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R02: NADA
CRVL 1, -4
CRVL 1, -4
MULT
ARMZ 1, 0
CRVL 0, 0
CRVL 0, 1
SOMA
CRVL 1, 0
SOMA
ARMZ 0, 0
CRVL 0, 0
IMPR
DMEM 1
RTPR 1, 1
R03: ENPR 1
AMEM 1
DSVS R04
R05: ENPR 2
AMEM 1
DSVS R06
R06: NADA
CRVL 0, 0
CRVL 1, 0
SOMA
CRVL 2, -4
SOMA
ARMZ 2, 0
CRVL 2, 0
CHPR R01, 2
CRVL 2, 0
ARMZ 0, 0
DMEM 1
RTPR 2, 1
R04: NADA
CRVL 1, -4
CRCT 1
SOMA
ARMZ 1, 0
CRVL 1, 0
CHPR R05, 1
CRVL 0, 0
CRVL 1, 0
SOMA
CHPR R01, 1
DMEM 1
RTPR 1, 1
R00: NADA
CRCT 1
ARMZ 0, 0
CRCT 3
ARMZ 0, 1
CRVL 0, 1
CHPR R03, 0
CRVL 0, 1
CHPR R01, 0
CRVL 0, 1
IMPR
CRVL 0, 0
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo7.04/pgma.pas 0 → 100755
+ 31
− 0
View file @ ef74179d
program exemplo74 (input, output);
var z, x: integer;
procedure g(t:integer);
var y : integer;
begin
y:=t*t; z:=z+x+y;
write(z)
end;
procedure h (y : integer);
var x : integer;
procedure f(y : integer);
var t : integer;
begin
t:=z+x+y; g(t);
z:=t
end;
begin
x:=y+1;
f(x);
g(z+x)
end;
begin
z:=1;
x:=3;
h(x);
g(x);
write(x,z)
end.
AvaliaTrabs/Exemplo7.05/MEPA 0 → 100644
+ 56
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 2
DSVS R02
R02: NADA
CRVL 1, -5
CRCT 2
CMME
DSVF R04
CRVL 1, -5
ARMZ 1, -6
CRCT 0
ARMI 1, -4
DSVS R03
R04: NADA
AMEM 1
CRVL 1, -5
CRCT 1
SUBT
CREN 1, 0
CHPR R01, 1
AMEM 1
CRVL 1, -5
CRCT 2
SUBT
CREN 1, 1
CHPR R01, 1
SOMA
ARMZ 1, -6
CRVL 1, 0
CRVL 1, 1
SOMA
CRCT 1
SOMA
ARMI 1, -4
R03: NADA
CRVL 1, -5
IMPR
CRVI 1, -4
IMPR
DMEM 2
RTPR 1, 2
R00: NADA
AMEM 1
CRCT 3
CREN 0, 0
CHPR R01, 0
ARMZ 0, 1
CRVL 0, 1
IMPR
CRVL 0, 0
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo7.05/pgma.pas 0 → 100755
+ 20
− 0
View file @ ef74179d
program exemplo75 (input, output);
var m,n : integer;
function f ( n : integer; var k:integer ) : integer;
var p, q : integer;
begin
if n<2 then
begin
f:=n; k:=0
end
else
begin
f:=f(n-1,p) + f(n-2,q);
k:=p+q+1
end;
write (n, k)
end;
begin
n:=f(3,m);
write(n, m)
end.
AvaliaTrabs/Exemplo8.05/MEPA 0 → 100644
+ 38
− 0
View file @ ef74179d
INPP
AMEM 2
AMEM 3
DSVS R00
R00: NADA
LEIT
ARMZ 0, 0
CRCT 0
ARMZ 0, 2
CRCT 0
ARMZ 0, 3
CRCT 1
ARMZ 0, 1
R01: NADA
CRVL 0, 1
CRVL 0, 0
CMEG
DSVF R02
CRVL 0, 2
CRVL 0, 3
SOMA
ARMZ 0, 4
CRVL 0, 3
ARMZ 0, 2
CRVL 0, 4
ARMZ 0, 3
CRVL 0, 1
CRCT 1
SOMA
ARMZ 0, 1
DSVS R01
R02: NADA
CRVL 0, 0
IMPR
CRVL 0, 2
IMPR
DMEM 5
PARA
AvaliaTrabs/Exemplo8.05/pgma.pas 0 → 100755
+ 16
− 0
View file @ ef74179d
program exemplo5 (input, output);
var n, k : integer;
f1, f2, f3 : integer;
begin
read(n);
f1:=0; f2:=0; k:=1;
while k<=n do
begin
f3:=f1+f2;
f1:=f2;
f2:=f3;
k:=k+1
end;
write(n, f1)
end.
AvaliaTrabs/Exemplo8.06/MEPA 0 → 100644
+ 39
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R02: NADA
CRVL 0, 0
ARMZ 1, 0
CRVL 0, 0
CRCT 1
SUBT
ARMZ 0, 0
CRVL 1, 0
CRCT 1
CMMA
DSVF R04
CHPR R01, 1
DSVS R03
R04: NADA
CRCT 1
ARMZ 0, 1
R03: NADA
CRVL 0, 1
CRVL 1, 0
MULT
ARMZ 0, 1
DMEM 1
RTPR 1, 0
R00: NADA
LEIT
ARMZ 0, 0
CHPR R01, 0
CRVL 0, 0
IMPR
CRVL 0, 1
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo8.06/pgma.pas 0 → 100755
+ 16
− 0
View file @ ef74179d
program exemplo6(input, output);
var x, y : integer;
procedure p;
var z : integer;
begin
z:=x; x:=x-1;
if z>1
then p
else y:=1;
y:=y*z
end;
begin
read (x);
p;
write (x,y)
end.
AvaliaTrabs/Exemplo8.07/MEPA 0 → 100644
+ 77
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R02: NADA
CRVL 0, 0
ARMZ 1, 0
CRVL 0, 0
CRCT 1
SUBT
ARMZ 0, 0
CRVL 1, 0
CRCT 1
CMMA
DSVF R04
CHPR R01, 1
DSVS R03
R04: NADA
CRCT 1
ARMZ 0, 1
R03: NADA
CRVL 0, 1
CRVL 1, 0
MULT
ARMZ 0, 1
DMEM 1
RTPR 1, 0
R05: ENPR 1
AMEM 2
DSVS R06
R06: NADA
CRVL 0, 0
ARMZ 1, 0
CRVL 0, 0
CRCT 1
SUBT
ARMZ 1, 1
CRVL 1, 1
ARMZ 0, 0
CRVL 1, 0
CRCT 0
CMIG
DSVF R08
CRCT 1
ARMZ 0, 1
DSVS R07
R08: NADA
CRVL 1, 0
CRCT 2
DIVI
CRCT 2
MULT
CRVL 1, 0
CMIG
DSVF R10
CHPR R05, 1
DSVS R09
R10: NADA
CHPR R01, 1
R09: NADA
R07: NADA
CRVL 0, 1
CRVL 1, 0
MULT
ARMZ 0, 1
DMEM 2
RTPR 1, 0
R00: NADA
LEIT
ARMZ 0, 0
CHPR R05, 0
CRVL 0, 1
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo8.07/pgma.pas 0 → 100755
+ 29
− 0
View file @ ef74179d
program exemplo7(input, output);
var x, y : integer;
procedure p;
var z : integer;
begin
z:=x; x:=x-1;
if z>1
then p
else y:=1;
y:=y*z
end;
procedure q;
var s, t : integer;
begin
s:=x; t:=x-1; x:=t;
if s=0 then y:=1
else
if ( (s div 2)*2) = s
then q
else p;
y:=y*s
end;
begin
read(x);
q;
write(y)
end.
AvaliaTrabs/Exemplo8.08/MEPA 0 → 100644
+ 65
− 0
View file @ ef74179d
INPP
AMEM 2
DSVS R00
R01: ENPR 1
AMEM 1
DSVS R02
R03: ENPR 2
AMEM 1
DSVS R04
R04: NADA
CRVL 1, 0
CRCT 1
SUBT
ARMZ 2, 0
CRVL 0, 0
CRCT 1
SUBT
ARMZ 0, 0
CRVL 2, 0
CRCT 1
CMIG
DSVF R06
CHPR R01, 2
DSVS R05
R06: NADA
CRCT 1
ARMZ 0, 1
R05: NADA
CRVL 0, 1
CRVL 2, 0
MULT
ARMZ 0, 1
DMEM 1
RTPR 2, 0
R02: NADA
CRVL 0, 0
ARMZ 1, 0
CRVL 0, 0
CRCT 1
SUBT
ARMZ 0, 0
CRVL 1, 0
CRCT 1
CMMA
DSVF R08
CHPR R01, 1
DSVS R07
R08: NADA
CRCT 1
ARMZ 0, 1
R07: NADA
CRVL 0, 1
CRVL 1, 0
MULT
ARMZ 0, 1
DMEM 1
RTPR 1, 0
R00: NADA
LEIT
ARMZ 0, 0
CHPR R01, 0
CRVL 0, 1
IMPR
DMEM 2
PARA
AvaliaTrabs/Exemplo8.08/pgma.pas 0 → 100755
+ 25
− 0
View file @ ef74179d
program exemplo8 (input, output);
var x, y : integer;
procedure p;
var z : integer;
procedure q;
var s : integer;
begin
s:=z-1; x:=x-1;
if s=1
then p
else y:=1;
y:=y*s
end;
begin
z:=x; x:=x-1;
if z>1
then p
else y:=1;
y:=y*z
end;
begin
read(x);
p;
write(y)
end.
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment