Algoritimos
Exames: Algoritimos. Pesquise 862.000+ trabalhos acadêmicosPor: • 6/10/2014 • 3.077 Palavras (13 Páginas) • 1.215 Visualizações
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
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
...