Algoritmos I

Prévia do material em texto

1. 
Algoritmo "exercicio 1" 
Var 
A, B, C: inteiro 
Inicio 
A <- 10 
B <- 20 
 
C <- A 
A <- B 
B <- C 
 
Escreva(A, " " ,B) 
 
Fimalgoritmo 
. 
2. 
Algoritmo "exercicio 2" 
Var 
A, b, h: inteiro 
Inicio 
Escreva("Coloque a altura: ") 
leia(h) 
Escreva("Coloque a base: ") 
leia(b) 
 
A <- b * h 
Escreva("Area ", a) 
 
Fimalgoritmo 
 
3. 
Algoritmo "exercicio 3" 
Var 
A, B, C, X, Y, Z: inteiro 
Inicio 
 
A <- 10 
B <- 20 
Escreval(B) 
B <- 5 
Escreval(A, B) 
 
A <- 30 
B <- 20 
C <- A + B 
escreval(C) 
B <- 10 
escreval(B, C) 
C <- A + B 
escreval(A, B, C) 
 
A <- 10 
B <- 20 
C <- A 
B <- C 
A <- B 
Escreval(A, B, C) 
 
A <- 10 
B <- A + 1 
A <- B + 1 
B <- A + 1 
Escreval(A) 
A <- B + 1 
escreval(A, B) 
 
A <- 10 
B <- 5 
C <- A + B 
B <- 20 
A <- 10 
Escreval(A, B, C) 
 
X <- 1 
Y <- 2 
Z <- Y - X 
Escreval(Z) 
X <- 5 
Y <- X + Z 
Escreval(X, Y, Z) 
 
 
Fimalgoritmo 
 
4. 
Algoritmo "exercicio 4" 
Var 
chipa, pao: inteiro 
lucro: real 
Inicio 
 
Escreva("Quantas chipas foram vendidas? ") 
leia(chipa) 
Escreva("Quantos pães foram vendidos? ") 
leia(pao) 
lucro <- (pao * 0.13) + (chipa * 3.50) 
escreval("Lucro total: ", lucro) 
 
Fimalgoritmo 
 
5. 
Algoritmo "exercicio 5" 
Var 
// Seção de Declarações das variáveis 
n: inteiro 
c: inteiro 
d: inteiro 
u: inteiro 
Inicio 
escreva ("Introduza um número com 3 algarismos: ") 
leia (n) 
c <- (n div 100) mod 10 
d <- n mod 100 
d <- d div 10 
u <- n mod 10 
// centena 
escreva © 
// dezena 
escreva (d) 
// unidade 
escreva (u) 
Fimalgoritmo 
- 
 
6. 
 
Algoritmo "exercicio 6" 
Var 
// Seção de Declarações das variáveis 
n: inteiro 
h: inteiro 
m: inteiro 
s: inteiro 
Inicio 
escreva ("Introduza o tempo em segundos: ") 
leia (n) 
 
h <- (n div (60 * 60)); 
m <- ((n - (h * 60 * 60)) div 60) 
s <- (n - (h * 60 * 60) - (m * 60)) 
 
Escreva("Hora(s) ", h, ", minuto(s) ", m, ", Segundo(s) ", s) 
Fimalgoritmo 
7. 
Algoritmo "exercicio 7" 
Var 
// Seção de Declarações das variáveis 
d: inteiro 
m: inteiro 
a: inteiro 
resultado: inteiro 
Inicio 
escreva ("Digite sua idade (anos): ") 
leia (a) 
escreva ("Digite sua idade (meses): ") 
leia (m) 
escreva ("Digite sua idade (dias): ") 
leia (d) 
 
resultado <- (a * 365) + (m * 30) + d 
 
Escreva("Sua idade em dias é ", resultado) 
Fimalgoritmo 
 
8. 
Algoritmo "exercicio 8" 
Var 
// Seção de Declarações das variáveis 
dinheiro, valorC, litros: real 
Inicio 
escreva ("Quantos deseja coloca (R$): ") 
leia (dinheiro) 
escreva ("Valor do combustivel (R$): ") 
leia (valorC) 
 
litros <- dinheiro div valorC 
 
Escreva("Você consegue ", litros, " litros") 
Fimalgoritmo 
9. 
Algoritmo "exercicio 9" 
Var 
pesoPrato, pesoTotal: real 
Inicio 
escreval("Escreva o peso do prato (kg): ") 
leia(pesoPrato) 
escreval("Escreva o peso da refeição total (kg): ") 
leia(pesoTotal) 
 
escreva("Valor a pagar ", (pesoTotal - pesoPrato) * 20) 
 
Fimalgoritmo 
- 
10. 
Algoritmo "exercicio 10" 
Var 
d, m: inteiro 
Inicio 
escreva("Escreva o dia: ") 
leia(d) 
escreva("Escreva o mes: ") 
leia(m) 
 
escreva("Já se passaram ", (m-1) * 30 + d, " dias") 
 
Fimalgoritmo 
- 
11. 
Algoritmo "exercicio 11" 
Var 
n1, n2, n3: real 
Inicio 
escreval("Escreva as notas e dê enter entre elas: ") 
leia(n1, n2, n3) 
n1 <- n1 * 2 
n2 <- n2 * 3 
n3 <- n3 * 4 
 
escreva("Média do aluno: ", (n1 + n2 + n3) div (2 + 3 + 4)) 
 
Fimalgoritmo 
12. 
Algoritmo "exercicio 12" 
Var 
p, m, g: inteiro 
Inicio 
escreval("Escreva na sequencia pequena, média, grande e dê enter entre elas: ") 
leia(p, m, g) 
 
escreva("Valor arrecadado: ", (p * 15) + (m * 20) + (g + 25)) 
 
Fimalgoritmo 
13. 
Algoritmo "exercicio 13" 
Var 
el, b, n, v: inteiro 
Inicio 
Escreva("Digite a quantidade de eleitores: ") 
leia(el) 
Escreva(" Digite a quantidade de votos em branco: ") 
leia(b) 
Escreva(" Digite a quantidade de votos nulos: ") 
leia(n) 
Escreva(" Digite a quantidade de votos validos: ") 
leia(v) 
 
escreval("Votos em branco (%): ", (b * 100) div el, "%") 
escreval("Votos nulos (%): ", (n * 100) div el, "%") 
escreval("Votos válidos (%): ", (v * 100) div el, "%") 
escreval("Não eleja político corrupto") 
Fimalgoritmo 
14. 
Algoritmo "exercicio 14" 
Var 
x1,y1, x2,y2:inteiro 
d:real 
Inicio 
Escreval("Informações do ponto 1: ") 
Escreva(" Digite posição X: ") 
leia(x1) 
Escreva(" Digite a posição Y: ") 
leia(y1) 
Escreval("Informações do ponto 2: ") 
Escreva(" Digite posição X: ") 
leia(x2) 
Escreva(" Digite a posição Y: ") 
leia(y2) 
 
d <- raizq(((x1 - x2) ^ 2) + ((y1 - y2) ^ 2)) 
 
Escreval("Distância ", d) 
Fimalgoritmo 
15. 
Algoritmo "exercicio 15" 
Var 
raio: real 
Inicio 
escreva("Digite o raio: ") 
leia(raio) 
 
escreva("Area da pizza ", 3.14 * (raio ^ 2)) 
 
Fimalgoritmo 
16. 
 
17. 
Algoritmo "exercicio 17" 
Var 
quantidade: inteiro 
Inicio 
escreva("Quantidade de sanduíche: ") 
leia(quantidade) 
 
escreval("Queijo necessário (kg)", (50 * quantidade) div 1000) 
escreval("Presunto necessário (kg)", (50 * quantidade) div 1000) 
escreval("Carne necessária (kg)", (100 * quantidade) div 1000) 
 
Fimalgoritmo 
18. 
Algoritmo "exercicio 18" 
Var 
hora, extra, bruto: inteiro 
Inicio 
escreva("Escreva a hora de trabalho: ") 
leia(hora) 
escreva("Escreva a hora extra de trabalho: ") 
leia(extra) 
 
bruto <- (hora * 10) + (extra * 15) 
Escreval("Salario bruto, ", bruto) 
Escreval("Salario líquido, ", bruto - ((10 / 100) * bruto)) 
Fimalgoritmo 
19. 
Algoritmo "exercicio 19" 
Var 
frangos: inteiro 
Inicio 
escreva("Quantidade de frangos: ") 
leia(frangos) 
 
Escreva("Gasto total: ", (4 * frangos) + (3.50 * frangos * 2)) 
Fimalgoritmo 
20. 
Algoritmo "exercicio 20" 
Var 
m1, m2, m3: inteiro 
total: real 
Inicio 
escreva("Quantidade de 350ml: ") 
leia(m1) 
escreva("Quantidade de 600ml: ") 
leia(m2) 
escreva("Quantidade de 2l: ") 
leia(m3) 
 
 
total <- (0.35 * m1) + (0.6 * m1) + (2 * m3) 
 
Escreva("Litros de refrigerantes comprado: ", total, "litros") 
 
Fimalgoritmo 
- 
21. 
Algoritmo "exercicio 21" 
Var 
m5, m10, m25, m50, m1: inteiro 
total: real 
Inicio 
escreval("Escreva respectivamente a quatidade de moedas:") 
escreval("5 centavos, 10 centavos, 25 centavos, 50 centavos e 1 real.") 
escreval("Dê enter entre cada quantidade:") 
leia(m5, m10, m25, m50, m1) 
 
total <- (0.05 * m5) + (0.10 * m10) + (0.25 * m25) + (0.50 * m50) + (m1 * 1.0) 
 
Escreva("Total em reais no porquinho ", total) 
 
Fimalgoritmo 
22. 
 
23. 
Algoritmo "exercicio 23" 
Var 
preco: inteiro 
Inicio 
escreval("Escreva o preço do produto:") 
leia(preco) 
 
Escreva("Novo preço com desconto ", preco - ((10 / 100) * preco)) 
 
Fimalgoritmo 
24. 
Algoritmo "exercicio 24" 
Var 
preco: inteiro 
Inicio 
escreval("Escreva o preço do produto:") 
leia(preco) 
 
Escreva("Novo preço com desconto ", preco - ((10 / 100) * preco)) 
 
Fimalgoritmo 
- 
25. 
Algoritmo "exercicio 24" 
Var 
salario, vendas, preco: inteiro 
Inicio 
escreval("Escreva o salario:") 
leia(salario) 
escreval("Escreva a quantiade de vendas:") 
leia(vendas) 
escreval("Escreva o preço do produto:") 
leia(preco) 
Escreva("Salario total: ", salario + ((3 / 100) * preco) * vendas) 
 
Fimalgoritmo 
26. 
Algoritmo "exercicio 26" 
Var 
peso: inteiro 
Inicio 
escreval("Escreva o peso (kg):") 
leia(peso) 
 
Escreval("Se engordar 15%: ", peso + ((15 / 100) * peso)) 
Escreval("Se emgrecer 20%: ", peso - ((20 / 100) * peso)) 
Fimalgoritmo 
27. 
Algoritmo "exercicio 26" 
Var 
basem, basen, altura: real 
Inicio 
escreva("Escreva a base maior:") 
leia(basem) 
escreva("Escreva a base menor:") 
leia(basen) 
escreva("Escreva a base altura:") 
leia(altura) 
 
Escreval("Area do trapézio: ", ((basem + basen)* altura)/2 , "cm²") 
Fimalgoritmo 
 
28. 
Algoritmo "exercicio 28" 
Var 
salariominimo, salariofuncionario: inteiro 
Inicio 
escreva("Escreva o salario minimo: ") 
leia(salariominimo) 
escreva("Escreva o salario do funcionario: ") 
leia(salariofuncionario) 
 
Escreval("O funcionario ganha ", salariofuncionario div salariominimo , "x salario(s) 
minimo(s).")Fimalgoritmo 
29. 
Algoritmo "exercicio 29" 
Var 
salario, C1, C2: inteiro 
Inicio 
salario <- 1200 
C1 <- 300 
C2 <- 140 
escreva("Restante do salario: ", salario - ((C1 + (2 / 100) * C1) + (C2 + (2 / 100) * 
C2))) 
 
Fimalgoritmo 
30. 
Algoritmo "exercicio 30" 
Var 
C1, C2: inteiro 
Inicio 
Escreval("Escreva o cateto 1 e 2: ") 
leia(C1, C2) 
 
Escreva("Valor da Hipotenusa: ", raizq(C1 ^ 2 + C2 ^ 2)) 
 
Fimalgoritmo