Baixe o app para aproveitar ainda mais
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
Compartilhar