Ciencias de la Computación FAMAF

Esta página es de solo lectura. Puedes ver la fuente pero no puedes cambiarla. Pregunta a tu administrador si crees que esto es incorrecto.

====== Programas de ejemplos para probar el intérprete ======

^ Exponenciación  ^ Factorial ^ División ^ División (con falla) ^
| <code> 
?x;
?y;
r:=1;
while y>0 do
	r:=r*x;
	y:=y-1
od;
!r</code> | <code> 
y:=1;
f:=1;
?x;
while x>=y do 
     f:=f*y;
     y:=y+1 
od;
!f 
</code> | <code> 
q:=0;
?x;
?y;
r:=x;
while r>=y do 
     q:=q+1;
     r:=r-y 
od;
!r;
!q
</code> | <code>
q:=0;
?x;
?y;
if y=0 
then fail DivZero 
else 
	r:=x;
	while r>=y do 
     		q:=q+1;
	     	r:=r-y 
	od;
	!q;
	!r
fi
</code> |

^ Exponenciación (mejorado) ^ Fibonnaci de un número ^ Fibonnaci desde 1 hasta un número ^
| <code> 
catch ExpNeg in
?x;
?y;
if y<0 then 
	fail ExpNeg
else
	r:=1;
	while y>0 do
		r:=r*x;
		y:=y-1
	od;
	!r
fi
{fail CanNotDealWithReals}
</code> | <code>
ni:=0;
nj:=1;
?x;
y:=0;
for i:=1 to x do
	newvar t:=ni+nj {
		ni:=nj;
		nj:=t 
	};
	i:=i+1
od;
!nj 
</code> | <code>
ni:=0;
nj:=1;
?x;
y:=0;
for i:=1 to x do
	newvar t:=ni+nj {
		ni:=nj;
		nj:=t 
	};
        !nj;
	i:=i+1
od
</code> |

^ Primo o compuesto (muy ineficiente) ^ 
| <code> 
?x;
i:=2;
while i<x do
	if x rem i=0 then break
                      else i:=i+1
	fi
od;
if i<x then fail NotPrime
       else fail Prime
fi
</code> |