Algoritmos atps 1 semestre

RELATÓRIO 1 - Solução para o Problema 1.

ALGORITMO "ATPS1"

// Seção de Declarações

var

        N, A,B, SOMA, I, J: INTEIRO

inicio

// Seção de Comandos

        ESCREVA("ENTRE COM O NUMERO DE REPETIÇÕES: ")

        LEIA(N)

        PARA I DE 1 ATE N FACA

                LEIA(A)

                     LEIA(B)

                     SOMA<-0

                     // LEMBRANDO QUE DEVE SOMAR OS VALORES ENTRE A E B

                     // ENTÃO TIRAMOS DO INTERVALO

                     A<-A+1

                     B<-B-1

                     PARA J DE A ATE B FACA

                                  SOMA<-SOMA+J*(J%2)

                     FIMPARA

             ESCREVAL(SOMA)

        FIMPARA

FIMALGORITMO

SIMULAÇÃO:

FLUXOGRAMA

[pic 1]

RELATÓRIO 2 - Solução para o Problema 2.

algoritmo "ATPS2"

// Seção de Declarações

var

        i, a : inteiro

        soma,j : real

        nome:caractere

inicio

// Seção de Comandos

        soma <- 0

        //O LOOP VAI ATÉ 4 POIS O PROBLEMA NÃO ESPECIFICAVA

        // QUANTIDADE MAIOR

        para i de 1 ate 4 faca

                escreva("Nome:")

                     leia(nome)

                //LEMOS O VALOR DE “NOME” E DESCARTAMOS

                // POIS ESSE DADO NÃO SERÁ UTILIZADO FUTURAMENTE

                     escreva("Distancia:")

                     leia(a)

                     soma<- soma+a

        fimpara

        soma<- int((soma/4)*10)/10

        // AQUI UMA ADAPTAÇÃO PARA O VISUALG

        // SE O VALOR FOR INTEIRO ELE ADICIONA O “.0”

        se int(soma) < soma entao

                   escreval("Media:",soma)

        senao

                   escreval("Media:",soma,".0")

        fimse

fimalgoritmo

FLUXOGRAMA[pic 2]

RELATÓRIO 3 - Solução para o Problema 3.

algoritmo "ATPS3"

// Seção de Declarações

var

I, N, NUM, LEDS, UNID : INTEIRO

// NÃO UTILIZAMOS VETORES OU MATRIZES

// A ESTRUTURA DE DECISÃO “ESCOLHA” NOS PERMITIU A SOMA

// UTILIZAMOS O OPERADOR DE RESTO DE DIVISÃO

// E DEPOIS DIVIDIMOS O NUMERO POR 10

// DE MODO A PEGAR DIGITO POR DIGITO

inicio

// Seção de Comandos

ESCREVA("ENTRE COM O NUMERO DE TESTES:")

LEIA(N)

PARA I DE 1 ATE N FACA

     ESCREVA("VALOR: ")

     LEIA(NUM)

     LEDS <-0

     ENQUANTO NUM>0 FACA

                     UNID<-NUM%10 // UNID RECEBE O ULTIMO DIGITO DE NUM

                     ESCOLHA UNID

                     CASO 0

                          LEDS<-LEDS+6

                     CASO 1

                          LEDS<-LEDS+2

                     CASO 2

                          LEDS<-LEDS+5

                     CASO 3

                          LEDS<-LEDS+5

                     CASO 4

                          LEDS<-LEDS+4

                     CASO 5

                          LEDS<-LEDS+5

                     CASO 6

                          LEDS<-LEDS+6

                     CASO 7

                          LEDS<-LEDS+3

                     CASO 8

                          LEDS<-LEDS+7

                     CASO 9

                          LEDS<-LEDS+6

                     FIMESCOLHA

                     NUM <- INT(NUM/10) // ISSO JOGA FORA O ULTIMO DIGITO

     FIMENQUANTO

     ESCREVAL(LEDS, " leds")

FIMPARA

fimalgoritmo

RELATÓRIO 4 - Solução para o Problema 4.

algoritmo "ATPS4"

// Função : 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:")

...