Buscar

Algoritmos no Visualg (respostas)

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

ex1.alg
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
ex2.alg
algoritmo "ex2"
// 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
ex3.alg
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
ex4.alg
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
ex5.alg
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
ex6.alg
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
ex7.alg
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
ex8.alg
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
ex9.alg
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
ex10.alg
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
ex11.alg
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
ex12.alg
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
ex13.alg
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
ex14.alg
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
ex15.alg
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
ex16.alg
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
ex17.alg
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
ex18.alg
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
ex19.alg
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
ex20.alg
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
ex21.alg
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
ex22.alg
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
ex23.alg
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
ex24.alg
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
ex25.alg
algoritmo "ex25"
// Função : Faça um algoritmo que leia dois números e identifique se são iguais ou diferentes. Caso eles sejam iguais imprima
 // uma mensagem dizendo que eles são iguais. Caso sejam diferentes, informe qual número é o maior, e uma
 // mensagem que são diferentes.
// 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
 escreval("Os números são iguais!")
senao
 se num1 > num2 entao
 escreval("O número",num1," é maior que o número",num2)
 escreval("Eles são diferentes!!!")
 senao
 escreval("O número",num2," é maior que o número",num1)
 escreval("Eles são diferentes!!!")
 fimse
fimse
fimalgoritmo
ex26.alg
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
ex27.alg
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
ex28.alg
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
ex29.alg
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
ex30.alg
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
ex31.alg
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
ex32.alg
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
ex33.alg
algoritmo "ex33"
// Função : Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se
 // forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno
// Autor :
// Data : 1/12/2010
// Seção de Declarações 
var
la, lb, lc, triangulo: inteiro
inicio
// Seção de Comandos 
escreva("Digite o lado A do triângulo: ")
leia(la)
escreva("Digite o lado B do triângulo: ")
leia(lb)
escreva("Digite o lado C do triângulo: ")
leia(lc)
se la < (lc+lb) entao
 triangulo <- 1
senao
 se lb < (lc + la) entao
 triangulo <- 1
 senao
 se lc < (lb + la) entao
 triangulo <- 1
 fimse
 fimse
fimse
se triangulo = 1 entao
 se la = lb entao
 se lb = lc entao
 escreval("É um triângulo equilátero!")
 senao
 escreval("É um triângulo isórcele")
 fimse
 senao
 se lb = lc entao
 escreval("É um triângulo isórcele")
 senao
 escreval("É um triângulo escaleno")
 fimse
 fimse
fimse
fimalgoritmo
ex34.alg
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
ex35.alg
algoritmo "ex35"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações 
var
idade: inteiro
inicio
// Seção de Comandos 
escreva("Digite a idade do nadador: ")
leia(idade)
escolha idade
 caso 5,6,7
 escreval("Infantil A")
 caso 8,9,10
 escreval("Infantil B")
 caso 11,12,13
 escreval("Juvenil A")
 caso 14,15,16,17
 escreval("Juvenil B")
 caso 18,19,20,21,22,23,24,25
 escreval("Sênior")
 outrocaso
 escreval("Idade fora da faixa etária")
fimescolha
fimalgoritmo
ex36.alg
algoritmo "ex36"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações 
var
residencia, kw: inteiro
consumo: real
inicio
// Seção de Comandos 
escreval("Informe o tipo de residência: ")
escreval("1 - Residência")
escreval("2 - Comércio")
escreval("3 - Indústria")
leia(residencia)
escolha residencia
 caso 1
 escreva("Informe a quantidade de KW gastos no mês: ")
 leia(kw)
 consumo <- kw * 0.60
 escreval("Valor da conta: ",consumo)
 caso 2
 escreva("Informe a quantidade de KW gastos no mês: ")
 leia(kw)
 consumo <- kw * 0.48
 escreval("Valor da conta: ",consumo)
 caso 3
 escreva("Informe a quantidade de KW gastos no mês: ")
 leia(kw)
 consumo <- kw * 1.29
 escreval("Valor da conta: ",consumo)
 outrocaso
 escreval("Tipo de residência inválido!")
fimescolha
fimalgoritmo
ex37.alg
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
ex38.alg
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
ex39.alg
algoritmo "ex39"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações 
var
idade, grupo: inteiro
nome, grupoRisco: caractere
inicio
// Seção de Comandos 
escreva("Digite o nome: ")
leia(nome)
escreva("Digite a idade: ")
leia(idade)
escreval("Informe o Grupo de risco: ")
escreval("(B)aixo / (M)édio / (A)lto ")
leia(grupoRisco)
se (idade >= 17) e (idade <= 70) entao
se idade <= 20 entao
 escolha grupoRisco
 caso "B"
 grupo <- 1
 caso "M"
 grupo <- 2
 caso "A"
 grupo <- 3
 fimescolha
senao
 se idade <= 24 entao
 escolha grupoRisco
 caso "B"
 grupo <- 2
 caso "M"
 grupo <- 3
 caso "A"
 grupo <- 4
 fimescolha
 senao
 se idade <= 34 entao
 escolha grupoRisco
 caso "B"
 grupo <- 3
 caso "M"
 grupo <- 4
 caso "A"
 grupo <- 5
 fimescolha
 senao
 se idade <= 64 entao
 escolha grupoRisco
 caso "B"
 grupo <- 4
 caso "M"
 grupo <- 5
 caso "A"
 grupo <- 6
 fimescolha
 senao
 escolha grupoRisco
 caso "B"
 grupo <- 2
 caso "M"
 grupo <- 3
 caso "A"
 grupo <- 4
 fimescolha
 fimse
 fimse
 fimse
fimse
senao
 escreval("Idade fora da cobertura!")
fimse
escreval("Nome: ",nome)
escreval("Idade: ",idade)
escreval("Categoria: ",grupo)
fimalgoritmo
ex40.alg
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

Teste o Premium para desbloquear

Aproveite todos os benefícios por 3 dias sem pagar! 😉
Já tem cadastro?

Outros materiais