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.