Informe o 1.o valor: 6
Informe o 2.o valor: 2
Informe o 3.o valor: 4
Informe o 4.o valor: 6
Informe o 5.o valor: 1
Informe o 6.o valor: 1
Informe o 7.o valor: 8
Informe o 8.o valor: 5
Informe o 9.o valor: 4
Informe o 10.o valor: 7

Os números repetidos foram: 6,  4,  1

Informe o 1.o valor: 8
Informe o 2.o valor: 7
Informe o 3.o valor: 6
Informe o 4.o valor: 1
Informe o 5.o valor: 2
Informe o 6.o valor: 3
Informe o 7.o valor: 50
Informe o 8.o valor: 32
Informe o 9.o valor: 4
Informe o 10.o valor: 11

Não houve números repetidos

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Leia um vetor de 10 posições e verifique"

// Enunciado do exercício: Leia um vetor de 10 posições e verifique
// se existem valores iguais (repetidos) e os escreva. Se não houver
// números duplicados, mostre uma mensagem informando.

var
  // variáveis usadas na resolução do problema
  numeros: vetor[1..10] de inteiro
  repetidos: vetor[1..10] de inteiro
  i, j, aux, contador: inteiro
  registrado: logico
inicio
  // vamos fazer a leitura dos 10 números inteiros
  para i de 1 ate 10 faca
    escreva("Informe o", i, ".o valor: ")
    leia(numeros[i])
  fimpara

  // agora vamos verificar os valores repetidos no vetor
  // numeros e guardá-los no vetor repetidos
  contador <- 0
  para i de 1 ate 10 faca
    para j de i ate 10 faca
      // vamos comparar os valores nos diferentes índices
      // do vetor numeros
      se ((numeros[i] = numeros[j]) e (i <> j)) entao
        // encontramos uma repetição. Vamos verificar se ela
        // já foi registrada
        registrado <- falso
        para aux de 1 ate contador faca
          se repetidos[aux] = numeros[i] entao
            registrado <- verdadeiro
            interrompa
          fimse
        fimpara
        
        // essa repetição não foi registrada ainda
        se registrado = falso entao
          contador <- contador + 1
          repetidos[contador] <- numeros[i]
        fimse
        
      fimse
    fimpara
  fimpara
  
  // vamos mostrar os valores repetidos
  se contador = 0 entao
    escreval()
    escreval("Não houve números repetidos")
  senao
    escreval()
    escreva("Os números repetidos foram:")
    para i de 1 ate contador faca
      escreva(repetidos[i], ", ")
    fimpara
  fimse
fimalgoritmo

Informe a potência da lâmpada (em watts): 100
Informe a largura do cômodo (em metros): 6
Informe o comprimento do cômodo (em metros): 4
Serão necessárias 4 lâmpadas.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Como calcular o número de lâmpadas necessárias"

var
  // variáveis usadas na resolução do problema
  potencia_lampada, largura_comodo, comprimento_comodo: real
  area_comodo, potencia_total: real
  quant_lampadas: inteiro

inicio
  // vamos ler a potência da lâmpada
  escreva("Informe a potência da lâmpada (em watts): ")
  leia(potencia_lampada)

  // vamos ler a largura do cômodo
  escreva("Informe a largura do cômodo (em metros): ")
  leia(largura_comodo)

  // agora vamos ler o comprimento do cômodo
  escreva("Informe o comprimento do cômodo (em metros): ")
  leia(comprimento_comodo)

  // agora vamos calcular a área do cômodo
  area_comodo <- largura_comodo * comprimento_comodo

  // calculamos a potência total necessária para iluminar
  // todo o cômodo
  potencia_total <- area_comodo * 18

  // e finalmente calculamos a quantidade de lâmpadas necessárias
  quant_lampadas <- Int(potencia_total / potencia_lampada)

  // será necessário no mínimo uma lâmpada
  se quant_lampadas = 0 entao
    quant_lampadas <- quant_lampadas + 1
  fimse

  // e mostramos o resultado
  escreva("Serão necessárias ", quant_lampadas, " lâmpadas.")

fimalgoritmo

Informe o ano: 2024
O ano informado é bissexto.

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

algoritmo "Como testar se um ano é bissexto em VisuAlg"

var
  // variáveis usadas na resolução do problema
  ano: inteiro

inicio
  // vamos solicitar que o usuário informe um ano
  escreva("Informe o ano: ")
  leia(ano)

  // vamos verificar se o ano informado é bissexto
  se (((ano mod 4 = 0) e (ano mod 100 <> 0)) ou (ano mod 400 = 0)) entao
    escreva("O ano informado é bissexto.")
  senao
    escreva("O ano informado não é bissexto.")
  fimse

fimalgoritmo

Informe o primeiro número: 34
Informe o segundo número: 83
Informe o terceiro número: 72
O segundo número é o maior

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

Algoritmo "Um programa que lê três números inteiros e mostra o maior"

Var
  // variáveis usadas na resolução do problema
  num1, num2, num3: inteiro

Inicio
  // vamos solicitar os três números inteiros
  escreva("Informe o primeiro número: ")
  leia(num1)
  escreva("Informe o segundo número: ")
  leia(num2)
  escreva("Informe o terceiro número: ")
  leia(num3)

  // o primeiro número é o maior?
  se (num1 > num2) e (num1 > num3) entao
    escreva("O primeiro número é o maior")
  senao
    // o segundo número é o maior?
    se (num2 > num1) e (num2 > num3) entao
      escreva("O segundo número é o maior")
    senao
      // o terceiro número é o maior?
      se (num3 > num1) e (num3 > num2) entao
        escreva("O terceiro número é o maior")
      senao
        // os números não são diferentes
        escreva("Os três números não são diferentes")
      fimse
    fimse
  fimse

Fimalgoritmo