Exercícios de Algoritmos Sequenciais (1 a 35)
Classificado em Computação
Escrito em  em  português com um tamanho de 12,07 KB
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
  