Algoritmo Visualg calcula peso ideal de uma pessoa

37. Faça um algoritmo que leia o nome, o sexo, a altura e a idade de uma pessoa. Calcule e mostre nome e o seu peso ideal de acordo com as seguintes características da pessoa: Visualg - Portugol

Veja abaixo o código do algoritmo:


algoritmo "ex37"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome, sexo: caractere
idade, x: inteiro
altura, peso: real

inicio
// Seção de Comandos
escreva("Digite o nome: ")
leia(nome)
x <- 1
enquanto x = 1 faca
    escreva("Digite o sexo (F/M): ")
    leia(sexo)
    se sexo = "F" entao
        x <- 0
    fimse
    se sexo = "M" entao
        x <- 0
    fimse
fimenquanto
escreva("Digite a altura: ")
leia(altura)
escreva("Digite a idade: ")
leia(idade)
se sexo = "M" entao
    se altura > 1.70 entao
        se idade <= 20 entao
            peso <- (72.7 * altura) - 58
        senao
            se idade <= 39 entao
                peso <- (72.7 * altura) - 53
            senao
                peso <- (72.7 * altura) - 45
            fimse
        fimse
    senao
        se altura <= 1.70 entao
            se idade <= 40 entao
                peso <- (72.7 * altura) - 50
            senao
                peso <- (72.7 * altura) - 58
            fimse
        fimse
    fimse
senao
    se altura > 1.50 entao
        peso <- (62.1 * altura) - 44.7
    senao
        se idade >= 35 entao
            peso <- (62.1 * altura) - 45
        senao
            peso <- (62.1 * altura) - 49
        fimse
    fimse
fimse

limpatela
escreval("Nome: ",nome)
escreval("Peso Ideal: ",peso)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg escreve números em ordem crescente

31. Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex31"
// Função : Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
num1, num2, num3: inteiro
ordena: vetor[1..3] de inteiro

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(num1)
escreva("Digite o segundo número: ")
leia(num2)
escreva("Digite o terceiro número: ")
leia(num3)

se num1 > num2 entao
    ordena[3] <- num1
    ordena[2] <- num2
    se num3 > num1 entao
        ordena[3] <- num3
        ordena[2] <- num1
        ordena[1] <- num2
    senao
        se num3 > num2 entao
            ordena[3] <- num1
            ordena[2] <- num3
            ordena[1] <- num2
        senao
            ordena[3] <- num1
            ordena[2] <- num2
            ordena[1] <- num3
        fimse
    fimse
senao
    ordena[3] <- num2
    ordena[2] <- num1
    se num3 > num2 entao
        ordena[3] <- num3
        ordena[2] <- num2
        ordena[1] <- num1
    senao
        se num3 > num1 entao
            ordena[3] <- num2
            ordena[2] <- num3
            ordena[1] <- num1
        senao
            ordena[3] <- num2
            ordena[2] <- num1
            ordena[1] <- num3
        fimse
    fimse
fimse

escreval("Os números em ordem crescente são: ")
escreval(">",ordena[1])
escreval(">",ordena[2])
escreval(">",ordena[3])
fimalgoritmo
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg condição composta

Tutorial de como criar um algoritmo em portugol no visualg, adicionando estrutura de condição composta.

Crie um algoritmo que receba 2 números e a operação que será executada sobre eles (soma, subtração, multiplicação ou divisão). Calcule e imprima o resultado da operação.

algoritmo "semnome"
// Função :
// Autor :douglasboza.blogspot.com
// Data : 09/03/2013
// Seção de Declarações
var
n1,n2:real
op: caracter
inicio
// Seção de Comandos
escreva ("Digite o primeiro número :")
leia (n1)

escreva ("Digite o segundo número :")
leia (n2)

escreva ("digite a operação :")
leia (op)

se (op="soma") entao
escreva (n1+n2)
senao
se (op="subt") entao
escreva (n1-n2)
senao
se (op="mult") entao
escreva (n1*n2)
senao
se (op="divi") entao
escreva (n1/n2)
fimse
fimse
fimse
fimse


fimalgoritmo

Vídeo Tutorial

Algoritmo visualg com condição

Nessa postagem estarei ensinando como criar um algoritmo em portugol com estrutura de repetição simples.

Algoritmo que calcula a velocidade média e escreve se é maior ou menor que 80.

algoritmo "semnome"
// Função :
// Autor : douglasboza.blogspot.com
// Data : 09/03/2013
// Seção de Declarações
var
distan:real
tempo:real
aux:real

inicio
escreva ("Digite a distancia : ")
leia (distan)

escreva ("Tempo : ")
leia (tempo)
aux := (distan/tempo)

se (aux>=80) entao
escreva ("Velocidade alta")
senao
escreva ("Velocidade baixa")
fimse
escreval (aux)
fimalgoritmo

Vídeo Tutorial