Exercícios de Algoritmos Sequenciais (1 a 35)
Classificado em Computação
Escrito em em 
português com um tamanho de 12,07 KB
Esta seção apresenta uma série de exercícios básicos de lógica de programação e algoritmos, focados na estrutura sequencial, manipulação de variáveis e operações aritméticas.
1. Questão
inicio
imprima("Vamos fazer todos os algoritmos!");
fim.
2. Questão
inicio
imprima("Aprendendo algoritmos!");
fim.
3. Questão
inicio
imprima("Ritomar Torquato");
fim.
4. Questão
Escreva um algoritmo que leia uma frase qualquer e mostre-a de volta na tela. Dica: não esquecer a interface com o usuário.
frase : caracter;
inicio
imprima("Digite uma frase qualquer: ");
leia(frase);
imprima(frase);
fim.
5. Questão
Escreva um algoritmo que mostre o produto entre 28 e 43.
inicio
imprima("28 * 43 = ", 28 * 43);
fim.
6. Questão
Escreva um algoritmo que mostre o produto entre 77, 15 e 22.
inicio imprima(77 * 15 * 22); fim.
7. Questão - Versão 1 (Leitura Separada)
Escreva um algoritmo que mostre o produto entre dois números informados pelo usuário. Dica: não esquecer a interface com o usuário.
N1, N2 : inteiro;
inicio
imprima("Digite o primeiro valor: ");
leia(N1);
imprima("Digite o segundo valor: ");
leia(N2);
imprima("O produto é: ", N1 * N2);
fim.
7. Questão - Versão 2 (Leitura Conjunta)
N1, N2 : inteiro;
inicio
imprima("Digite dois valores inteiros: ");
leia(N1, N2);
imprima("O produto é: ", N1 * N2);
fim.
8. Questão - Versão 1 (Saída Simples)
Escreva um algoritmo que mostre o triplo de dois números informados pelo usuário. Dica: não esquecer a interface com o usuário.
N1, N2 : inteiro;
inicio
imprima("Digite dois números: ");
leia(N1, N2);
imprima(N1 * 3, N2 * 3);
fim.
8. Questão - Versão 2 (Saída Formatada)
N1, N2 : inteiro;
inicio
imprima("Digite o primeiro valor: ");
leia(N1);
imprima("Digite o segundo valor: ");
leia(N2);
imprima("O triplo é: ", N1 * 3, ", " ,N2 * 3);
fim.
9. Questão
Escreva um algoritmo que mostre a média aritmética entre os números 8, 9 e 7.
inicio
imprima("A média é: ", (8 + 9 + 7)/3);
fim.
10. Questão
Escreva um algoritmo que leia um número inteiro e imprima-o de volta na tela.
N1 : inteiro;
inicio
imprima("Digite um número inteiro: ");
leia(N1);
imprima(N1);
fim.
11. Questão
Escreva um algoritmo que leia dois números inteiros e imprima-os de volta na tela.
N1, N2 : inteiro;
inicio
imprima("Digite dois números inteiros: ");
leia(N1, N2);
imprima(N1, N2);
fim.
12. Questão
Escreva um algoritmo que leia um número inteiro e imprima na tela seu antecessor e o seu sucessor.
N1 : inteiro;
inicio
imprima("Digite 1 número inteiro: ");
leia(N1);
imprima(N1 - 1, ", ", N1 + 1);
fim.
13. Questão
Escreva um algoritmo que leia nome, endereço e telefone e imprima na tela.
nome, endereco, telefone : Caracter;
inicio
imprima("Digite o nome: ");
leia(nome);
imprima("Digite o endereço: ");
leia(endereco);
imprima("Digite o telefone: ");
leia(telefone);
imprima("Nome: ", nome);
imprima("Endereço: ", endereco);
imprima("Telefone: ", telefone);
fim.
14. Questão
Escreva um algoritmo que leia dois números inteiros e imprima a soma. Antes do resultado, deverá aparecer a mensagem “Soma”.
N1, N2, S : inteiro;
inicio
imprima("Digite o primeiro valor: ");
leia(N1);
imprima("Digite o segundo valor: ");
leia(N2);
S := N1 + N2; {A variável S pode ser descartada. Veja a questão 15}
imprima("Soma: ", S);
fim.
15. Questão
Escreva um algoritmo que leia dois números inteiros e imprima o produto.
N1, N2 : inteiro;
inicio
imprima("Digite o primeiro valor: ");
leia(N1);
imprima("Digite o segundo valor: ");
leia(N2);
imprima("Produto: ", N1 * N2);
fim.
16. Questão
Escreva um algoritmo que leia um número real e imprima a terça parte deste número.
X1 : Real;
inicio
imprima("Digite um número real: ");
leia(X1);
imprima("A terça parte é: ", X1/3);
fim.
17. Questão
Escreva um algoritmo que leia dois números reais e imprima a média aritmética com a mensagem 'Média:' antes do resultado.
var
y, x : real
inicio
escreva("Digite o valor de A ");
leia(x);
escreva("Digite o valor de B ");
leia(y);
escreva("Média desses valores é ", (x + y) / 2);
fimalgoritmo
18. Questão
Escreva um algoritmo que leia quatro números e imprima a média ponderada, sabendo-se que os pesos são respectivamente 1, 2, 3 e 4.
A, B, C, D, M : Real;
inicio
imprima("Digite quatro valores: ");
leia(A, B, C, D);
M := ((A * 1) + (B * 2) + (C * 3) + (D * 4)) / (1 + 2 + 3 + 4);
imprima("A média ponderada é: ", M);
fim.
19. Questão
Escreva um algoritmo que leia um número inteiro pelo teclado e imprima na tela o dobro do valor lido.
var
x : inteiro
inicio
escreva("Digite um valor ");
leia(x);
escreva("O seu dobro é ", x * 2);
fimalgoritmo
20. Questão
Escreva um algoritmo que leia o ano de nascimento de uma pessoa e escreva na tela a sua idade em 31/12/2013.
ano : inteiro;
inicio
imprima("Digite o ano de nascimento: ");
leia(ano);
imprima("A idade em 31/12/2013 é: ", 2013 - ano);
fim.
21. Questão
Escreva um algoritmo que leia dois números inteiros para uma operação de divisão. Informar na saída o dividendo, o divisor, o quociente e o resto.
var
x, y, r, q : inteiro
inicio
escreval("Valor de X: ");
leia(x);
escreval("Valor de Y: ");
leia(y);
r <- x mod y;
q <- x div y;
escreval;
escreval("Dividendo: ", x);
escreval("Divisor: ", y);
escreval("Quociente: ", q);
escreval("Resto: ", r);
fimalgoritmo
22. Questão
Determine os resultados que serão impressos depois de executado o algoritmo abaixo.
var NUMERO, D1, D2, D3, D4 : inteiro inicio NUMERO <- 1352; D4 <- NUMERO mod 10; // 1352 mod 10 = 2 D3 <- (NUMERO div 10) mod 10; // (1352 div 10) mod 10 = 135 mod 10 = 5 D2 <- (NUMERO div 100) mod 10; // (1352 div 100) mod 10 = 13 mod 10 = 3 D1 <- (NUMERO div 1000) mod 10; // (1352 div 1000) mod 10 = 1 mod 10 = 1 escreva(D4, ", ", D3, ", ", D2, ", ", D1); fimalgoritmo
23. Questão
Escreva um algoritmo que leia um número inteiro de 3 dígitos e mostre na tela o dígito da casa das dezenas.
var
N : inteiro
inicio
// Seção de Comandos
escreva("Digite um número de 3 casas decimais: ");
leia(N);
escreva("A dezena é: ", (N div 10) mod 10);
fimalgoritmo
24. Questão
Escreva um algoritmo que leia uma data no formato DDMMAAAA e mostre na tela o dia, mês e ano separadamente.
dt : inteiro;
inicio
imprima("Digite uma data no formato DDMMAAAA: ");
leia(dt);
imprima("Dia: ", (dt div 1000000) mod 100);
imprima("Mês: ", (dt div 10000) mod 100);
imprima("Ano: ", dt mod 10000);
fim.
25. Questão
Escreva um algoritmo que leia um número formado por CDU (Centena, Dezena, Unidade) e imprima na forma UCD. Exemplo: 123, sairá 312. O número deve ser armazenado em outra variável antes de ser impresso.
var
u, d, c, x : inteiro
inicio
escreval("Digite um valor na sequência CDU: ");
leia(x);
u <- x mod 10;
d <- (x mod 100) div 10;
c <- x div 100;
escreval("O valor na sequência CDU=", x, " , trocado na sequência UCD é:", u, c, d, ".");
fimalgoritmo
26. Questão
Escreva um algoritmo que leia o valor do lado de um quadrado e imprima a sua área e o seu perímetro.
L : inteiro;
inicio
imprima("Digite o valor do lado do quadrado: ");
leia(L);
imprima("Área: ", L * L);
imprima("Perímetro: ", L * 4);
fim.
28. Questão
Escreva um algoritmo que calcula a área de um triângulo.
B, H : inteiro;
inicio
imprima("Digite a base: ");
leia(B);
imprima("Digite a altura: ");
leia(H);
imprima("Área = ", (B * H) / 2);
fim.
29. Questão
Em época de pouco dinheiro, os comerciantes estão procurando aumentar suas vendas oferecendo desconto. Escreva um algoritmo que leia o valor de um produto e o percentual de desconto concedido e imprima o valor do produto com desconto.
var
x, d, tot, des : real
inicio
escreva("Valor do produto: R$ ");
leia(x);
escreva("Percentual de desconto: % ");
leia(d);
des <- x * (d / 100); // Cálculo do valor do desconto
tot <- x - des; // Cálculo do valor final (Original - Desconto)
escreva("Valor do produto com desconto R$ ", tot);
fimalgoritmo
30. Questão
Escreva um algoritmo que calcula o salário líquido de um professor. Os dados fornecidos serão: valor da hora/aula, número de aulas dadas no mês e percentual de desconto do INSS.
valor_hora_aula, aulas_dadas, inss : inteiro;
salario : real;
inicio
imprima("Valor da hora/aula: ");
leia(valor_hora_aula);
imprima("Aulas dadas no mês: ");
leia(aulas_dadas);
imprima("Percentual INSS: ");
leia(inss);
salario := (valor_hora_aula * aulas_dadas) -
((valor_hora_aula * aulas_dadas) *
(inss / 100));
imprima("O salário líquido é: ", salario);
fim.
31. Questão
Escreva um algoritmo que leia dois valores para as variáveis A e B, efetue a troca dos valores de forma que a variável A passe a ter o valor de B e que a variável B passe a ter o valor de A. Mostre na tela os valores trocados.
var
A, B, C : inteiro
inicio
escreva("Digite um valor: ");
leia(A);
escreva("Digite outro valor: ");
leia(B);
// Faz a troca usando uma variável auxiliar
C <- A;
A <- B;
B <- C;
escreva("Valores Trocados: ", A, " e ", B);
fimalgoritmo
32. Questão
Escreva um algoritmo que calcule o valor de uma prestação em atraso utilizando a fórmula: valor = valor original + (valor original * (taxa / 100) * tempo).
vr_original, taxa, vr_corrigido : real;
atraso : inteiro;
inicio
imprima("Valor da prestação: ");
leia(vr_original);
imprima("Taxa de juros ao dia: ");
leia(taxa);
imprima("Dias de atraso: ");
leia(atraso);
vr_corrigido := vr_original +
(vr_original * (taxa / 100) * atraso);
imprima("Valor corrigido: ", vr_corrigido);
fim.
33. Questão
Escreva um algoritmo que leia a hora atual no formato HHMM e mostre quantos minutos passaram-se desde o início do dia.
var
HHMM : inteiro;
HH, MM : inteiro;
inicio
escreva("Digite uma hora no formato HHMM: ");
leia(HHMM);
HH <- HHMM div 100;
MM <- HHMM mod 100;
escreva("Quantidade de minutos: ", (HH * 60) + MM);
fimalgoritmo
34. Questão
Crie um algoritmo que leia um número entre 0 e 20 e imprima o seu sucessor, sabendo-se que o sucessor de 20 é 0. Não deve ser utilizado nenhum comando condicional ou de repetição.
var
N : inteiro
inicio
escreva("Digite o valor de N: ");
leia(N);
escreva("Sucessor circular (20): ", (N + 1) mod 21);
fimalgoritmo
35. Questão
Todo restaurante, embora por lei não possa obrigar o cliente a pagar, cobra 10% para o garçom (que raramente é de fato repassado ao garçom). Faça um algoritmo que leia o valor gasto com despesas realizadas em um restaurante e imprima o valor total com a gorjeta.
var
ValorConta : real
inicio
escreva("Digite o valor da conta: ");
leia(ValorConta);
escreval("Valor da Taxa de Serviço: ", ValorConta * 0.1);
escreval("Valor Total: ", ValorConta * 1.1);
fimalgoritmo