Índice dos exercícios

5/13/2018 Índice dos exercícios - slidepdf.com

http://slidepdf.com/reader/full/indice-dos-exercicios 1/8

algoritmo "Exercício 01 de 5_AULA_9"

// Função : Escreva um algoritmo para escrever 5 vezes a palavra PITAGORAS.

// Autor : Maurício D. Costa

// Data : 02/10/2010

var

cont: inteiro

inicio

escreval (" - Exercício n° 01 -")

escreval (" ")para cont de 1 ate 5 passo 1 faca

escreval ("Pitágoras (",cont,"°)")

fimpara

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Escreva um algoritmo que exibe os números ímpares de 1 a 1000.


// Data : 02/10/2010

var

cont: inteiroinicio


escreval (" ")

para cont de 1 ate 1000 passo 2 faca

escreval (cont)

fimpara

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Escreva um algoritmo que lê 5 números e escreve todos os que

// forem positivos.// Autor : Maurício D. Costa

// Data : 02/10/2010

var

cont,num:inteiro

inicio


escreval (" ")

para cont de 1 ate 5 passo 1 faca

escreva ("Informe o",cont,"° número: ")

leia (num)

se (num>0) entaoescreval (" ",num," é positivo.")

fimse

fimpara

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Escreva um algoritmo que lê um número N e escreve todos os

// números de 1 a N.


// Data : 02/10/2010



var

num,cont:inteiro

inicio


escreval (" ")

escreva ("Informe um número: ")

leia (num)

para cont de 1 ate num passo 1 faca

escreval (cont)fimpara

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Escreva um Algoritmo que lê diversos números positivos

// e escreve, para cada um, sua raiz quadrada (^0.5).


// Data : 02/10/2010

var

num:real

op:caracterinicio


escreval (" ")

repita

escreva ("Informe um número para calcular sua raíz quadrada: ")

leia (num)

se (num >=0) entao

escreval ("Raíz quadrada de",num,":",(num^0.5))

senao

escreval ("Não é possível calcular a raíz de um número negativo.")

fimseescreval (" ")

escreva ("Deseja continuar? ('S' ou 'N'): ")

leia (op)

escreval (" ")

ate op <> "s"

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Escreva um algoritmo que escreve os números pares de

// 10 a 2.

// Autor : Maurício D. Costa// Data : 02/10/2010

var

cont,num:inteiro

inicio


cont<-0

num<-10

escreval (" ")

repita

escreval (num-cont)



cont<-cont+2

ate cont = 10

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Faça um algoritmo que lê 10 números e obtenha a soma e a média

// destes números, o maior e o menor número. ("MenuNumeros)


// Data : 02/10/2010var

cont:inteiro

num,somat,media,maior,menor:real

inicio


escreval (" ")

cont<-1

somat<-0

maior<--9999999999

menor<-9999999999

repitaescreva ("Informe o",cont,"° número: ")

leia (num)

se (num>maior)entao

maior<-num

fimse

se (num<menor)entao

menor<-num

fimse

somat<-somat+num

cont<-cont+1

ate cont = 11escreval (" ")

media<-somat/10

escreval ("Soma total:",somat)

escreval ("Média: ",media)

escreval ("Número maior:",maior)

escreval ("Número menor:",menor)

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Faça um algoritmo que solicite números inteiros até que um

// número ímpar seja digitado. O Algoritmo deverá informar ao// final, quantos números pares foram informados. ("pares)


// Data : 02/10/2010

var

num,cont:inteiro

inicio


escreval (" ")

cont<-0

repita



escreva ("Informe um número inteiro: ")

leia (num)

se (num mod 2) = 0 entao

cont<-cont+1

fimse

escreval (" ")

ate (num mod 2)<>0

escreval ("Quantidade de números pares informados:",cont,".")

fimalgoritmo----------------------------------------------------------------------------------------------------------------------------------------------

algoritmo "Exercício 01 de Apostila Algoritmo - Unid5"

// Função : Uma empresa deseja fazer um levantamento do seu estoque. Para isto

// possui para cada tipo de produto, seu nome, valor unitário e sua

// quantidade em estoque. A empresa deseja saber o Valor Contábil em

// estoque de cada produto, quantos tipos de produtos existem em

// estoque e a quantidade total de todos os produtos e Total Contábil

// Geral do estoque. A digitação terminará quando o nome do produto

// for igual a FIM.


// Data : 02/10/2010var

cont,quant_est,total_prod: inteiro

valor_unit,valor_cont,valor_cont_total: real

nome: caracter

inicio


escreval (" ")

cont<-1

total_prod<-0

valor_cont_total<-0

repitaescreval ("Produto de número",cont)

escreva ("Informe o nome: ")

leia (nome)

se nome <> "fim" entao

escreva ("Informe o valor unitário: ")

leia (valor_unit)

escreva ("Informe a quantidade em estoque: ")

leia (quant_est)

valor_cont<-valor_unit*quant_est

total_prod<-total_prod+quant_est

valor_cont_total<-valor_cont_total+valor_contescreval (" ")

escreval ("Valor contábil do produto (",cont," ):",valor_cont)

escreval (" ")

cont<-cont+1

fimse

ate nome = "fim"

escreval (" ")

escreval ("Quantidade de produtos em estoque:",(cont-1))

escreval ("Total de produtos em estoque:",total_prod)

escreval ("Valor contábil geral do estoque:",valor_cont_total)



fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Um comerciante deseja pagar todas as suas contas do dia. Faça um

// algoritmo que solicite o valor a ser pago e a Taxa de Juros, caso

// a conta esteja em atraso. Calcule o Total dos valores de multa e o

// valor total a ser pago. O Algoritmo deverá também solicitar quantas

// contas serão pagas no dia. Informe também o total de contas em

// atraso e o total de contas pagas em dia. Atenção que não há// possibilidade de não haver contas a pagar, ou seja, haverá no

// mínimo uma conta a ser paga no dia.


// Data : 02/10/2010

var

: inteiro

inicio


escreval (" ")

cont<-1

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------


// Função : Calcule o imposto de renda de um grupo de contribuintes

// considerando que os dados de cada contribuinte são : número de CPF,

// número de dependentes e renda mensal. Para cada contribuinte será

// feito um desconto de 5% de salário mínimo por dependente. Os

// valores da alíquota para cálculo do imposto são :

// · Até 2 Salários Mínimos : Isento;

// · 2,1 até 3 Salários Mínimos : 10%;

// · 3,1 até 5 Salários Mínimos : 15%;// · 5,1 até 7 Salários Mínimos : 20%;

// · Acima de 7,1 Salários Mínimos : 25%.

// O último valor que não será considerado, terá o CPF igual a zero.

// Deve ser fornecido o valor atual do salário mínimo.


// Data : 02/10/2010

var

sal_min,ren_men,imp_ren: real

num_dep: inteiro

cpf: caracter

inicioescreval (" - Exercício n° 03 -")

escreval (" ")

escreva ("Informe o valor do salário mínimo: ")

leia (sal_min)

repita

escreva ("Informe o n° do CPF: ")

leia (cpf)

se (cpf <> "0") entao

escreva ("Informe o n° de dependentes: ")

leia (num_dep)



escreva ("Informe a renda mensal: ")

leia (ren_men)

se (ren_men < 0) entao

escreval ("Valor incorreto para renda mensal.")

senao

se (ren_men >= 0) e (ren_men <= sal_min*2) entao

imp_ren<-0

senao

se (ren_men > sal_min*2) e (ren_men <= sal_min*3) entaoimp_ren<-(ren_men*0.15)-(num_dep*0.05*ren_men)

senao

se (ren_men > sal_min*3) e (ren_men <= sal_min*5) entao

imp_ren<-(ren_men*0.15)-(num_dep*0.05*ren_men)

senao

se (ren_men > sal_min*5) e (ren_men <= sal_min*7) entao


senao


fimse

fimsefimse

fimse

fimse

se (ren_men >= 0) entao

escreval ("Valor Imposto: ",imp_ren)

fimse

fimse

escreval (" ")

ate cpf = "0"

fimalgoritmo

----------------------------------------------------------------------------------------------------------------------------------------------algoritmo "Exercício 04 de Apostila Algoritmo - Unid5"

// Função : Faça um programa que apresente o menu de opções a seguir, permita

// ao usuário escolher a opção desejada, receba os dados necessários

// para executar a operação e mostre o resultado. Verificar a

// possibilidade inválida e não se preocupar com restrições do tipo

// salário inválido. Menu de Opções:

// 1. Imposto 2. Novo salário 3. Classificação 4. Finalizar o programa

// Digite a opção desejada

// Opção 1: receber o salário de um funcionário, calcular e mostrar o

// valor do imposto usando as regras da tabela 1.

// Opção 2: receber o salário de um funcionário, calcular e mostrar// valor do aumento usando as regras da tabela 1.

// Opção 3: receber o salário de um funcionário e mostrar sua

// classificação usando a tabela 3.

// Salários % de Imposto

// Menor que R$ 600,00 10%

// De R$ 600,00 a R$ 950,00 15%

// Acima de R$ 950,00 20%

// Salários Aumento

// Maiores que R$ 2.500,00 R$ 125,00

// De R$ 850,00 (inclusive) a R$ 2.500,00(inclusive) R$ 150,00



// De R$ 550,00 (inclusive) a R$ 850,00 R$ 175,00

// Menores que R$ 550,00 R$ 200,00

// Salários Classificação

// Até R$ 600,00 (inclusive) Mal remunerado

// Maiores que R$ 600,00 Bem remunerado


// Data : 02/10/2010

var

opc: inteirosal,imp,aum: real

inicio


escreval (" ")

opc<-1

enquanto (opc = 1) ou (opc = 2) ou (opc = 3) ou (opc <>4) faca

escreval (" (1) Imposto (2) Novo Salário (3) Classificação (4) Finalizar o programa")

escreva ("Informe a opção desejada: ")

leia (opc)

escreval (" ")

escolha opccaso 1

escreva ("Informe o salário do funcionário: ")

leia (sal)

se (sal > 0) e (sal < 600) entao

imp<-sal*0.1

senao

se (sal >= 600) e (sal <= 950) entao

imp<-sal*0.15

senao

se (sal > 950) entao

imp<-sal*0.20senao

escreval ("Valor inválido ou nulo para salário.")

fimse

fimse

fimse

se (sal > 0) entao

escreval ("Valor do imposto: R$",imp)

fimse

caso 2


leia (sal)se (sal > 2500) entao

aum<-125

senao

se (sal >= 850) e (sal <= 2500) entao

aum<-150

senao

se (sal >= 550) e (sal < 850) entao

aum<-175

senao

se (sal > 0) e (sal < 550) entao



aum<-200

senao

escreval ("Valor inválido ou nulo para salário.")

fimse

fimse

fimse

fimse

se (sal > 0) entao

escreval ("Valor do aumento: R$",aum)escreval ("Valor do salário com aumento: R$",(sal+aum))

fimse

caso 3


leia (sal)

se (sal > 0) e (sal <= 600) entao

escreval ("Classificação: MAL REMUNERADO.")

senao

se (sal > 600) entao

escreval ("Classificação: BEM REMUNERADO.")

senaoescreval ("Valor inválido ou nulo para salário.")

fimse

fimse

caso 4

escreval ("Programa finalizado.")

outrocaso

escreval ("Opção inválida.")

fimescolha

escreval (" ")

fimenquanto

fimalgoritmo

Índice dos exercícios

Documents

Transcript of Índice dos exercícios