CALCULO DA PERMUTAÇÃO DE JOSEPHUS

// Seção de Declarações

var

a : vetor [1..2000] de inteiro

// Utilizamos o método de vetores para efetuar a eliminação

// marcando item a item

// a[i]=1 significa vivo e a[i]= -1 significa morto

tam, pulo,vivos :inteiro

// Nosso controle é a variavel "vivos" para quantos restam na fila

n,i,c :inteiro

// variaveis para controles dos lacos

inicio

limpatela

escreva("Entre com numero de testes: ")

leia(n)

enquanto n>0 faca

n<-n-1

escreva("Digite tamanho:")

leia(tam)

escreva("Digite o pulo:")

leia(pulo)

c<-0

vivos <- tam

//inicializando vetor a com 1

para i de 1 ate tam faca

a[i]<-1

fimpara

i<-0

// Enquanto sobrar mais de 1 vivo permanece no loop

enquanto vivos > 1 faca

c<-0

enquanto c<pulo faca

i<-i+1

se i>tam entao

i<-1

//Se for o fim do vetor, retorna ao começo

fimse

se a[i]=1 entao

// C é incrementado apenas para os "vivos"

c<-c+1

fimse

fimenquanto

a[i]<- -1

// Termidada a contagem, mata o item em a[i]

vivos <- vivos -1

// Atualiza a contagem da variavel "vivos"

fimenquanto

// O LOOP abaixo procura o item que permaneceu vivo

// ou seja o valor no vetor a[]