Algoritmos Lote1

EXERCÍCIOS DE ALGORITMO
QUE SERÃO USADOS NO 1º SEM/2013
Lote 1.3
1. Receba a data de nascimento e atual em ano, mês e dia. Calcule e mostre a idade em anos, meses e dias, considerando os anos bissextos.
Pseudo-código
algoritmo "exercicio 1" var anon, anoa, ano, mesn, mesa, mes, dian, diaa, dia :inteiro inicio escreva("Digite o ano de nascimento: ") leia (anon) escreva("Digite o mês de nascimento: ") leia (mesn) escreva("Digite o dia de nascimento: ") leia (dian) escreva("Digite o ano atual: ") leia (anoa) escreva("Digite o mês atual: ") leia (mesa) escreva("Digite o dia atual: ") leia (diaa)

para ano de anon ate anoa faca se ((ano % 4 = 0) e (ano % 100 <> 0) ou (ano % 400 = 0)) entao diaa <- diaa + 1 fimse fimpara

se (diaa < dian) entao diaa <- diaa + 30 mesa <- mesa - 1 senao se (diaa>30) entao diaa <- diaa-30 mesa <- mesa+1 fimse

se (mesa < mesn) entao mesa <- mesa + 12 anoa <- anoa - 1 fimse

dia <- diaa - dian mes <- mesa - mesn ano <- anoa - anon

escreval(ano, " anos,", mes, " meses e", dia, " dias.")

fimalgoritmo
2. Calcule e mostre o quadrado dos números entre 10 e 150.
Pseudo-código
algoritmo "exercicio 2" var n, quadrado:inteiro inicio para n de 10 ate 150 faca quadrado <- n*n escreval (n, " ao quadrado é" ,quadrado) fimpara fimalgoritmo 3. Receba um número inteiro. Calcule e mostre o seu fatorial.
Pseudo-código
algoritmo "exercicio 2" var n, quadrado:inteiro inicio para n de 10 ate 150 faca quadrado <- n*n escreval (n, " ao quadrado é" ,quadrado) fimpara fimalgoritmo 4. Receba um número. Calcule e mostre a série 1 + 1/2 + 1/3 + ... + 1/N.
Pseudo-código
algoritmo "exercicio 4" var n, contador:inteiro soma: real inicio leia (n) soma