algoritmo "Aula do dia 10/04"
// Fun玢o : Todos os algoritmos da aula.
// Autor : Jo鉶 Pedro G. Silva
// Data : 10/04/2018

// Procedimentos e Fun珲es

var // Vari醰eis Globais

funcao par():inteiro
var
a:vetor[1..10] de inteiro
np,x:inteiro
inicio
escreval("Informe 10 n鷐eros.")
para x de 1 ate 10 faca
leia(a[x])
fimpara
para x de 1 ate 10 faca
se x mod 2 = 0 entao
np:=np+1
fimse
fimpara
retorne np
fimfuncao

funcao cabe(x:inteiro;y:inteiro):inteiro
var
contador,xinicial:inteiro
inicio
escreval("Quantas vezes x cabe dentro de y?")
escreval("Informe x.")
leia(x)
escreval("Informe y.")
leia(y)
xinicial:=x
enquanto x<=y faca
contador:=contador+1
x:=x+xinicial
fimenquanto
retorne contador
fimfuncao

funcao expoente(x:inteiro;y:inteiro):inteiro
var
a,xinicial:inteiro
inicio
xinicial:=x // x inicial recebe o valor inicial de x
para a de 1 ate y-1 faca
x:=x*xinicial
fimpara
retorne x
fimfuncao

funcao escadinha(x:inteiro):caracter
var
m,n:inteiro
inicio
escreval("")
para n de 1 ate x faca
para m de 1 ate n faca
escreva("* ")
fimpara
escreval("")
fimpara
fimfuncao

inicio // Se玢o de Comandos do Algoritmo Principal
escreval(escadinha(5))
fimalgoritmo