Exercícios de Algoritmos com Pseudocódigo

Exercício 10: Cálculo de Quadrados

Variáveis
  i : inteiro
Início
  Para i de 1 até 1000 passo 1 faça
    Se (i mod 2 = 0) então
      Escreva ("O quadrado de ", i, " é ", i * i)
    Fim se
  Fim para
Fim

Exercício 11: Números Divisíveis por 5

Variáveis
  i : inteiro
Início
  Para i de 0 até 200 passo 1 faça
    Se (i mod 5 = 0) então
      Escreva ("Número divisível por 5: ", i)
    Fim se
  Fim para
Fim

Exercício 12: Sequência de Números

Variáveis
  x, i : inteiro
Início
  Repita
    Escreva ("Digite um número:")
    Leia (x)
    Se (x > 0) então
      Para i de 1 até x passo 1 faça
        Escreva (i)
      Fim para
    Fim se
  Até x <= 0
Fim

Exercício 13: Tabuada

Variáveis
  N, i : inteiro
Início
  Repita
    Escreva("Digite um número:")
    Leia(N)
    Se (N > 0) então
      Escreva ("Exibindo a tabuada de: ", N)
      Para i de 1 até 10 passo 1 faça
        Escreva (i, " x ", N, " = ", i * N)
      Fim para
    Fim se
  Até N < 0
Fim

Exercício 14: Contagem de Intervalos

Variáveis
  i, Qd, Qf, N : inteiro
Início
  Qd <- 0
  Qf <- 0
  Para i de 1 até 10 passo 1 faça
    Escreva ("Digite um número:")
    Leia(N)
    Se ((N >= 10) e (N <= 20)) então
      Qd <- Qd + 1
    Senão
      Qf <- Qf + 1
    Fim se
  Fim para
  Escreva("Quantidade de valores digitados entre 10 e 20: ", Qd)
  Escreva("Quantidade de valores digitados fora do intervalo 10 e 20: ", Qf)
Fim

Exercício 15: Estatísticas de Cobaias

Variáveis
  Cod, valor, total, coelhos, ratos : inteiro
  pc, pr : real
Início
  total <- 0
  coelhos <- 0
  ratos <- 0
  Para i de 1 até 15 passo 1 faça
    Escreva("Digite um valor:")
    Leia (valor)
    Escreva ("Digite um código (1-coelho, 2-rato):")
    Leia(cod)
    total <- total + valor
    Se (cod = 1) então
      coelhos <- coelhos + 1
    Senão
      Se (cod = 2) então
        ratos <- ratos + 1
      Fim se
    Fim se
  Fim para
  pc <- (coelhos * 100.0) / 15.0
  pr <- (ratos * 100.0) / 15.0
  Escreva("Total de cobaias: ", total)
  Escreva("Total de coelhos: ", coelhos)
  Escreva("Total de ratos: ", ratos)
  Escreva("Percentual de coelhos: ", pc)
  Escreva("Percentual de ratos: ", pr)
Fim

Exercício 16: Maior Valor

Variáveis
  i, N, maior : inteiro
Início
  maior <- 0
  Para i de 1 até 50 passo 1 faça
    Escreva ("Digite um valor:")
    Leia (N)
    Se (N > maior) então
      maior <- N
    Fim se
  Fim para
  Escreva("O maior valor é: ", maior)
Fim

Exercício 18: Número Perfeito

Variaveis
i,n,s : inteiro
Inicio
Escreva("Digite um numero qualquer:")
Leia(n)
S <- 0
Para i de 1 ate n-1 passo 1 faça
  Se (n mod i = 0) então
    S <- S + i
  Fim se
Fim para

Se (S = n) então
  Escreva("O número digitado é perfeito")
Senão
  Escreva("O número digitado não é perfeito")
Fim se

Fim

Exercício 20: Resto da Divisão por 11

Variáveis
  i, n : inteiro
Início
  Para i de 1000 até 2000 passo 1 faça
    Se (i mod 11 = 5) então
      Escreva("Número ", i, " dividido por 11 resta 5")
    Fim se
  Fim para
Fim

Exercício 20-b: Cálculo Fatorial

Variáveis
  n, i, f : inteiro
Início
  Escreva("Digite um número:")
  Leia(n)
  Se (n > 0) então
    i <- (n - 1)
    f <- n
    Enquanto (i >= 1) faça
      f <- (f * i)
      i <- i - 1
    Fim enquanto
  Fim se
  Escreva("O fatorial do número digitado é: ", f)
Fim

Exercícios com Vetores

Exercício 10: Inversão de Vetor

Variáveis
  D[60], i, aux, a : inteiro
Início
  Para i de 1 até 60 passo 1 faça
    Escreva("Digite o valor na posição ", i, " do vetor:")
    Leia(D[i])
  Fim para
  a <- 31
  Para i de 1 até 30 passo 1 faça
    aux <- D[i]
    D[i] <- D[a]
    D[a] <- aux
    a <- a + 1
  Fim para
  Para i de 1 até 60 passo 1 faça
    Escreva ("Vetor modificado na posição ", i, ": ", D[i])
  Fim para
Fim

Exercício 11: Multiplicação por Escalar

Variáveis
  S[20], i, a, p : inteiro
Início
  Escreva("Digite um número qualquer:")
  Leia (a)
  Para i de 1 até 20 passo 1 faça
    Escreva ("Digite o valor na posição ", i, " do vetor:")
    Leia (S[i])
    p <- a * S[i]
    Escreva("O produto do número digitado pelo valor na posição ", i, " do vetor é: ", p)
  Fim para
Fim

Exercício 13: Produto de Vetores

Variáveis
  F[20], G[20], i, S : inteiro
Início
  Para i de 1 até 20 passo 1 faça
    Escreva("Digite o valor na posição ", i, " do vetor F:")
    Leia(F[i])
  Fim para
  Para i de 1 até 20 passo 1 faça
    Escreva ("Digite o valor na posição ", i, " do vetor G:")
    Leia (G[i])
  Fim para
  Escreva ("O produto do vetor F por G é:")
  Para i de 1 até 20 passo 1 faça
    S <- F[i] * G[i]
    Escreva (S)
  Fim para
Fim

Exercício 14: Subtração de Vetores

Variáveis
  K[10], N[10], M[10], i : inteiro
Início
  Para i de 1 até 10 passo 1 faça
    Escreva ("Digite o valor na posição ", i, " do vetor K:")
    Leia (K[i])
    Escreva ("Digite o valor na posição ", i, " do vetor N:")
    Leia (N[i])
    M[i] <- K[i] - N[i]
  Fim para
  Escreva ("Vetor M (Resultado da subtração):")
  Para i de 1 até 10 passo 1 faça
    Escreva (M[i])
  Fim para
Fim

Exercício 15: Ordenação Crescente de Vetor

Variáveis
  F[20], i, a, j, aux : inteiro
Início
  Para i de 1 até 20 passo 1 faça
    Escreva("Digite o valor na posição ", i, " do vetor:")
    Leia (F[i])
  Fim para

  Para i de 1 até 19 passo 1 faça
    Para j de i+1 até 20 passo 1 faça
      Se (F[i] > F[j]) então
        aux <- F[i]
        F[i] <- F[j]
        F[j] <- aux
      Fim se
    Fim para
  Fim para

  Escreva ("Vetor em ordem crescente:")
  Para i de 1 até 20 passo 1 faça
    Escreva (F[i])
  Fim para
Fim