Did you know that you can navigate the posts by swiping left and right?

Learning Pascal syntax (1)

20 Apr 2012 . category: . Comments 

Program Mate;

function potencia_entera(base, exp:integer) : integer;
	begin
		if (exp <> 0) then
			begin
				exp := exp - 1;
				potencia_entera := base * potencia_entera(base, exp);
			end
		else
			begin
				potencia_entera := 1;
			end;		
	end;

begin
	writeln(potencia_entera(2,10));
end.
Me

Fabián Orccón is an awesome person. He lives in Perú, the land of the Incas.