Descobrir a idade - Visualg

algoritmo "descobreidade"
// Função : Descobrir a idade que você terar no ano que você pedi
// Autor : Uandisson
// Data : 11/2/2011
// Seção de Declarações
var
ANOnasc, ANOatual, idade:inteiro //declaração das variáveis que irei utilizar
inicio
// Seção de Comandos


escreva("Seu ano de nascimento. ")//escreve no vídeo o que está entre aspas duplas
leia(ANOnasc)//leitura de teclado da data de nascimento

repita //laço de repetição só sai quando a condição "ate" seja verdadeira
escreva("Ano que deseja que calcule a idade. ")//escreve no vídeo o que está entre aspas duplas
leia(ANOatual)//leitura de teclado da tada que deseja que revele a idade que terá quando chegar lá

se ANOatual <= ANOnasc entao//verifica se a data atual é menor ou igual a data de nascimento informada escreval("Digite uma data maior que a de nascimento.") fimse//final do se ate ANOatual > ANOnasc//so para de repeti se a data atual for maior que a data de nascimento
idade <- ANOatual - ANOnasc//atribui o resultado da subtração do ano atual com o ano de nascimento a variavel idade se idade > 100 entao//verifica se a idade vai ser maior que 100 anos
escreva("Você com ", idade, " anos, talvez você não cheque lá. kkkk")
senao//passando aqui, isso significa que a idade é menor que 100 anos
escreva("No ano ", ANOatual, ", você completara, ", idade, " anos.")//escreve a idade que você fará no ano escolhido
fimse//fim do se


// Fim Seção de Comandos
fimalgoritmo

Jogo da Sorte é um algoritmo feito com Visualg

Download do Visualg aqui

algoritmo "jogo da sorte"

var

li, ls, tentativas, palpite: inteiro

resposta: caracter

inicio

li <- 0

ls <- 1000

tentativas <- 1

repita

palpite <- (ls - li)\2 + li

escreva("Seu numero é maior, menor ou igual a ", palpite, "? ")

leia(resposta)

se resposta = "igual" entao

escreval("ACERTEI!!")

senao

se resposta = "maior" entao

li <- palpite

senao

se resposta = "menor" entao

ls <- palpite

senao

escreval("Reposta incorreta.")

escreval("Escreva uma das palavras: maior, menor ou igual")

fimse

fimse

tentativas <- tentativas + 1

fimse

ate ((tentativas > 10) OU (resposta = "igual"))

se tentativas > 10 entao

escreval("Infelizmente não consegui acertar ...")

senao

escreval("Tentativas: ", tentativas)

fimse

// Seção de Comandos

fimalgoritmo

Visualg

O VisuAlg é um programa que edita, interpreta e executa algoritmos com uma linguagem próxima do português estruturado, como um programa normal de computador

Fonte: http://pt.wikipedia.org/wiki/Visualg

Download

Blog do Maomé: Alguns esclarecimentos sobre o "Imposto Duplo Baia...

Blog do Maomé: Alguns esclarecimentos sobre o "Imposto Duplo Baia...: "Informações importantíssimas de um caríssimo e ilustre leitor deste cafeinado blog sobre os impostos como eram e como pode já estar sendo: ..."

Blog do Maomé: Bahia passa a cobrar ICMS em dobro para compras vi...

Blog do Maomé: Bahia passa a cobrar ICMS em dobro para compras vi...: " Eu não sei vocês, mas além de assinar logo uma abaixo-assinado contra isso, só me passa pela cabeça palavra de baixo calão e muita vi..."

Blog do Maomé: Arduino: Full open-source

Blog do Maomé: Arduino: Full open-source: "Aqui eu dou ponto e MUITO! Para quem não conhece, o Arduino é um projeto, inicialmente, de 'hardware open-source'. A ideia é sensacion..."