Algoritmo Visualg informa se pessoa está apta a serviços

21. Escrever um algoritmo que leia os dados de “N” pessoas (nome, sexo, idade e saúde) e informe se está apta ou não para cumprir o serviço militar obrigatório. Informe os totais. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex21"
// Função : Escrever um algoritmo que leia os dados de N pessoas (nome, sexo, idade e saúde) e informe se está apta ou não
            // para cumprir o serviço militar obrigatório. Informe os totais.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, idade, apto: inteiro
nome, sexo, saude, opc: caractere
totApto, total: inteiro
inicio
// Seção de Comandos
programa <- 1
enquanto programa = 1 faca
    limpatela
    apto <- 1
    saude <- "B"
    total <- total + 1
    escreva("Digite o nome: ")
    leia(nome)
    escreva("Digite o sexo (M/F): ")
    leia(sexo)
    escreva("Digite a idade: ")
    leia(idade)
    se idade < 18 entao
        apto <- 0
    fimse
    escreval("Digite o estado de saúde: ")
    escreva("(B) Bom - (R) - Ruim - ")
    leia(saude)
    se saude = "R" entao
        apto <- 0
    senao
        se saude <> "B" entao
            apto <- 0
        fimse
    fimse
    se apto = 1 entao
        totApto <- totApto + 1
    fimse
    escreval("Deseja continuar filtrando (S/N)? ")
    leia(opc)
    se opc = "N" entao
        programa <- 0
    fimse
fimenquanto
limpatela
escreval("Resumo geral: ")
escreval("Foram filtrados: ",total," pessoas")
escreval("Aptos: ",totApto)
escreval("")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg preço de custo e de venda

 22. Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex22"
// Função : Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se
            // houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x: inteiro
precoVenda, precoCusto: real
mediaCusto, mediaVenda: real

inicio
// Seção de Comandos
para x de 1 ate 40 faca
    limpatela
    escreva("Digite o preço de custo: ")
    leia(precoCusto)
    mediaCusto <- mediaCusto + precoCusto
    escreva("Digite o preço de venda: ")
    leia(precoVenda)
    mediaVenda <- mediaVenda + precoVenda
   
    se precoVenda < precoCusto entao
        escreval("Houve prejuízo na venda")
    senao
        se precoVenda = precoCusto entao
            escreval("Houve empate na venda")
        fimse
        se precoVenda > precoCusto entao
            escreval("Houve lucro na venda")
        fimse
    fimse
   
fimpara

limpatela
escreval("A média de preço de custo foi: ",mediaCusto/40)
escreval("A média de preço de venda foi: ",mediaVenda/40)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra informações funcionário

30. Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:

Veja abaixo o código do algoritmo:

algoritmo "ex30"
// Função : Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome, sexo: caractere
idade, x: inteiro
salario: real

inicio
// Seção de Comandos
escreva("Digite o nome do funcionário: ")
leia(nome)
x <- 1
enquanto x = 1 faca
    escreva("Digite o sexo (F/M): ")
    leia(sexo)
    se sexo <> "F" entao
        se sexo <> "M" entao
            x <- 1
        senao
            x <- 0
        fimse
    senao
        x <- 0
    fimse
fimenquanto
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o salário: ")
leia(salario)
se sexo = "M" entao
    se idade >= 30 entao
        salario <- salario + 100
    senao
        salario <- salario + 50
    fimse
senao
    se idade >= 30 entao
        salario <- salario + 200
    senao
        salario <- salario + 80
    fimse
fimse
limpatela

escreval(">>> Nome: ",nome)
escreval(">>> Salário: ",salario)

fimalgoritmo
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg diz se número é maior que outro

 23. Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor que 25 ou igual a 40. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex23"
// Função : Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor
            // que 25 ou igual a 40.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro

inicio
// Seção de Comandos
escreva("Digite um número: ")
leia(numero)

se numero > 80 entao
    escreval("O número é maior que 80")
senao
    se numero < 25 entao
        escreval("O número é menor que 25")
    senao
        se numero = 40 entao
            escreval("O número é igual a 40")
        fimse
    fimse
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg separe números positivos e negativos

 24. Faça um algoritmo que receba “N” números e mostre positivo, negativo ou zero para cada número. Visualg - Portugol

Veja abaixo o código do algoritmo
algoritmo "ex24"
// Função : Faça um algoritmo que receba N números e mostre positivo, negativo ou zero para cada número.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, numero: inteiro
opc: caractere

inicio
// Seção de Comandos
programa <- 1
enquanto programa = 1 faca
    limpatela
    escreva("Digite um número: ")
    leia(numero)
    se numero > 0 entao
        escreval("Positivo")
    senao
        se numero = 0 entao
            escreval("O número é igual a 0")
        fimse
        se numero < 0 entao
            escreval("Negativo")
        fimse
    fimse


    escreva("Deseja finalizar? (S/N) ")
    leia(opc)
    se opc = "S" entao
        programa <- 0
    fimse

fimenquanto

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg desconto de carro

27. A concessionária de veículos “CARANGO” está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente. O desconto deverá ser calculado sobre o valor do veículo de acordo com o combustível (álcool – 25%, gasolina – 21% ou diesel –14%). Com valor do veículo zero encerra entrada de dados. Informe total de desconto e total pago pelos clientes.

Veja abaixo o código do algoritmo

algoritmo "ex27"
// Função : A concessionária de veículos CARANGO está vendendo os seus veículos com desconto. Faça um algoritmo que
            // calcule e exiba o valor do desconto e o valor a ser pago pelo cliente. O desconto deverá ser calculado sobre o valor
            // do veículo de acordo com o combustível (álcool \u2013 25%, gasolina \u2013 21% ou diesel \u201314%). Com valor do veículo zero
            // encerra entrada de dados. Informe total de desconto e total pago pelos clientes.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
desconto, valorPago, valorVeiculo: real
totalDesconto, totalPago: real
combustivel, opc: caractere

inicio
// Seção de Comandos
valorVeiculo <- 1
opc <- "x"
enquanto valorVeiculo <> 0 faca
    limpatela
    escreva("Digite o valor do veículo: ")
    leia(valorVeiculo)
    se valorVeiculo <> 0 entao
        escreval("Digite o combustível")
        escreva("(G)asolina / (A)lcool / (D)iesel: ")
        leia(combustivel)
        escolha combustivel
            caso "A"
                desconto <- 0.25 * valorVeiculo
            caso "G"
                desconto <- 0.21 * valorVeiculo
            caso "D"
                desconto <- 0.14 * valorVeiculo
            outrocaso
                escreval("Combustível inválido!")
                escreval("Não haverão descontos!")
                desconto <- 0
        fimescolha
        valorPago <- valorVeiculo - desconto
        totalDesconto <- totalDesconto + desconto
        totalPago <- totalPago + valorPago
        escreval("Desconto no veículo: ",desconto)
        escreval("Valor total a ser pago: ",valorPago)
        escreval("Tecle enter para continuar...")
        leia(opc)
    fimse
fimenquanto
limpatela
escreval("Resumo geral: ")
escreval("Total de descontos: ",totalDesconto)
escreval("Total Pago pelos clientes: ",totalPago)

fimalgoritmo
  Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg imprimi resultado operação A por B

32. Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma mensagem de operador não definido. Tratar erro de divisão por zero. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex32"
// Função : Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado
            // da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma
            // mensagem de operador não definido. Tratar erro de divisão por zero.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
A, B: real
C: caractere

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(A)
escreva("Digite o segundo número: ")
leia(B)
escreva("Digite a operação desejada (+ - / *): ")
leia(C)
escolha C
    caso "+"
        escreval("A+B =",A+B)
    caso "-"
        escreval("A-B =",A-B)
    caso "*"                                                  =
        escreval("A*B =",A*B)
    caso "/"
        se B = 0 entao
            escreval("Erro, um número não pode ser dividido por 0!")
        senao
            escreval("A/B =",A/B)
        fimse
    outrocaso
        escreval("Operador não definido!")
fimescolha
fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg exibe salário professor

34. A escola “APRENDER” faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o salário de um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
Visualg - Portugol

Professor Nível 1 R$12,00 por hora/aula
Professor Nível 2 R$17,00 por hora/aula
Professor Nível 3 R$25,00 por hora/aula

Veja abaixo o código do algoritmo
algoritmo "ex34"
// Função : A escola \u201cAPRENDER\u201d faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o
            // salário de um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
            // Professor Nível 1 R$12,00 por hora/aula
            // Professor Nível 2 R$17,00 por hora/aula
            // Professor Nível 3 R$25,00 por hora/aula
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nivel, horas: inteiro
inicio
// Seção de Comandos
escreval(">>>>> Escola APRENDER <<<<<")
escreva("Digite o nível do professor (1/2/3): ")
leia(nivel)
escreva("Digite o número de horas trabalhadas: ")
leia(horas)

se nivel = 1 entao
    escreval("O professor ganha",horas*12)
senao
    se nivel = 2 entao
        escreval("O professor ganha",horas*17)
    senao
        escreva("O professor ganha",horas*25)
    fimse
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg escreve número por extenso

26. Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso. Caso o usuário digite um número que não esteja neste intervalo, exibir mensagem: número inválido.  Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex26"
// Função : Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso. Caso o usuário digite um número que não
            // esteja neste intervalo, exibir mensagem: número inválido.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro
inicio
// Seção de Comandos
escreva("Digite um número de 1 a 5: ")
leia(numero)
escolha numero
caso 1
    escreval("Um")
caso 2
    escreval("Dois")
caso 3
    escreval("Três")
caso 4
    escreval("Quatro")
caso 5
    escreval("Cinco")
outrocaso
    escreval("Número Inválido!!!")
fimescolha

fimalgoritmo
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra meses

29. Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido.

Veja abaixo o código do algoritmo

algoritmo "ex29"
// Função : Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
mes: inteiro

inicio
// Seção de Comandos
escreval("Digite o número do mês: ")
leia(mes)
escolha mes
caso 1
    escreval("Janeiro")
caso 2
    escreval("Fevereiro")
caso 3
    escreval("Março")
caso 4
    escreval("Abril")
caso 5
    escreval("Maio")
caso 6
    escreval("Junho")
caso 7
    escreval("Julho")
caso 8
    escreval("Agosto")
caso 9
    escreval("Setembro")
caso 10
    escreval("Outubro")
caso 11
    escreval("Novembro")
caso 12
    escreval("Dezembro")
outrocaso
    escreval("Mês inválido!")
fimescolha

fimalgoritmo
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg juros conta bancária

9. Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês. Considere fixo o juro da poupança em 0,70% a. m. Visualg - Portugol

 Veja abaixo o código do algoritmo

 algoritmo "ex9"
// Função : Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês.
            // Considere fixo o juro da poupança em 0,70% a. m.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
correcao, deposito: real


inicio
// Seção de Comandos
escreval("Sistema de depósito do Banco do Oeste")
escreva("Digite o valor depositado: ")
leia(deposito)
correcao <- 0.7 * deposito
escreva("O rendimento do depósito após um mês é de: ",deposito+correcao)

fimalgoritmo

 Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg consumo médio de um carro

3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto. Visualg - Portugol

 Veja abaixo o código do algoritmo:

 algoritmo "ex3"
// Função : Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
distancia, combustivel: real

inicio
// Seção de Comandos
escreval("========== Cálculo de consumo médio de combustível =========")
escreva("Digite a distância pecorrida: ")
leia(distancia)
escreva("Digite o combustível gasto: ")
leia(combustivel)
escreval("O consumo médio de combustível do seu veículo é: ",distancia/combustivel)

fimalgoritmo

 Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg informa qual número é maior

14. Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex14"
// Função : Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
num1, num2: inteiro

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

se num1 > num2 entao
     escreva("O primeiro número ",num1," é maior que o segundo",num2)
senao
     escreva("O segundo número",num2," é maior que o primeiro",num1)
fimse

fimalgoritmo
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg diz se número está em um determinado intervalo

15. Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex15"
// Função : Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro

inicio
// Seção de Comandos
escreva("Digite um número: ")
leia(numero)
se numero >= 100 entao
   se numero <= 200 entao
      escreval("O número está no intervalo entre 100 e 200")
   senao
        escreval("O número não está no intervalo entre 100 e 200")
   fimse
senao
   escreval("O número não está no intervalo entre 100 e 200")
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra se é maior de idade

18. Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando “maior de idade” e “menor de idade” para cada pessoa. Considere a idade a partir de 18 anos como maior de idade. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex18"
// Função : Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando "maior de idade" e "menor de
            // idade" para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x, idade: inteiro

inicio
// Seção de Comandos
para x de 1 ate 75 faca
     escreva("Digite a idade: ")
     leia(idade)
     se idade >= 18 entao
        escreval("Fulano é maior de idade!")
     fimse
fimpara

fimalgoritmo
  Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg média de uma aluno

16. Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a sua média (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação (media entre 5.1 a 6.9). Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex16"
// Função : Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a sua
            // média (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação
            // (media entre 5.1 a 6.9).
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome: caractere
n1, n2, n3, media: real

inicio
// Seção de Comandos
escreval("Sistema de médias")
escreva("Digite a primeira nota: ")
leia(n1)
escreva("Digite a segunda nota: ")
leia(n2)
escreva("Digite a terceria nota: ")
leia(n3)
media <- (n1 + n2 + n3) / 3

se media >= 7 entao
   escreval("Aluno aprovado!")
senao
   se media <= 5 entao
      escreval("Aluno reprovado!")
   senao
      escreval("Aluno em recuperação...")
   fimse
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg ler números e informar intervalo

17. Ler 80 números e ao final informar quantos número(s) estão no intervalo entre 10 (inclusive) e 150 (inclusive). Visualg - Portugol

Veja abaixo o código do algoritmo 

algoritmo "ex17"
// Função : Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x, num, intervalo: inteiro

inicio
// Seção de Comandos
para x de 1 ate 80 faca
     escreva("Digite um número: ")
     leia(num)
     se num >= 10 entao
        se num <= 150 entao
           intervalo <- intervalo + 1
        fimse
     fimse
fimpara

escreval("Ao total, foram digitados",intervalo,"números no intervalo entre 10 e 150")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg valor de desconto

20. A concessionária de veículos “CARANGO VELHO” está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá perguntar se deseja continuar calculando desconto até que a resposta seja: “(N) Não” . Informar total de carros com
ano até 2000 e total geral. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex20"
// Função : A concessionária de veículos CARANGO VELHO está vendendo os seus veículos com desconto. Faça um
            // algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto
            // deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá
            // perguntar se deseja continuar calculando desconto até que a resposta seja: \u201c(N) Não\u201d . Informar total de carros com
            // ano até 2000 e total geral.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, opc: caractere
ano, total, total2000: inteiro
valor, valorFinal, desconto: real

inicio
// Seção de Comandos
programa <- "S"
enquanto programa <> "N" faca
    limpatela
    escreva("Digite o valor do carro: ")
    leia(valor)
    escreva("Digite o ano do carro: ")
    leia(ano)
    se ano <= 2000 entao
        desconto <- 0.12
        total2000 <- total2000 + 1
        total <- total + 1
    senao
        desconto <- 0.07
        total <- total + 1
    fimse
    desconto <- desconto * valor
    valorFinal <- valor - desconto
    escreval("O valor do carro com desconto é de: ",valorFinal)
    escreval("")
    escreva("Deseja continuar calculando? (S) Sim - (N) Não - ")
    leia(opc)
    escolha opc
        caso "S"
            programa <- "S"
        caso "N"
            programa <- "N"
        outrocaso
            programa <- "S"
            limpatela
            escreval("As opções disponíveis são apenas S ou N!!!")
            leia(opc)
    fimescolha
fimenquanto
escreval("Foram calculados",total2000," carro(s) com ano até 2000")
escreval("Total geral: ",total)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg vê se número maior que 10

19. Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. No final informe total de homens e de mulheres. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex19"
// Função : Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. No
            // final informe total de homens e de mulheres.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome, sexo: caractere
x, h, m: inteiro

inicio
// Seção de Comandos
para x de 1 ate 5 faca
     limpatela
     escreva("Digite o nome: ")
     leia(nome)
     escreva("H - Homem ou M - Mulher: ")
     leia(sexo)
     escolha sexo
         caso "H"
              h <- h + 1
         caso "M"
              m <- m + 1
         outrocaso
              escreval("Sexo só pode ser H ou M!")
     fimescolha
fimpara
limpatela
escreval("Foram inseridos",h," Homens")
escreval("Foram inseridos",m," Mulheres")

fimalgoritmo
 
Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra se número é maior que dez

13. Faça um algoritmo que receba um número e mostre uma mensagem caso este número seja maior que 10. Visualg - Portugol

Veja abaixo o código do algoritmo: 

algoritmo "ex13"
// Função : Faça um algoritmo que receba um número e mostre uma mensagem caso este número seja maior que 10.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro

inicio
// Seção de Comandos
escreva("Digite um número: ")
leia(numero)
se numero > 10 entao
   escreval("O número é maior que 10")
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg conversão de moedas

8. Elaborar um algoritmo que efetue a apresentação do valor da conversão em real (R$) de um valor lido em dólar (US$). O algoritmo deverá solicitar o valor da cotação do dólar e também a quantidade de dólares disponíveis com o usuário. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex8"
// Função : Elaborar um algoritmo que efetue a apresentação do valor da conversão em real (R$) de um valor lido em dólar
            // (US$). O algoritmo deverá solicitar o valor da cotação do dólar e também a quantidade de dólares disponíveis com o usuário.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
rs, us, cotacao, dolaDisponivel: real

inicio
// Seção de Comandos
escreval("========= Cotação do Dólar ==========")
escreva("Qual a cotação atual do dólar? ")
leia(cotacao)
escreva("Quantos dólares você possui? ")
leia(us)
rs <- us/cotacao
limpatela
escreval(us," Dólares equivalem á: ",rs," R$")

fimalgoritmo
  Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg prestações de uma compra

10. A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco) prestações sem juros. Faça um algoritmo que receba um valor de uma compra e mostre o valor das prestações. Visualg - Portugol

 Veja abaixo o código do algoritmo

algoritmo "ex10"
// Função : A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco) prestações sem juros. Faça um algoritmo que
            // receba um valor de uma compra e mostre o valor das prestações.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
compra, prestacao: real

inicio
// Seção de Comandos
escreval("========== Loja Mamão com Açúcar ==========")
escreva("Digite o valor da compra: ")
leia(compra)
prestacao <- compra/5
escreval("O cliente deverá pagar 5 prestações de R$",prestacao," cada")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg custo de um carro

12. O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos impostos (aplicados, primeiro os impostos sobre o custo de fábrica, e depois a percentagem do distribuidor sobre o resultado). Supondo que a percentagem do distribuidor seja de 28% e os impostos 45%. Escrever um algoritmo que
leia o custo de fábrica de um carro e informe o custo ao consumidor do mesmo. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex12"
// Função : O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dos
            // impostos (aplicados, primeiro os impostos sobre o custo de fábrica, e depois a percentagem do distribuidor sobre o
            // resultado). Supondo que a percentagem do distribuidor seja de 28% e os impostos 45%. Escrever um algoritmo que
            // leia o custo de fábrica de um carro e informe o custo ao consumidor do mesmo.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
custoFabrica, custoFinal: real

inicio
// Seção de Comandos

escreva("Informe o custo de fábrica do veículo: ")
leia(custoFabrica)
custoFinal <- custoFabrica + (0.28 * custoFabrica) + (0.45 * custoFabrica)
custoFinal <- custoFinal + (0.45 * custoFinal)
escreval("O custo para o consumidor final é de: ",custoFinal)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg valor venda de um produto

11. Faça um algoritmo que receba o preço de custo de um produto e mostre o valor de venda. Sabe-se que o preço de custo receberá um acréscimo de acordo com um percentual informado pelo usuário. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex11"
// Função : Faça um algoritmo que receba o preço de custo de um produto e mostre o valor de venda. Sabe-se que o preço de
            // custo receberá um acréscimo de acordo com um percentual informado pelo usuário.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
custo, venda, percent: real

inicio
// Seção de Comandos
escreva("Digite o custo do produto: ")
leia(custo)
escreva("Digite o percentual para venda: ")
leia(percent)
percent <- (percent/100) * custo
venda <- custo + percent
escreval("O valor de venda é: ",venda)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg salário de vendedor

4. Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele nomês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o seu nome, o salário fixo e salário no final do mês.

Veja abaixo o código do algoritmo:

algoritmo "ex4"
// Função : Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no
            // mês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar o
            // seu nome, o salário fixo e salário no final do mês
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
nome: caractere
salario: real
vendas: real
comissao: real
salarioFinal: real

inicio
// Seção de Comandos
escreval("<><><><><> Sistema de gestão de vendedores <><><><><>")
escreva(">>> Digite o nome do vendedor: ")
leia(nome)
escreva(">>> Digite o salário: ")
leia(salario)
escreva(">>> Informe a quantidade de vendas deste no mês: ")
leia(vendas)
// Cálculo da comissão e salário final
comissao <- 0.15 * vendas
salarioFinal <- salario + comissao
limpatela
escreval(">>>>>>>>>> RESUMO <<<<<<<<<<")
escreval("-- Nome: ",nome)
escreval("-- Salário: ",salario)
escreval("-- Salário Final (salário + comissão): ",salarioFinal)
escreval(">>>>>>>>>><><><><><<<<<<<<<<")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg converte temperatura

7. Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex7"
// Função : Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula de conversão é:
            // F=(9*C+160) / 5, sendo F a temperatura em Fahrenheit e C a temperatura em Celsius.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
cel, far: real

inicio
// Seção de Comandos
escreval("=-=-=-=-=- Tabela de conversão: Celcius -> Fahrenheit -=-=-=-=-=")
escreva("Digite a temperatura em Celcius: ")
leia(cel)
far <- (9*cel+160)/5
escreval("A nova temperatura é: ",far,"ºF")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg troca de variaveis

6. Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir valor da variável B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex6"
// Função : Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir o
            // valor da variável B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
a, b, troca: inteiro

inicio
// Seção de Comandos
escreva("Digite o valor(numérico) da variável A: ")
leia(a)
escreva("Digite o valor(numérico) da variável B: ")
leia(b)
troca <- a
a <- b
b <- troca
limpatela
escreval("===========================")
escreval("O novo valor de A é: ",a)
escreval("O novo valor de B é: ",b)
escreval("===========================")

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg média de aluno

5. Escrever um algoritmo que leia o nome de um aluno e as notas das três provas que ele obteve no semestre. No final informar o nome do aluno e a sua média (aritmética). Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex5"
// Função : Escrever um algoritmo que leia o nome de um aluno e as notas das três provas que ele obteve no semestre. No final
            // informar o nome do aluno e a sua média (aritmética)
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
aluno: caractere
notas: vetor[1..3] de real
x: inteiro
media: real

inicio
// Seção de Comandos
escreval("============== Média de alunos ==============")
escreva("Digite o nome do aluno: ")
leia(aluno)
para x de 1 ate 3 faca
     escreva("Digite a ",x,"º nota ")
     leia(notas[x])
fimpara
media <- (notas[1] + notas[2] + notas[3]) / 3
limpatela
escreval("==============", aluno," ==============")
escreval(">>> Média: ",media)
escreval("=======================================")
fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg soma, subtração, multiplicação e divisão

2. Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dosnúmeros lidos. Visualg - Portugol

Veja abaixo o código do algoritmo

// Função : Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dos números lidos.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
x, y: real

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(x)
escreva("Digite o segundo número: ")
leia(y)
escreval("A soma é: ",x+y)
escreval("A subtração é: ",x-y)
escreval("A multiplicação é: ",x*y)
escreval("A divisão é: ",x/y)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg soma dois números

1. Faça um algoritmo que receba dois números e exiba o resultado da sua soma.

Veja abaixo o código do algoritmo:

algoritmo "ex1"
// Função : Faça um algoritmo que receba dois números e exiba o resultado da sua soma.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
x, y: inteiro

inicio
// Seção de Comandos
escreval("Digite o primeiro número: ")
leia(x)
escreval("Digite o segundo número: ")
leia(y)
escreva("A soma dos números é: ",x+y)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Exercícios resolvidos Visualg em portugol

Exercícios resolvidos de algoritmos para iniciantes em Visualg - Portugol

Para ver os exercícios cliquem neles. Todos já estão com as respostas.

1. Faça um algoritmo que receba dois números e exiba o resultado da sua soma.
 
2. Faça um algoritmo que receba dois números e ao final mostre a soma, subtração, multiplicação e a divisão dosnúmeros lidos.
 
3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
 
4. Escrever um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele nomês (em dinheiro). Sabendo que este vendedor ganha 15% de comissão sobre suas vendas efetuadas, informar oseu nome, o salário fixo e salário no final do mês.
 
5. Escrever um algoritmo que leia o nome de um aluno e as notas das três provas que ele obteve no semestre. No finalinformar o nome do aluno e a sua média (aritmética).
 
6. Ler dois valores para as variáveis A e B, e efetuar as trocas dos valores de forma que a variável A passe a possuir ovalor da variável B e a variável B passe a possuir o valor da variável A. Apresentar os valores trocados.
 
7. Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula de conversão é:F=(9*C+160) / 5, sendo F a temperatura em Fahrenheit e C a temperatura em Celsius.
 
8. Elaborar um algoritmo que efetue a apresentação do valor da conversão em real (R$) de um valor lido em dólar(US$). O algoritmo deverá solicitar o valor da cotação do dólar e também a quantidade de dólares disponíveis com ousuário.
 
9. Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês. Considere fixo o juro da poupança em 0,70% a. m.
 
10. A Loja Mamão com Açúcar está vendendo seus produtos em 5 (cinco) prestações sem juros. Faça um algoritmo quereceba um valor de uma compra e mostre o valor das prestações.
 
11. Faça um algoritmo que receba o preço de custo de um produto e mostre o valor de venda. Sabe-se que o preço decusto receberá um acréscimo de acordo com um percentual informado pelo usuário.
 
12. O custo ao consumidor de um carro novo é a soma do custo de fábrica com a percentagem do distribuidor e dosimpostos (aplicados, primeiro os impostos sobre o custo de fábrica, e depois a percentagem do distribuidor sobre oresultado). Supondo que a percentagem do distribuidor seja de 28% e os impostos 45%. Escrever um algoritmo queleia o custo de fábrica de um carro e informe o custo ao consumidor do mesmo.
13. Faça um algoritmo que receba um número e mostre uma mensagem caso este número seja maior que 10.
 
14. Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior.
 
15. Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.
 
16. Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a suamédia (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação(media entre 5.1 a 6.9).
 
17. Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).
 
18. Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando “maior de idade” e “menor deidade” para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.
 
19. Escrever um algoritmo que leia o nome e o sexo de 56 pessoas e informe o nome e se ela é homem ou mulher. Nofinal informe total de homens e de mulheres.
 
20. A concessionária de veículos “CARANGO VELHO” está vendendo os seus veículos com desconto. Faça umalgoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O descontodeverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deveráperguntar se deseja continuar calculando desconto até que a resposta seja: “(N) Não” . Informar total de carros comano até 2000 e total geral.