EXERCICIOS COMPLEMENTARES

Prévia do material em texto

Lista de Exercícios Complementares
1.Leia um número inteiro e escreva seu sucessor e antecessor
Programa sucessor-antecessor
var
n1, n2 INTEIRO
inicio
    LER(n1)
    n1 = n1-1
    n2 = n1+1
    escreva ("seu antecessor é" n1)
    escreva ("seu sucessor é" n2)
fim
2.Leia dois números e escreva o dividendo, divisor, quociente e resto.
Algoritmo "divisão"
Var
primeiroValor, segundoValor, divisor, dividendo, resto :inteiro
quociente :real
Inicio
primeiroValor <- primeiroValor
leia(primeiroValor)
segundoValor <- segundoValor
leia(segundoValor)
dividendo <- primeiroValor
divisor <- segundoValor
quociente <- dividendo/divisor
resto <- dividendo%divisor
escreva("O dividendo é:")
escreva(dividendo)
escreva("O divisor é:")
escreva(divisor)
escreva("O quociente é:")
escreva(quociente)
escreva("O resto da divisão é:")
escreva(resto)
Fimalgoritmo
3.Calcule a dívida do cheque especial ao ser quitada 6 meses depois a uma taxa de 5% de juros. O valor do empréstimo deve ser informado.
	
Algoritmo "divida de cheque"
Var
 emprestimo, divida, porcentagem, p : real
Inicio
 porcentagem <- 5
 Escreva ("Digite o valor do empréstimo:")
 leia (emprestimo)
 p <- (emprestimo/100)*porcentagem
 divida <- emprestimo+(6*p)
 Escreva (divida)
Fimalgoritmo
4.Dada a base e a altura de um retângulo, calcule o perímetro, a área e a diagonal.
Programa alt-retangulo
var
base, altura, perimetro, area, diagonal REAL
inicio
 escreva(“Informe o valor da base do retângulo :”)
 leia(base)
 escreva ("Informe o valor da altura do retângulo:")
 escreva(altura)
	perimetro = (2*altura) + (2*base)
	area = altura*base
	diagonal = mat.raiz(base*base) + (altura*altura),2.0)
 escreva(“O perímetro do retângulo é :“, perímetro)
 escreva(“A área do retângulo é :”, área)
 escreva(“A diagonal do retângulo é :”, diagonal)
fim
5.Dada o lado de um quadrado, calcule o perímetro, a área e a diagonal.
Programa quadrado
var
lado, perimetro, area, diagonal REAL
inicio
 escreva("Informe o valor do lado do quadrado:") 
 leia(lado)
	perímetro = lado*4
area = lado*lado
diagonal = lado*(mat.raiz(2.0, 2.0))
 escreva ("O perímetro do quadrado é: " P) 
 escreva ("A área do quadrado é: " A) 
 escreva ("A diagonal do quadrado é: " D)
fim
6.Dado o raio de um círculo, calcule o perímetro e a área.
Programa raiocirculo
Var
raio, ,perímetro, área, pi REAL
inicio
 escreva ("Informe o valor do raio do círculo:") 
 leia (raio)
	pi = 3.1416 
perimetro = 2*pi*raio
area = pi*(raio*raio)
 escreva ("O perímetro do círculo é: " perimetro) 
 escreva ("A área do círculo é: " area)
fim
7.Dados os três lados de um paralelepípedo, calcule o perímetro, a área, o volume e a diagonal.
Programa paralelepípedo 
var
ladoA, ladoB, ladoC, perimetro, area, volume, diagonal REAL
inicio
escreva("Informe o valor do primeiro lado do paralelepípedo:") leia(ladoA) 
escreva("Informe o valor do segundo lado do paralelepípedo:") 
leia(ladoB) 
escreva("Informe o valor do terceiro lado do paralelepípedo:") leia(ladoC)
 perimetro = 4*(ladoA + ladoB + ladoC) 
 area = 2*(ladoA*ladoB + ladoB*ladoC + ladoC*ladoA) 
 volume = ladoA * ladoB * ladoC 
 diagonal = mat.raiz (ladoA*ladoA + ladoB*ladoB + ladoC*ladoC, 2.0)
escreva("Perímetro: ", perimetro)
escreva(“Área: ", area)
escreva(”Volume: ", volume)
escreva(“Diagonal: ", diagonal)
fim
8. Dados dois catetos de um triangulo retângulo, calcule a hipotenusa.
Programa catetos-triangulo
var
cat1, cat2, hip REAL
inicio
escreva("Informe o valor de um cateto do triângulo retângulo:") leia(cat1) 
escreva("Informe o valor do outro cateto do triângulo retângulo:") leia(cat2)
 hip = mat.raiz((cat1*cat1) + (cat2*cat2),2.0)
escreva("A hipotenusa do triângulo retângulo é: " hip)
fim
9.Dada a razão de uma PA e seu primeiro termo, calcular o 20º termo.
Programa razãopa
Var
termo20, razao, termo1 REAL
inicio
 escreva("Informe o valor do primeiro termo da PA:")
 leia(termo1) 
 escreva("Informe o valor da razão da PA:") 
 leia(razao)
 termo20 = termo1 + (20-1)*razão
 escreva("O 20º termo desta PA é: " + termo20)
fim
10.Dada a razão de uma PG e seu primeiro termo, calcular o 20º termo.
Programa razaopg
Var
A1, q, An REAL
Inicio
 escreva("Informe o valor do primeiro termo da PG:")
 leia(A1) 
 escreva("Informe o valor da razão da PG:")
 leia(q)
 An = A1 * mat.potencia(q,19.0)
 escreva("\nO 20º termo desta PG é: " + An)
fim
11.Dado um horário, calcule quantos minutos e segundos transcorreram desde o início do dia.
Programa calc-horaio
Var
inteiro horas, minutos, segundos
real MIN, SEG
inicio
 escreva("Informe o horário:") 
 escreva("Horas: ") 
 leia(horas) 
 escreva("Minutos: ") 
 leia(minutos) 
 escreva("Segundos: ")
 leia(segundos)
 SEG = (3600.0*horas) + (60.0*minutos) + segundos 
 MIN = SEG/60.0
 escreva("Passaram-se ",MIN," minutos e ",SEG," segundos.")
fim
12.Dado o valor do salário-mínimo e um determinado salário, calcule quantos salários-mínimos estão contidos nele.
Programa sal-minimo
Var
salariomin, salario, quant REAL
inicio
escreva("Informe o valor do salário mínimo:") 
leia(salariomin) 
escreva("Informe o valor de um salário:") 
leia(salario)
 quant = salario/salariomin
escreva("Estão contidos ", quant, " salários mínimos dentro do salário informado.")
fim
13.Dado um número, informar se ele é divisível por 3 e por 6.
Algoritmo "numero divisivel por 6 e 3"
Var
 n1 : inteiro
Inicio
 escreva("Digite um numero: ")
 leia(n1)
 se (((n1%6)=0) e ((n1%3)=0)) entao
 escreva("divisivel por 3 e por 6")
 senao
 escreva("nao divisivel por 3 e por 6")
 fimse
Fimalgoritmo
14.Dada uma idade, informar se ela está compreendida no intervalo de 10 a 18 anos.
Programa intervaloidade.alg
Var
Idade INTEIRO
 leia(idade)
 Se idade >= 10 e idade <=18
 Entao escreva (“esta dentro do intervalo”)
 Senão escreva (“não está dentro do intervalo”)
 
 fim-se 
 fim-se
fim
15.Dada uma sigla de estado, informar o nome dado a quem nasce ali (p.ex. paulista, mineiro, gaúcho, carioca etc).
Algoritmo nome-dado
Var
Sigla: caractere 
Inicio 
Escreva (“digite a sigla de um estado do Brasil:”)
Leia (estado)
Escolha estado
caso "pr"
escreval ("paranaense")
caso "rs"
escreval ("gaucho")
caso "sc"
escreval ("catarinense")
caso "sp"
escreval ("paulista")
caso "rj"
escreval ("carioca")
caso "es"
escreval ("capixaba")
caso "mg"
escreval ("mineiro")
caso "am"
escreval ("amazonense")
caso "rr"
escreval ("norte-rio-grandense")
caso "ap"
escreval ("amapaense")
caso "pa"
escreval ("santareno")
caso "to"
escreval ("tocantinense")
caso "ro"
escreval ("rondoniano")
caso "ac"
escreval ("acriano")
caso "ma"
escreval ("maranhense")
caso "pi"
escreval ("piauiense")
caso "ce"
escreval ("cearense")
caso "rn"
escreval ("potiguar")
caso "pe"
escreval ("pernambucano")
caso "pb"
escreval ("paraibano")
caso "se"
escreval ("sergipano")
caso "al"
escreval ("alagoano")
caso "ba"
escreval ("baiano")
caso "mt"
escreval ("matogrossense")
caso "ms"
escreval ("sul-mato-grossense")
caso "go"
escreval ("goiano")
outrocaso
escreval ("sigla invalida")
fimescolha
Fimalgoritmo
16.Dadas 3 pontuações de finalistas em um campeonato, informe qual a pontuação que ficou em primeiro, segundo e terceiro lugar.
Algoritmo "pontuacao"
Var
a, b, c : inteiro
Inicio
 escreval("digite a pontuação")
 leia (a)
 escreval("digite outra pontuação")
 leia (b)
 escreval("digite outra pontuação")
 leia (c)
 se (a > b) e (b > c)entao
 escreval("Primeiro lugar com ",a,"pontos")
 escreval("Segundo lugar com ",b,"pontos")
 escreval ("Terceiro lugar com ",c,"pontos")
 se (b > a) e (a > c)entao
 escreval("Primeiro lugar com ",b,"pontos")
 escreval("Segundo lugar com ",a,"pontos")
 escreval ("Terceiro lugar com ",c,"pontos")
 se (c > b) e(b > a)entao
 escreval("Primeiro lugar com ",c,"pontos")
 escreval("Segundo lugar com ",b,"pontos")
 escreval ("Terceiro lugarcom ",a,"pontos")
 fimse
 fimse
 fimse
 
 
Fimalgoritmo
17.Dado um estado, informar de qual região ele pertence.
Algoritmo "estado-região"
Var
valor: inteiro
Inicio
Ler(estado)
 Região Norte - 7 estados
 escreval("1 - Amazonas (AM) = Manaus")
 escreval("2 - Roraima (RR) = Boa Vista")
 escreval("3 - Amapá (AP) = Macapá")
 escreval("4 - Pará (PA) = Belém")
 escreval("5 - Tocantins (TO) = Palmas")
 escreval("6 - Rondônia (RO) = Porto Velho")
 escreval("7 - Acre (AC) = Rio Branco")
 
 Região Nordeste - 9 estados
 escreval("8 - Maranhão (MA) = São Luís")
 escreval("9 - Piauí (PI) = Teresina")
 escreval("10 - Ceará (CE) = Fortaleza")
 escreval("11 - Rio Grande do Norte (RN) = Natal")
 escreval("12 - Pernambuco (PE) = Recife")
 escreval("13 - Paraíba (PB) = João Pessoa")
 escreval("14 - Sergipe (SE) = Aracaju")
 escreval("15 - Alagoas (AL) = Maceió")
 escreval("16 - Bahia (BA) = Salvador")
 
 Região Centro-Oeste - 3 estados
 
 escreval("17 - Mato Grosso (MT) = Cuiabá")
 escreval("18 - Mato Grosso do Sul (MS) = Campo Grande")
 escreval("19 - Goiás (GO) = Goiânia")
 
 Região Sudeste - 4 estado
 escreval("20 - São Paulo (SP) = São Paulo")
 escreval("21 - Rio de Janeiro (RJ) = Rio de Janeiro")
 escreval("22 - Espírito Santo (ES) = Vitória")
 escreval("23 - Minas Gerais (MG) = Belo Horizonte")
 
 Região Sul – 3 estados
 escreval("24 - Paraná (PR) = Curitiba")
 escreval("25 - Rio Grande do Sul (RS) = Porto Alegre")
 escreval("26 - Santa Catarina (SC) = Florianópolis")
 
 escreval("Digite o valor referente ao seu estado")
 leia(valor)
 escolha valor
 faca caso
 caso 1,2,3,4,5,6,7
 escreval("ESTE ESTADO PERTENCE A REGIÃO NORTE")
 caso 8,9,10,11,12,13,14,15,16
 escreval("ESTE ESTADO PERTENCE A REGIÃO NORDESTE")
 caso 17,18,19
 escreval("ESTE ESTADO PERTENCE A REGIÃO CENTRO-OESTE")
 caso 20,21,22,23
 escreval("ESTE ESTADO PERTENCE A REGIÃO SUDESTE")
 caso 24,25,26
 escreval("ESTE ESTADO PERTENCE A REGIÃO SUL")
 outrocaso
 escreval("ESTADO INEXISTENTE")
 fimescolha
 
 
Fimalgoritmo
18. Imprima uma tabela de conversão de polegadas para centímetros, de 1 a 20. Considere que Polegada = Centímetro * 2,54.
Algoritmo "cm-polegada"
Var
cent: inteiro
pol: real
Inicio
 cent <- 1
 para cent de 1 ate 20 faca
 escreval(cent, "Cm = " , cent*2.54, "Pol")
 cent <- cent +1
 fimpara
Fimalgoritmo
19. Imprima uma PA, onde são fornecidos o primeiro termo, a razão e a quantidade de termos desejada.
Programa “pa-termo-razao”
{
funcao inicio()
{
Var
inteiro termo, razao, quantidade
escreva("Entre com o primeiro termo da PA: ")
leia(termo)
escreva("Entre com a razão da PA: ")
leia(razao)
escreva("Entre com a quantidade de termos desejada: ")
leia(quantidade)
enquanto(quantidade>0){ //O enquanto será repetido até que quantidade atinja 0
se(quantidade-1==0){ //Verificará se já está conferindo o último termo
escreva(termo, ".\n") //Caso esteja, ele imprimirá o último termo e pulará uma linha
}senao{ //Caso não esteja no último termo
escreva(termo, " ") //Será impresso apenas um espaço após o termo
}
termo = termo + razão //Encontra o novo termo da PA
quantidade --
}
}
}
20. Dado um limite inferior e superior, calcule a soma de todos os números pares contidos nesse intervalo.
Programa “soma-intervalo-pares”
Var
numero1, numero2, i, soma = 0 INTEIRO
inicio
escreva("Entre com um número inteiro: ")
leia(numero1)
escreva("Agora, entre com outro número inteiro e maior que o anterior: ")
leia(numero2)
 enquanto(numero2 <= numero1)
escreva("Desculpe, mas o número deve ser inteiro e maior que o anterior:")
leia(numero2)
i = numero1 + 1
 enquanto(i < numero2)
se(i % 2 == 0)
soma = soma + i 
i++
escreva("A soma dos pares entre ", numero1, " e ", numero2, " é ", soma, ".")
 fimenquanto
fim
21. A série de RICCI difere da série de FIBONACCI porque os dois primeiros termos podem ser definidos pelo usuário. Imprima os n primeiros termos da série de RICCI.
algoritmo "Série de Ricci"
var
 n1, n2, n, qtde, prox: inteiro
inicio
 leia(n1, n2, n)
 escreval(n1)
 escreval(n2)
 qtde<-2
 enquanto (qtde<n) faca
 prox<-n1+n2
 escreval(prox)
 n1<-n2
 n2<-prox
 qtde<-qtde+1
 fimenquanto
fim
22. A série de FETUCCINE difere da série de RICCI porque o termo de posição par é resultado da subtração dos dois anteriores. Os termos ímpares continuam sendo o resultado da soma dos dois elementos anteriores. Imprima os n primeiros termos da série de FETUCCINE.
Programa “termos-de-impar”
Var
n,x=1,y=1,valor INTEIRO
inicio
escreva( "Entre com o número de termos da série: " )
leia(n)
escreva(x, "\n" )
escreva(y, "\n" )
para(inteiro i=3;i<=n;i++)
se(i%2==0)
valor=x+y
senao
valor=y-x
escreva(valor, "\n" )
x=y
y=valor
fimse
fim
23. Dado um limite inferior e superior, imprima todos os números primos contidos nesse intervalo.
programa
{
funcao inicio()
{
inteiro numero1, numero2, i, j, divisores = 0
escreva("Entre com um número inteiro: ")
leia(numero1)
escreva("Agora, entre com outro número inteiro e maior que o anterior: ")
leia(numero2)
enquanto(numero2 <= numero1){
escreva("Desculpe, mas o número deve ser inteiro e maior que o anterior: ")
leia(numero2)
}
i = numero1 + 1
enquanto(i < numero2){
j = i - 1
enquanto(j > 0){
se(i % j == 0){
	divisores++
}
j--
}
se(divisores == 1){
escreva(i,"-")
}
divisores = 0
i++
}
}
}
24. Dado um número, imprimir a tabuada multiplicativa deste.
Algoritmo "tab-1-num"
Var
n, r, i: inteiro
Inicio
 escreva("digite um número de 1 a 10 :")
 leia(n)
 para i<-1 ate 10 faca
 r<-n*i
 escreval(n, " x", i, " =", r)
 i<-i*1
 fimpara
Fim