revisao.alg

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "01. Triângulos"
var

l: vetor [1..3] de real
i: inteiro

inicio

escreval("---------------------------------------")
escreval("Lados de um Triângulo")
escreval("---------------------------------------")

para i de 1 ate 3 faca
     escreva("Digite o lado", i, " do triângulo em centímetros: ")
     leia(l[i])
fimpara

escreval("---------------------------------------")

se (l[1] < (l[2] + l[3])) e (l[2] < (l[1] + l[3])) e (l[3] < (l[1] + l[2])) entao
   escreval("Okay! esses lados formam um triângulo!")
   escreval("---------------------------------------")
   se (l[1] = l[2]) e (l[2] = l[3]) entao
      escreval("Este é um triângulo equilátero!")
      escreval("---------------------------------------")
   fimse
   se (l[1] = l[2]) ou (l[2] = l[3]) ou (l[1] = l[3]) entao
      escreval("Este é um triângulo isósceles!")
      escreval("---------------------------------------")
   fimse
   se (l[1] <> l[2]) e (l[2] <> l[3]) entao
      escreval("Este é um triângulo escaleno!")
      escreval("---------------------------------------")
   fimse
   senao
	escreval("Esses lados não formam um triângulo. Sorry :(")
fimse

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "02. Peso de 3"
var

vn: vetor [1..3] de caractere
vp: vetor [1..3] de real
i: inteiro
media, maior, menor, soma: real
maNome, meNome: caractere

inicio

escreval("---------------------------------------")
escreval("Calculadora de pesos")
escreval("---------------------------------------")

para i de 1 ate 3 faca
     escreval("Digite o nome da", i, "º pessoa:")
     leia(vn[i])
     escreval("Digite o peso desta pessoa em kg: ")
     leia(vp[i])
fimpara

maior <- 0
menor <- 0
soma <- 0

para i de 1 ate 3 faca
     se i = 1 entao
     	maior <- vp[i]
     	menor <- vp[i]
	maNome <- vn[i]
	meNome <- vn[i]
	senao

	    se (vp[i] > maior) entao
		maior <- vp[i]
		maNome <- vn[i]
	    fimse

	    se (vp[i] < menor) entao
		menor <- vp[i]
		meNome <- vn[i]
	    fimse

	    soma <- soma + vp[i]
     fimse
fimpara

media <- soma / 3

escreval("")
escreval("---------------------------------------")
escreval("Relatório")
escreval("---------------------------------------")
escreval("")

para i de 1 ate 3 faca
     escreval("Nome: ", vn[i])
     escreval("Peso: ", vp[i]:4:2, " kg")
     escreval("---------------------------------------")
fimpara

escreval("Maior peso: ", maNome ,", ", maior:4:2, " kg")
escreval("---------------------------------------")
escreval("Menor peso: ", meNome ,", ", menor:4:2, " kg")
escreval("---------------------------------------")
escreval("Média dos pesos: ", media:4:2, " kg")
escreval("---------------------------------------")

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "03. Divisível por 7"
var

n: inteiro

inicio

escreval("---------------------------------------")
escreval("Diz se um número é divisível por 3 e 7")
escreval("---------------------------------------")

escreva("Digite um número inteiro: ")
leia(n)


se (n % 3 = 0) e (n % 7 = 0) entao
escreval("---------------------------------------")
   escreval("Este número é divisível por 3 e por 7")
   senao
	se (n % 3 = 0) e (n % 7 <> 0) entao
	escreval("---------------------------------------")
	   escreval("Este número é divisível por 3, mas não por 7.")
	fimse
	se (n % 7 = 0) e (n % 3 <> 0) entao
	escreval("---------------------------------------")
	   escreval("Este número é divisível por 7, mas não por 3.")
	fimse
	se (n % 7 <> 0) e (n % 3 <> 0) entao
	escreval("---------------------------------------")
	   escreval("Este número não é divisível nem por 7 nem por 3.")
	fimse
fimse

escreval("---------------------------------------")

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "04. Fibonacci"
var

v: vetor [1..15] de inteiro
i: inteiro

inicio

v[1] <- 1
v[2] <- 2

para i de 3 ate 15 faca
     v[i] <- (v[i-1] + v[i-2])
     escreval(v[i])
fimpara

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "05. Primos de 1 ate 150"
var

c1, c2, primos: inteiro

inicio

para c1 de 1 ate 150 faca
     primos <- 0
     para c2 de 1 ate c1 faca
          se (c1 % c2 = 0) entao
	     primos <- primos + 1
	  fimse
     fimpara
     se (primos = 2) entao
       escreval(c1)
     fimse
fimpara

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "06. Inteiro Maior e menor"
var

i, n, maior, menor: inteiro

inicio

para i de 1 ate 5 faca
     escreval("Digite um número: ")
     leia(n)
     se (i = 1) entao
        maior <- n
	menor <- n
	senao
		se (n > maior) entao
		    maior <- n
		fimse
		se (n < menor) entao
		    menor <- n
		fimse
     fimse
fimpara

escreval("Maior:", maior)
escreval("Menor:", menor)

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////

Algoritmo "07. Soma dos Inteiros (fatorial)"
var

i, n, s: inteiro

inicio

escreval("Digite um inteiro positivo:")
leia(n)

para i de n ate 1 passo -1 faca
     s <- s + i
fimpara

escreval(s)

fimalgoritmo

////////////////////////////////////////////////////////////////////////////////////
////////////////////////////////////////////////////////////////////////////////////