Exercícios Algoritmos Respondidos

Nas postagens anteriores mostramos a importância de se aprender a elaborar algoritmos corretamente. Mas uma boa forma de aperfeiçoar sua lógica é treinando. Para isso, abaixo são descritos alguns exercícios de algoritmos para treino, para o caso de alguma dúvida, os exercícios já se encontram respondidos. Esperamos que eles lhes possam ser úteis....mãos à obra!

Lista de Exercícios de Algoritmos: 

 

1 - Faça um algoritmo que receba que receba dois números e ao final mostre a soma, subtração, multiplicação e divisão dos números lidos.

  

var
x, y: real;

inicio
    escreva("Digite o primeiro número: ");
    leia(x);
    escreva("Digite o segundo número: ");
    leia(y);
    escreva("A soma é: ",x+y);
    escreva("A subtração é: ",x-y);
    escreva("A multiplicação é: ",x*y);
    escreva("A divisão é: ",x/y);
fim.

2 - Faça um algoritmo que leia o nome de um vendedor, o seu salário fixo e o total de vendas efetuadas por ele no mês (em dinheiro). Sabendo que este vendedor ganha 8% de comissão sobre as vendas efetuadas. Informe o seu nome, salário fixo e salário no final do mês acrescido das comissões.

var
nome: caractere;
salario: real;
vendas: real;
comissao: real;
salarioFinal: real;

inicio
    escreva("Digite o nome do vendedor: ");
    leia(nome);
    escreva("Digite o salário: ");
    leia(salario);
    escreva("Informe a quantidade de vendas deste no mês: ");
    leia(vendas);
    comissao <- 0.08 * vendas;
    salarioFinal <- salario + comissao;
    limpatela
    escreva("---------- RESUMO ----------");
    escreva("Nome: ",nome);
    escreva("Salário: ",salario);
    escreva("Salário Final (salário + comissão): ",salarioFinal);
fim.

3 - Faça um algoritmo que leia uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit. A fórmula usada para essa conversão é a seguinte: F = (9*C+160)/5, sendo que F representa a temperatura em Fahrenheit e C representa a temperatura em Celsius.

var
c, f: real;

inicio
    escreva("Digite a temperatura em Celcius: ");
    leia(c);
    f <- (9*c+160)/5;
    escreva("A nova temperatura é: ",f,"ºF");
fim.

4 - Faça um algoritmo que leia um número e descubra se ele está no intervalo entre 0 e 100.

var
numero: inteiro;

inicio
    escreva("Digite um número: ");
    leia(numero);
    se numero >= 0 entao
          se numero <= 100 entao
               escreva("O número está no intervalo entre 0 e 100");
          senao
               escreva("O número não está no intervalo entre 0 e 100");
          fimse
     senao
       escreva("O número não está no intervalo entre 0 e 100");
    fimse
fim.

5 - Faça um algoritmo que leia o nome e as três notas obtidas por um aluno durante um semestre. Calcule a média aritmética das notas desse aluno, informe seu nome e o seu status (APROVADO, se média >= 7; REPROVADO, se média <= 5; e EXAME, se média > 5 e média < 7).

var
nome: caractere;
n1, n2, n3, media: real;

inicio
    escreva("Sistema de médias");
    escreva("Digite a primeira nota: ");
    leia(n1);
    escreva("Digite a segunda nota: ");
    leia(n2);
    escreva("Digite a terceira nota: ");
    leia(n3);
    media <- (n1 + n2 + n3) / 3;

   se media >= 7 entao
       escreva("APROVADO!");
   senao
       se media <= 5 entao
          escreva("REPROVADO!");
      senao
          escreva("EXAME");
      fimse
  fimse
fim.

6 - Faça um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente.

var
num1, num2, num3: inteiro;
ordena: vetor[1..3] de inteiro;

inicio
    escreva("Digite o primeiro número: ");
    leia(num1);
    escreva("Digite o segundo número: ");
    leia(num2);
    escreva("Digite o terceiro número: ");
    leia(num3);

    se num1 > num2 entao
         ordena[3] <- num1;
         ordena[2] <- num2;
         se num3 > num1 entao
             ordena[3] <- num3;
             ordena[2] <- num1;
             ordena[1] <- num2;
        senao
            se num3 > num2 entao
                 ordena[3] <- num1;
                 ordena[2] <- num3;
                 ordena[1] <- num2;
            senao
                 ordena[3] <- num1;
                 ordena[2] <- num2;
                 ordena[1] <- num3;
            fimse
        fimse
    senao
        ordena[3] <- num2;
        ordena[2] <- num1;
        se num3 > num2 entao
            ordena[3] <- num3;
            ordena[2] <- num2;
            ordena[1] <- num1;
        senao
            se num3 > num1 entao
                ordena[3] <- num2;
                ordena[2] <- num3;
                ordena[1] <- num1;
            senao
                ordena[3] <- num2;
                ordena[2] <- num1;
                ordena[1] <- num3;
            fimse
       fimse
    fimse

   escreva("Os números em ordem crescente são: ");
   escreva(">",ordena[1]);
   escreva(">",ordena[2]);
   escreva(">",ordena[3]);

fim.

7 - Faça um algoritmo que receba o número do mês e mostre o mês correspondente, validando se houver um número de mês inválido.

var
mes: inteiro;

inicio
    escreva("Digite o número do mês: ");
    leia(mes);
    escolha mes
         caso 1:
             escreva("Janeiro");
         caso 2:
             escreva("Fevereiro");
         caso 3:
             escreva("Março");
         caso 4:
             escreva("Abril");
         caso 5:
            escreva("Maio");
         caso 6:
            escreva("Junho");
         caso 7:
             escreva("Julho");
         caso 8:
             escreva("Agosto");
         caso 9:
             escreva("Setembro");
         caso 10:
             escreva("Outubro");
         caso 11:
             escreva("Novembro");
         caso 12:
             escreva("Dezembro");
         outrocaso:
             escreva("Mês inválido!");
     fimescolha
fim.

8 - Faça um algoritmo que receba N números e mostre POSITIVO, NEGATIVO ou ZERO, para cada número informado.

var
programa, numero: inteiro;
opc: caractere;

inicio

    programa <- 1;
    enquanto programa = 1 faca
         limpatela
         escreva("Digite um número: ");
         leia(numero);
         se numero > 0 entao
              escreva("POSITIVO!");
         senao
              se numero = 0 entao
                     escreva("ZERO!");
              fimse
              se numero < 0 entao
                     escreva("NEGATIVO!");
              fimse
         fimse

        escreva("Deseja finalizar? (S/N) ");
        leia(opc);
        se opc = "S" entao
              programa <- 0;
        fimse
   fimenquanto
fim.

9 - Faça um algoritmo para ler 50 números e ao final informe quantos números estão no intervalo entre 100 e 150.

var
x, num, intervalo: inteiro;

inicio
    para x de 1 ate 50 faca
           escreva("Digite um número: ");
           leia(num);
           se num >= 100 entao
                 se num <= 150 entao
                       intervalo <- intervalo + 1;
                 fimse
          fimse
    fimpara

    escreva("Ao total, foram digitados",intervalo,"números no intervalo entre 100 e 150");
fim.

10 -  Faça um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se forem, informe qual tipo de triângulo eles podem formar: equilátero, isósceles ou escaleno.

Propriedade: O comprimento de cada lado de um triângulo é menor que a soma dos comprimentos dos outros dois lados.

Triângulo equilátero: Possui o comprimento dos três lados iguais.

Triângulo isósceles: Possui o comprimento de apenas dois lados iguais.

Triângulo escaleno: Possui o comprimento dos três lados diferentes.

var
la, lb, lc, triangulo: inteiro;

inicio

    escreva("Digite o lado A do triângulo: ");
    leia(la);
    escreva("Digite o lado B do triângulo: ");
    leia(lb);
    escreva("Digite o lado C do triângulo: ");
    leia(lc);

    se la < (lc+lb) entao
         triangulo <- 1;
    senao
        se lb < (lc + la) entao
              triangulo <- 1;
        senao
             se lc < (lb + la) entao
                   triangulo <- 1;
              fimse
        fimse
    fimse

    se triangulo = 1 entao
         se la = lb entao
              se lb = lc entao
                    escreva("TRIÂNGULO EQUILÁTERO!");
              senao
                    escreva("TRIÂNGULO ISÓSCELES!");
              fimse
        senao
             se lb = lc entao
                    escreva("TRIÂNGULO ISÓSCELES!");
             senao
                    escreva("TRIÂNGULO ESCALENO!");
             fimse
       fimse
    fimse
fim.