Trabalho de algoritmo

algoritmo "Tirar MDC"

// Função : Ver qual valor do MDC de dois numeros

// Autor :  Gabriela Bergamin Thais Thoste e Nathalia

// Data : 24/09/2014

// Seção de Declarações

var

  x, y, i, mdc: inteiro

inicio

Repita

Escreval ("Digite um numero 1")

Leia (x)

para i de 1 ate x faca

se (x%i=0) e (y%i=0)entao

mdc<-i

fimse

fimpara

escreval ("o valor", mdc, " é seu mdc")

fimalgoritmo

algoritmo "Numeros Primos"

// Função : Classificar numeros

// Autor :  Gabriela Bergamin Thais Thoste e Nathalia

// Data : 24/09/2014

// Seção de Declarações

var

  n,d,c: inteiro

inicio

Repita

Escreval ("Digite um numero inteiro positivo")

Leia (n)

ate (n > 0)  faca

d <- 0

para c de 1 ate n faca

se (n mod c =0) entao

d <- d + 1

fimse

fimpara

se (d =2) entao

escreval("O valor",n," é primo")

senao

escreval("O valor",n," não é primo")

fimse

fimalgoritmo

algoritmo "Sem Nome"

// Função :

// Autor :  Gabriela Bergamin Thais Thoste e Nathalia

// Data : 24/09/2014

// Seção de Declarações

var

  numero,maior,segmaior:inteiro

inicio

leia (numero)

enquanto numero <> -1 faca

se numero>maior entao

segmaior<- maior

maior<- numero

senao

se numero > segmaior entao

segmaior <- numero

fimse

fimse

leia (numero)

fimenquanto

escreval (" O numero maior é: ",maior)

escreval  (" O segundo maior é: ", segmaior)

Fimalgoritmo

algoritmo "Exercicio 2"

// Função :

// Autor :  Gabriela Bergamin Thais Thoste e Nathalia

// Data : 24/09/2014

// Seção de Declarações

var

  x,c,i,p,h,j,k,l:inteiro

inicio

Repita

   Limpatela

   Escreval (" Informe um limite:")

   Leia (x)

ate x > 0

Limpatela

Para c de 1 ate x faca

   h<-c

   j<-c

   k<-c

   se x = 1 entao

      Escreval(" Não a soma com o limite digitado.")

   senao

      se (c mod 2 = 0) e (x <> 1) entao

      h<- h + p

      p <- h

   senao

      se (c mod 2 <> 0) e (x <> 1) entao

      j<- j + i

      i<-j

     

     

    fimse

 Fimse

Fimse

Se (c mod 5 = 0 )e (x <> 1) entao

   K<-K+l

   l<- k

   Fimse

Fimpara

Escreval(" A soma dos números impares, de 1 até", x ," é: ",l)

Escreval(" A soma dos números pares, de 1 até", x," é: ",p)

Escreval(" A soma dos números divisíveis por 5, de  1 até" ,x," é: ",l)

Fimalgoritmo