Algoritimos

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

...