Uma Lição de Superação

Este garoto nos ensina, que não devemos desistir nunca, pois a nossa dificuldade pode se tornar a nossa maior diferença e abilidade.

Clique no link abaixo e descubra porque.
http://video.globo.com/Videos/Player/Noticias/0,,GIM820807-7823-UMA+HISTORIA+DE+SUPERACAO,00.html

ANTEÇÃO:
Você será redirecionado para o site da Globo.COM pois é lá que se encontra o video, eu não possuo o video apenas posto o link para que se posso ser visto por usuarios que utilizam deste blog.

Manual do Visualg - Direto do Fabricante

Tudo o que você precisa saber sobre o visualg.
Esse link te levará direto ao site do fabricante, oferecendo um cusro dinâmico e simples de aprender a usar o visualg e seus algorítimos!
O curso é muito bacana para quem quer aprender e nunca teve um contatao direto com lógica de programação.

http://www.apoioinformatica.inf.br/cursoalg/default.htm

Algorítmo de Média - Visualg (Até que X, processar...)

algoritmo "Programa que calcula Médias"
//Seção de Declarações

var
// Seção de Variáveis
Qnumeros, Nordem, Nvalor, Valor, Media: real

inicio
// Seção de Comandos

escreval ("Função: Calular a Média de qualquer qantidade de valor, determinada")
escreval (" ainda em tempo de execução.")
escreval (" ")
escreval ("Autor: Josafá de Castro Duarte Junior - Técn. Processamento de Dados")
escreval (" ")
escreval ("Data: 1/4/2008")
escreval (" ")
escreval ("Programa para calcular Médias")
escreva ("Informe a quantidade de números a ser calculado : ")

leia (Qnumeros)

repita

Nordem <- Nordem + 1
escreva ("Informe o ", Nordem, "º numero: ")
leia (Valor)
Nvalor <- (Nvalor + Valor)

ate Nordem = Qnumeros

Media <- Nvalor / Qnumeros

escreval ("O valor Total informado foi: ->> ", Nvalor," <<-")
escreval ("A média calculada foi: ->> ", Media, " <<-")

fimalgoritmo