Exercícios em pascal para visualg de lógica de programação para iniciantes

Por

Este material apresenta uma coleção de exercícios em Pascal para o VisuAlg, voltados para iniciantes em lógica de programação. Com desafios progressivos e explicações claras, os exercícios ajudam a desenvolver o raciocínio lógico, a compreensão de variáveis, estruturas de controle e algoritmos fundamentais. Ideal para quem está começando e deseja aprender de forma prática e intuitiva!

Baixe o programa do Visualg:

https://sourceforge.net/projects/visualg30/

Estruturas de Decisão (SE…ENTAO)
Às vezes, queremos que o programa tome decisões com base em uma condição. Para isso, usamos o comando se … entao … senao.
Exemplo: Verificar se um número é positivo ou negativo
var
   numero: inteiro
inicio
   escreva(“Digite um número: “)
   leia(numero)
   se numero > 0 entao
      escreval(“O número é positivo.”)
   senao
      escreval(“O número é negativo ou zero.”)
   fimse
fimalgoritmo
=====================
🔹 se … entao → Verifica uma condição.
🔹 senao → Executa outra ação se a condição for falsa.
🔹 fimse → Finaliza a estrutura de decisão.
Desafio: Verificar se um aluno passou de ano
Crie um programa que leia uma nota e diga se o aluno passou (nota >= 6) ou reprovou.
==================
Estruturas de Repetição (ENQUANTO…FACA)
Se quisermos repetir um bloco de código várias vezes, podemos usar o enquanto … faca.
Exemplo: Contar de 1 a 5
var
   contador: inteiro
inicio
   contador <- 1
   enquanto contador <= 5 faca
      escreval(“Número: “, contador)
      contador <- contador + 1
   fimenquanto
fimalgoritmo
=============
🔹 enquanto condição faca → Executa o bloco enquanto a condição for verdadeira.
🔹 fimenquanto → Finaliza o loop.
8️⃣ Estrutura de Repetição COM CONTADOR (PARA…ATE)
Se sabemos quantas vezes algo deve acontecer, podemos usar o para … ate … faca.
================
Exemplo: Contar de 1 a 10
inicio
   para i de 1 ate 10 faca
      escreval(“Número: “, i)
   fimpara
fimalgoritmo
===========
inicio
   para i de 1 ate 10 faca
      escreval(“Número: “, i)
   fimpara
fimalgoritmo
==============
Desafio Final! 🚀
Crie um programa que:
✅ Peça para o usuário digitar um número.
✅ Conte de 1 até esse número usando para … ate.

Lógica de programação para iniciantes

algoritmo “Exemplos_Logica_Programacao”
var
    numero, soma, i, fatorial, a, b, temp, base, expoente, resultado, contador, num1, num2, resto, n, maior, menor, media, qtd, idade, totalAlunos, positivos, negativos, impar, par, j, matriz[3,3], vetor[10]: inteiro
    nome, texto, palavra, invertida: caractere
    mediaReal, preco, taxa, montante: real
inicio
    // Exemplo 2: Verificar se um número é par ou ímpar
    escreva(“\nDigite um número: “)
    leia(numero)
    se numero mod 2 = 0 entao
        escreva(“O número é par.”)
    senao
        escreva(“O número é ímpar.”)
    fimse
    // Exemplo 3: Calcular o fatorial de um número
    escreva(“\nDigite um número para calcular o fatorial: “)
    leia(n)
    fatorial <- 1
    para i de 1 ate n faca
        fatorial <- fatorial * i
    fimpara
    escreva(“O fatorial de “, n, ” é “, fatorial)
    // Exemplo 4: Contar de 1 até um número digitado
    escreva(“\nDigite um número para contar até ele: “)
    leia(n)
    para i de 1 ate n faca
        escreva(i, ” “)
    fimpara
    // Exemplo 5: Tabuada de um número
    escreva(“\nDigite um número para ver a tabuada: “)
    leia(n)
    para i de 1 ate 10 faca
        escreva(n, ” x “, i, ” = “, n * i)
    fimpara
    // Exemplo 6: Média de três números
    escreva(“\nDigite três números: “)
    leia(num1, num2, num3)
    media <- (num1 + num2 + num3) / 3
    escreva(“A média é: “, media)
    // Exemplo 7: Verificar se um número é positivo, negativo ou zero
    escreva(“\nDigite um número: “)
    leia(numero)
    se numero > 0 entao
        escreva(“O número é positivo.”)
    senao se numero < 0 entao
        escreva(“O número é negativo.”)
    senao
        escreva(“O número é zero.”)
    fimse
    // Exemplo 8: Contagem regressiva
    escreva(“\nDigite um número para iniciar a contagem regressiva: “)
    leia(n)
    para i de n ate 1 passo -1 faca
        escreva(i, ” “)
    fimpara
    // Exemplo 9: Cálculo de área de um círculo
    escreva(“\nDigite o raio do círculo: “)
    leia(numero)
    resultado <- 3.14 * numero * numero
    escreva(“A área do círculo é: “, resultado)
    // Exemplo 10: Converter idade em dias
    escreva(“\nDigite sua idade em anos: “)
    leia(idade)
    resultado <- idade * 365
    escreva(“Você viveu aproximadamente “, resultado, ” dias.”)
    // Exemplo 11: Soma dos números de 1 a N
    escreva(“\nDigite um número: “)
    leia(n)
    soma <- 0
    para i de 1 ate n faca
        soma <- soma + i
    fimpara
    escreva(“A soma de 1 a “, n, ” é “, soma)
    // Exemplo 12: Encontrar o maior entre dois números
    escreva(“\nDigite dois números: “)
    leia(num1, num2)
    se num1 > num2 entao
        escreva(“O maior número é: “, num1)
    senao
        escreva(“O maior número é: “, num2)
    fimse
    // Exemplo 13: Verificar se um ano é bissexto
    escreva(“\nDigite um ano: “)
    leia(numero)
    se (numero mod 4 = 0 e numero mod 100 <> 0) ou (numero mod 400 = 0) entao
        escreva(“O ano é bissexto.”)
    senao
        escreva(“O ano não é bissexto.”)
    fimse

Deixe um comentário