Peso na terra (kg): 70
O peso da pessoa na Lua é: 11.57 kg

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

Algoritmo "Calcula o peso de uma pessoa na Lua"

Var
  // variáveis usadas na resolução do problema
  peso_terra, peso_lua: real
  
Inicio
  // vamos ler o peso da pessoa na Terra
  escreva("Peso na terra (kg): ")
  leia(peso_terra)

  // vamos calcular o peso da pessoa na Lua
  peso_lua <- (peso_terra / 9.81) * 1.622

  // vamos mostrar o resultado
  escreval("O peso da pessoa na Lua é: ", peso_lua:1:2 , " kg")

Fimalgoritmo

Informe um caractere: A
Você informou o caractere: A
O código ASCII correspondente é: 65

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

algoritmo "Como retornar código ASCII em VisuAlg"
var
  // variáveis usadas na resolução do problema
  ch: caractere
  codigo: inteiro

inicio
  // vamos pedir para o usuário informar uma letra, símbolo ou pontuação
  escreva("Informe um caractere: ")
  leia(ch)

  // agora vamos obter o código ASCII correspondente
  codigo <- Asc(ch)

  // e mostramos o resultado
  escreval("Você informou o caractere: ", ch)
  escreval("O código ASCII correspondente é: ", codigo)

fimalgoritmo

// declara um vetor de 10 inteiros
valores: vetor[1..10] de inteiro

Informe um valor: 4
O valor foi encontrado: 3 vezes

Informe um valor: 8
O valor foi encontrado: 1 vezes

Informe um valor: 3
O valor foi encontrado: 0 vezes

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

algoritmo "Contar quantas vezes um elemento repete em um vetor"

var
  // variáveis usadas na resolução do problema
  valores: vetor[1..10] de inteiro
  pesquisa, repeticoes, i: inteiro

inicio
  // inicializa um vetor de 10 inteiros
  valores[1] <- 4
  valores[2] <- 21
  valores[3] <- 9
  valores[4] <- 8
  valores[5] <- 12
  valores[6] <- 21
  valores[7] <- 4
  valores[8] <- 4
  valores[9] <- 1
  valores[10] <- 10

  // vamos ler um valor inteiro
  escreva("Informe um valor: ")
  leia(pesquisa)

  // vamos verificar quantas vezes o valor informado está
  // contido no vetor
  repeticoes <- 0
  para i de 1 ate 10 faca
    se valores[i] = pesquisa entao
      // encontrou? vamos contar esta ocorrência
      repeticoes <- repeticoes + 1
    fimse
  fimpara

  // vamos mostrar o resultado
  escreva("O valor foi encontrado: ", repeticoes, " vezes")

fimalgoritmo

Informe o valor do produto: 520
Informe o nome do cliente: FABRICIA DE CASTRO
Informe a idade: 23
Informe o sexo: F
FABRICIA DE CASTRO, você ganhou o desconto de 20%
Valor a pagar: 416.0

Informe o valor do produto: 830
Informe o nome do cliente: OSMAR SLVA
Informe a idade: 38
Informe o sexo: M
OSMAR SLVA, você ganhou apenas o desconto de 5%
Valor a pagar: 788.5

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

algoritmo "Ler o valor do produto, o valor do produto, o sexo..."
var
  valor: real
  nome, sexo: caractere
  idade: inteiro

inicio
  //  vamos ler o valor do produto
  escreva("Informe o valor do produto: ")
  leia(valor)

  // agora vamos ler o nome do cliente
  escreva("Informe o nome do cliente: ")
  leia(nome)

  // agora vamos ler a idade
  escreva("Informe a idade: ")
  leia(idade)

  // e finalmente vamos ler o sexo do cliente
  escreva("Informe o sexo: ")
  leia(sexo)

  // vamos verificar se o cliente faz jus ao desconto
  // de 20%
  se ((idade >= 18) e (idade <= 35) e (sexo = "F")) entao
    valor <- valor - (valor * (20 / 100))
    escreval(nome, ", você ganhou o desconto de 20%")
    escreval("Valor a pagar: ", valor)
  senao
    valor <- valor - (valor * (5 / 100))
    escreval(nome, ", você ganhou apenas o desconto de 5%")
    escreval("Valor a pagar: ", valor)
  fimse
  
fimalgoritmo