portugol

# preparar um algoritmo(algoritmo final)
# para calcular a soma da série de 100 termos dada a seguir.
# fazer a simulação do algoritmo para cinco termos da serie:
# 1 - 1/2 + 1/4 - 1/6 + 1/8 -1/10 + 1/12 - ...
#
# http://gpt.berlios.de/manual_big/manual.html
#
algoritmo final

variáveis
	i : inteiro;
	j : inteiro;
	k : inteiro;
fim-variáveis

inicio
	k := 1;
	j := 2;
   escreva("Digite o número de repetições:")
   i := leia();
   enquanto j < i faça
		# resto da divisão
		se j % 2 = 0 então
			k := k - 1/j;
		senão
			k := k + 1/j;
		fim-se
		j := j + 1;
   fim-enquanto
   escreva("O resultado é: ");
   escreva(k);
fim