Algoritmo Visualg notas de curso

38. Em um curso de Ciência da Computação a nota do estudante é calculada a partir de três notas atribuídas,respectivamente, a um trabalho de laboratório, a uma avaliação semestral e a um exame final. As notas variam, de 0 a 10 e a nota final é a média ponderada das três notas mencionadas. A tabela abaixo fornece os pesos:

Avaliação semestral Peso 3
Exame final Peso 5

Veja abaixo o código do algoritmo:
  algoritmo "ex38"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nota1, nota2, nota3: real
media: real
nome, classificacao: caractere
matricula: inteiro

inicio
// Seção de Comandos
escreva("Digite o nome: ")
leia(nome)
escreva("Informe a matrícula: ")
leia(matricula)
escreva("Digite a nota do trabalho de laboratório: ")
leia(nota1)
escreva("Digite a nota da avaliação semestral: ")
leia(nota2)
escreva("Digite a nota do exame final: ")
leia(nota3)

media <- ((nota1 * 2) + (nota2 * 3) + (nota3 * 5))/10

se media >= 8.10 entao
    classificacao <- "A"
senao
    se media >= 7.8 entao
        classificacao <- "B"
    senao
        se media >= 6.7 entao
            classificacao <- "C"
        senao
            se media >= 5.6 entao
                classificacao <- "D"
            fimse
        fimse
    fimse
fimse
se media < 5.6 entao
    classificacao <- "R"
fimse

limpatela
escreval("Nome: ",nome)
escreval("Matrícula: ",matricula)
escreval("Nota final: ",media)
escreval("Classificação: ",classificacao)

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

Algoritmo Visualg classificação dos seguros

40- Uma Companhia de Seguros possui nove categorias de seguro baseadas na idade e ocupação do segurado. Somente pessoas com pelo menos 17 anos e não mais de 70 anos podem adquirir apólices de seguro. Quanto às classes de ocupações, foram definidos três grupos de risco. A tabela abaixo fornece as categorias em função da faixa etária e do grupo de risco. Dados nome, idade e grupo de risco, determinar a categoria do pretendente à aquisição de tal seguro. Imprimir o nome a idade e a categoria do pretendente, e , caso a idade não esteja na faixa necessária, imprimir uma mensagem. Visualg - Portugol

Veja abaixo o código do algoritmo:
algoritmo "ex40"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
mat1: vetor[1..4,1..4] de inteiro
mat2: vetor[1..4,1..4] de inteiro
x, y: inteiro
soma1, soma2: inteiro

inicio
// Seção de Comandos

// Recebimento dos valores da matriz
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        escreva("Digite o valor",x,"-",y,": ")
        leia(mat1[x,y])
    fimpara
fimpara

// Troca entre as posições entre duas matrizes
para x de 1 ate 4 faca
    mat2[1,x] <- mat1[4,x]
    mat2[4,x] <- mat1[1,x]
fimpara

para x de 1 ate 4 faca
    mat2[2,x] <- mat1[2,x]
    mat2[3,x] <- mat1[3,x]
fimpara

// Impressão dos valores das matrizes
limpatela
escreval("Matriz original: ")
para x de 1 ate 4 faca
    escreval(mat1[x,1],mat1[x,2],mat1[x,3],mat1[x,4])
fimpara
escreval("Matriz modificada: ")
para x de 1 ate 4 faca
    escreval(mat2[x,1],mat2[x,2],mat2[x,3],mat2[x,4])
fimpara
escreval("")

// Soma entre os termos das matrizes
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        soma1 <- soma1 + mat1[x,y]
    fimpara
fimpara
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        soma2 <- soma2 + mat2[x,y]
    fimpara
fimpara

// Resultado final
escreval("")
escreval("Soma da matriz 1 + matriz 2 = ",soma1+soma2)
escreval("Soma dos valores da matriz 1 menos a soma da matriz 2 = ",soma1-soma2)

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

Algoritmo Visualg reajuste de salário

28. Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os seguintes critérios:
a) 50% para aqueles que ganham menos do que três salários mínimos;
b) 20% para aqueles que ganham entre três até dez salários mínimos;
c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
d) 10% para os demais funcionários.
 

Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever onome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex28"
// Função : Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os
            // seguintes critérios:
               // a) 50% para aqueles que ganham menos do que três salários mínimos;
               // b) 20% para aqueles que ganham entre três até dez salários mínimos;
               // c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
               // d) 10% para os demais funcionários.
            // Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o
               // nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
salarioMinimo, novoSalario, reajuste, reajusteTotal, folha, novaFolha, calc, salario: real
nome, opc: caractere
x: inteiro

inicio
// Seção de Comandos
opc <- "x"
escreval("<><><><><> Sistema de reajuste salarial <><><><><>")
escreva("Digite o valor atual do salário mínimo: ")
leia(salarioMinimo)
para x de 1 ate 584 faca
    limpatela
    escreva("Digite o nome: ")
    leia(nome)
    escreva("Digite o salário: ")
    leia(salario)
    calc <- salarioMinimo * 3
    se salario < calc entao
        reajuste <- 0.50 // Reajuste de 50%
        reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
        folha <- folha + salario // Folha de pagamento antiga
        novoSalario <- salario + (reajuste * salario) // Salário reajustado
        novaFolha <- novaFolha + novoSalario // Nova folha de pagamento
       
        limpatela
        escreval(">>> Nome: ",nome)
        escreval(">>> Reajuste = 50%: ",reajuste*salario)
        escreval(">>> Novo salário: ",novoSalario)
        escreval(">>> Tecle enter para continuar...")
        leia(opc)
    senao
        calc <- salarioMinimo * 10
        se salario <= calc entao
            reajuste <- 0.20 // Reajuste de 20%
            reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
            folha <- folha + salario // Folha de pagamento antiga
            novoSalario <- salario + (reajuste * salario) // Salário reajustado
            novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

            limpatela
            escreval(">>> Nome: ",nome)
            escreval(">>> Reajuste = 20%: ",reajuste*salario)
            escreval(">>> Novo salário: ",novoSalario)
            escreval(">>> Tecle enter para continuar...")
            leia(opc)
        senao
            calc <- salarioMinimo * 20
            se salario <= calc entao
                reajuste <- 0.15 // Reajuste de 15%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 15%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            senao
                reajuste <- 0.10 // Reajuste de 10%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 10%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            fimse
        fimse
    fimse
fimpara
escreval("")
escreval("A empresa aumentou a folha de pagamento em:",novaFolha - folha," Reais")

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

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.