Algoritimos - funções

Aluno: José Wellington Ribeiro da Rocha

1) Escreva um algoritmo que receba um número positivo e escreva na tela:

algoritmo "Questão 1"
// Função :Escrever Numeros Pares
// Autor : wellington
// Data : 18/05/2013
// Seção de Declarações var num,cont:inteiro inicio // Seção de Comandos cont <- 0 escreval("Digite um numero") leia (num) enquanto cont < num faca escreval(cont) cont <- cont + 2 fimenquanto fimalgoritmo

2) Construa um programa que leia o conjunto de 20 números inteiros e mostre qual foi o maior e o menor valor fornecido.

algoritmo "Mostra O maior eo Menor numero"
// Função :Mostrar o maior eo menor numero
// Autor : wellington
// Data : 19/05/2013
// Seção de Declarações var num,cont,maior,menor:inteiro inicio // Seção de Comandos
Para cont de 1 ate 20 passo 1 faca Escreva ("Digite o ",cont,"º numero :") leia(num) se cont = 1 entao maior <- num menor <- num senao se num > maior entao maior <- num senao se menor > num entao menor <- num fimse fimse fimse fimpara escreval("O maior numero é :", maior) escreval("O menor numero é :",menor) fimalgoritmo 3) Elabore um algoritmo que leia um número qualquer digitado pelo usuário e calcule seu Fatorial.
(Exemplo: 5! = 5 x 4 x 3 x 2 x 1) Lembre-se: 0! = 1 (fatorial do número zero é igual a 1 por definição). algoritmo "Fatorial"
// Função : Calcular o fatorial de um numero
// Autor : wellington
// Data : 19/05/2013
// Seção de Declarações var n,acm,cont,fat:inteiro inicio // Seção de Comandos acm <- 1 escreval("Digite um numero") leia(n) para cont de 1 ate n faca fat <- n * acm n <- n -1 acm <- fat se n = 0 entao fat <- acm + 1 fimse fimpara escreval("Seu fatorial é :",fat) fimalgoritmo 4) Construa um programa que apresente o valor de H, sendo H calculado por: H = 1 +