Informe a duração do evento em segundos: 3712
Duração do evento: 01:01:52

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

algoritmo "Converter segundos em horas, minutos e segundos em VisuAlg"
var
  // variáveis que vão guardar a duração em horas, minutos e segundos;
  horas, minutos, segundos: inteiro
  duracao_segundos: inteiro // guardará a duração em segundos

// função usada para formatar as horas, minutos e
// segundos
funcao formatar_numero(n: inteiro): caractere
inicio
  se n < 10 entao
    retorne "0" + Numpcarac(n)
  senao
    retorne Numpcarac(n)
  fimse
fimfuncao

inicio
  // vamos solicitar a duração do evento em segundos
  escreva("Informe a duração do evento em segundos: ")

  // vamos ler os segundos informados
  leia(duracao_segundos)

  // vamos obter a quantidade de horas do evento
  horas <- Int(duracao_segundos / 3600)
  // vamos obter os minutos
  minutos <- (Int(duracao_segundos / 60)) mod 60
  // vamos obter os segundos restantes
  segundos <- duracao_segundos mod 60

  // vamos exibir a duração do evento em horas, minutos e segundos
  escreva("Duração do evento: ", formatar_numero(horas), ":")
  escreva(formatar_numero(minutos), ":", formatar_numero(segundos))

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 primeiro lado do triângulo: 30
Informe o segundo lado do triângulo: 40
Informe o terceiro lado do triângulo: 60
O triângulo é escaleno

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

algoritmo "Testar o tipo de um triângulo em VisuAlg"

var
  // variáveis usadas na resolução do problema
  lado_a, lado_b, lado_c: inteiro

inicio
  // vamos ler o primeiro lado do triângulo
  escreva("Informe o primeiro lado do triângulo: ")
  leia(lado_a)

  // vamos ler o segundo lado do triângulo
  escreva("Informe o segundo lado do triângulo: ")
  leia(lado_b)

  // vamos ler o terceiro lado do triângulo
  escreva("Informe o terceiro lado do triângulo: ")
  leia(lado_c)

  // os lados informados formam um triângulo?
  se ((lado_a < (lado_b + lado_c)) e (lado_b < (lado_a + lado_c)) e 
    (lado_c < (lado_a + lado_b))) entao
    // é um triângulo equilátero (todos os lados iguais)?
    se ((lado_a = lado_b) e (lado_b = lado_c)) entao
      escreval("O triângulo é equilátero")
    senao
      // é isósceles (dois lados iguais e um diferente)?
      se ((lado_a = lado_b) ou (lado_a = lado_c) ou (lado_c = lado_b)) entao
        escreval("O triângulo é isósceles")
      senao
        // é escaleno
        escreval("O triângulo é escaleno")
      fimse
    fimse
  senao
    escreval("Os lados informados não formam um triângulo.")
  fimse

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

Informe o lado 1 do triângulo: 6
Informe o lado 2 do triângulo: 8
Informe o lado 3 do triângulo: 2
O triângulo é escaleno

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

Algoritmo "Testa se um triângulo é equilátero, escaleno ou isósceles"

Var
  // variáveis usadas na resolução do problema
  lado1, lado2, lado3: real

Inicio
  // vamos ler os lados do triângulo
  escreva("Informe o lado 1 do triângulo: ")
  leia(lado1)
  escreva("Informe o lado 2 do triângulo: ")
  leia(lado2)
  escreva("Informe o lado 3 do triângulo: ")
  leia(lado3)

  // vamos testar se o triângulo é equilátero
  // os três lados iguais
  se (lado1 = lado2) e (lado2 = lado3) entao
    escreval("O triângulo é equilátaro.")
  senao
    // vamos testar se o triângulo é escaleno
    // os três lados diferentes
    se (lado1 <> lado2) e (lado1 <> lado3) e (lado2 <> lado3) entao
      escreval("O triângulo é escaleno")
    senao
      // vamos testar se o triângulo é isósceles
      // dois lados iguais e um diferente
      se (lado1 = lado2) ou (lado1 = lado3) ou (lado2 = lado3) entao
        escreval("O triângulo é isósceles")
      fimse
    fimse
  fimse
Fimalgoritmo

Informe o valor do carro sem desconto: 25000
Informe o ano do carro: 2010
Desconto concedido: 1750
Valor do carro com desconto: 23250
Deseja adicionar mais carros? [S, N]: S

Informe o valor do carro sem desconto: 30500
Informe o ano do carro: 1985
Desconto concedido: 3660
Valor do carro com desconto: 26840
Deseja adicionar mais carros? [S, N]: S

Informe o valor do carro sem desconto: 16800
Informe o ano do carro: 1990
Desconto concedido: 2016
Valor do carro com desconto: 14784
Deseja adicionar mais carros? [S, N]: N

Total de carros com ano até 2000: 2
Total geral a pagar: 64874

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

algoritmo "Cálculo de desconto nos preços de vários veículos"

var
  // variáveis usadas na resolução do problema
  valor_carro, valor_desconto, valor_carro_desconto: real
  total_geral: real
  ano: inteiro
  total_carros_ano_2000: inteiro
  resposta: caractere

inicio
  // vamos inicializar os valores de algumas variáveis
  total_geral <- 0
  total_carros_ano_2000 <- 0

  // repete até que o usuário informe o valor "N"
  repita
    // vamos ler o valor do carro sem desconto
    escreva("Informe o valor do carro sem desconto: ")
    leia(valor_carro)

    // vamos ler o ano do carro
    escreva("Informe o ano do carro: ")
    leia(ano)

    // o ano é menor ou igual a 2000
    se ano <= 2000 entao
      valor_desconto <- valor_carro * (12.0 / 100.0)
      // vamos somar mais este carro
      total_carros_ano_2000 <- total_carros_ano_2000 + 1
    senao
      valor_desconto <- valor_carro * (7.0 / 100.0)
    fimse

    // calculamos o valor do carro com o desconto
    valor_carro_desconto <- valor_carro - valor_desconto
    escreval("Desconto concedido: ", valor_desconto)
    escreval("Valor do carro com desconto: ", valor_carro_desconto)

    // somamos mais este valor ao total geral
    total_geral <- total_geral + valor_carro_desconto

    // perguntamos se o usuário deseja adicionar mais carros
    escreva("Deseja adicionar mais carros? [S, N]: ")
    leia(resposta)

    // adiciona uma quebra de linha
    escreval()
  ate resposta = "N"

  // mostramos os resultados
  escreval("Total de carros com ano até 2000: ", total_carros_ano_2000)
  escreval("Total geral a pagar: ", total_geral)

fimalgoritmo