VISUALG - EXEMPLOS 2 - ESTRUTURA DE CONDIÇÃO

Cada exemplo é um arquivo, que deverá ser salvo e apertar F9 para executar



EXEMPLO 1

// SOLICITE A DIGITACAO DE DUAS NOTAS DE UM ALUNO (REAL)
// CALCULE E MOSTRE A MEDIA
// SE A MEDIA FOR 6 OU MAIS, MOSTRE "APROVADO"
// SE FOR ABAIXO DE 6 MOSTRE "REPROVADO"

algoritmo "media-se"
var
nota1, nota2, media : real
inicio
escreva("Digite a primeira nota: ")
leia(nota1)
escreva("Digite a segunda nota: ")
leia(nota2)
media <- (nota1+nota2)/2
se (media >= 6) entao
   escreval("APROVADO")
senao
   escreval("REPROVADO")
fimse
fimalgoritmo

EXEMPLO 2

algoritmo "media escolar"
// digite 3 notas e calcule a média
var
nota1, nota2, nota3, media : real
// real aceita casas decimais como 9.7
inicio
escreva("Qual a 1a nota? ")
leia(nota1)
escreva("Qual a 2a nota? ")
leia(nota2)
escreva("Qual a 3a nota? ")
leia(nota3)
media <- (nota1 + nota2 + nota3)/3
escreval("A média é ", media:4:1)
// os numeros apos a variavel indicam
// a uantidade de caracteres e de casas
// decimais
fimalgoritmo

EXEMPLO 3

// CRIE UM PROGRAMA QUE CALCULA O VALOR
// A SER PAGO EM UM ESTACIONAMENTO
// DE ACORDO COM A TABELA ABAIXO:
// ATE 15 MINUTOS: GRATIS
// ACIMA DE 15 MINUTOS: 3,00 POR HORA
// INFORME O TEMPO EM **MINUTOS**

algoritmo "estacionamento 1"
var
tempo, valor : real
inicio
escreva("Digite o tempo (minutos): ")
leia(tempo)
se (tempo <= 15) entao
   escreval("Tarifa: GRÁTIS")
   escreval("VOLTE SEMPRE...")
   escreval("E FIQUE MAIS TEMPO! :)")
senao
   valor <- (tempo/60) * 3.00
   escreval("Tarifa: ", valor:3:2)
   escreval("OBRIGADO!")
fimse
fimalgoritmo

EXEMPLO 4

// uma empresa quer calcular o reajuste
// salarial dos funcionários.
// aqueles que ganham até R$ 900,00
// recebem 6% de aumento
// acima desse valor receberá 4%
// mostre na tela o percentual e novo salario

// novosalario <- salario + (salario * 4/100)
// novosalario <- salario + (salario * 0.04)
// novosalario <- salario * 1.04

algoritmo "aumento-salario"
var
salario, novosalario : real
inicio
escreva("Salario atual: ")
leia(salario)
se (salario<=900) entao
   novosalario<-salario*1.06
   escreval("Reajuste 6% = ", novosalario)
senao
   novosalario<-salario*1.04
   escreval("Reajuste 4% = ", novosalario)
fimse
fimalgoritmo

EXEMPLO 5

algoritmo "volume"

var
volume, raio, altura : real

inicio

escreval("Digite o raio: ")
leia(raio)

escreval("Digite a altura: ")
leia(altura)

volume <- pi * raio ^ 2 * altura

escreval("Volume = ", volume:7:2)  //7 digitos com 2 casas

fimalgoritmo

EXEMPLO 6

algoritmo "maior numero"
var
x, y : inteiro
inicio
escreva("Digite um numero: ")
leia(x)
escreva("Digite outro numero: ")
leia(y)
se(x = y) entao
   escreval("Sao iguais")
senao
   se(x>y) entao
      escreval("O maior é X = ", x)
   senao
      escreval("O maior é Y = ", y)
   fimse
fimse
fimalgoritmo

 EXEMPLO 7

algoritmo "media com recuperacao"
var
n1, n2, media : real
inicio
escreva("Primeira nota: ")
leia(n1)
escreva("Segunda nota: ")
leia(n2)
media <- (n1+n2)/2
se (media < 4) entao
   escreval("REPROVADO - média: ", media)
senao
   se (media < 6) entao
      escreval("RECUPERAÇÃO - média: ", media)
   senao
      escreval("APROVADO - média: ", media)
   fimse
fimse
fimalgoritmo


EXEMPLO 8

algoritmo "faixa valores"
var
x : inteiro
inicio
escreva("Digite um valor entre 1 e 9: ")
leia(x)

se (x >= 1) entao
   se (x <= 9 ) entao
      escreval("Seu numero está na faixa")
   senao
      escreval("Numero fora da faixa")
   fimse

senao
   escreval("Numero fora da faixa")
fimse

fimalgoritmo


EXEMPLO 9

algoritmo "faixa valores"
var
x : inteiro
inicio
escreva("Digite um valor entre 1 e 9: ")
leia(x)

se (x >= 1) entao
   se (x <= 9 ) entao
      escreval("Seu numero está na faixa")
   senao
      escreval("Numero fora da faixa")
   fimse

senao
   escreval("Numero fora da faixa")
fimse

fimalgoritmo


EXEMPLO 10

algoritmo "maior de 3"
var
n1, n2, n3 : inteiro
inicio
escreval("Digite 3 valores")
leia (n1, n2, n3)
se (n1>n2) entao
   se (n1>n3) entao
      escreval("O maior é n1 = ", n1)
   senao
      escreval("O maior é n3 = ", n3)
   fimse
senao
   se (n2 > n3) entao
      escreval("O maior é n2 = ", n2)
   senao
      escreval("O maior é n3 = ", n3)
   fimse
fimse
fimalgoritmo

EXEMPLO 11

algoritmo "revisao4"
// digite o valor de uma compra, digite o dinheiro
// fornecido pelo cliente, veja se o $ é suficiente
// calcule o troco.
// sabendo que o troco máximo é $20, informe
// se a compra poderá ser efetuada ou não.
var
valor, dinheiro, troco : real
inicio
escreva("Digite o VALOR da compra: ")
leia(valor)
escreva("Digite o DINHEIRO disponível: ")
leia(dinheiro)

se (dinheiro >= valor) entao
   troco <- dinheiro - valor
   se (troco <= 20) entao
      escreval("Compra realizada com sucesso!")
      escreval("Troco = ", troco)
   senao
      escreval("O troco máximo é $20.")
      escreval("Seu troco = ", troco)
     escreval("Não é possível finalizar a compra.")
   fimse
 
senao
     escreval("Dinheiro insuficiente!")
     escreval("Não é possível finalizar a compra.")
fimse

fimalgoritmo


EXEMPLO 12




algoritmo "media com recuperacao"
var
n1, n2, media : real
inicio
escreva("Primeira nota: ")
leia(n1)
escreva("Segunda nota: ")
leia(n2)
media <- (n1+n2)/2
se (media < 4) entao
   escreval("REPROVADO - média: ", media)
senao
   se (media < 6) entao
      escreval("RECUPERAÇÃO - média: ", media)
   senao
      escreval("APROVADO - média: ", media)
   fimse
fimse
fimalgoritmo

EXEMPLO 13




algoritmo "10-50"
var
numero: inteiro
inicio
escreva("Digite um valor abaixo de 10 ou acima de 50: ")
leia(numero)

se (numero < 10) OU (numero > 50) entao
   escreval("VALOR CORRETO")
senao
   escreval("VALOR INVÁLIDO")
fimse

fimalgoritmo

EXEMPLO 14




algoritmo "20a30"

var
numero: inteiro

inicio
escreva("Digite um numero entre 20 e 30: ")
leia(numero)

se (numero >= 20) e (numero <= 30) entao
   escreval("VALOR CORRETO")
senao
   escreval("VALOR INVÁLIDO")
fimse

fimalgoritmo

EXEMPLO 15




algoritmo "escolha"
var
opcao, v1, v2 : inteiro
inicio
escreval("Digite 2 valores: ")
leia(v1,v2)
escreval("MENU")
escreval("1 - SOMAR")
escreval("2 - SUBTRAIR")
escreva("Opção: ")
leia(opcao)
escolha (opcao)
  caso 1
     escreval("Soma = ", (v1+v2))
  caso 2
     escreval("Subtração = ", (v1-v2))
  outrocaso
     escreval("Opção inválida!")
fimescolha
fimalgoritmo

EXEMPLO 16




algoritmo "login"
var
login, senha : caractere
inicio
escreva("Login: ")
leia(login)
escreva("Senha: ")
leia(senha)

se (login = "joao") E (senha = "legal") entao
   escreval("ACESSO PERMITIDO!")
senao
   escreval("ACESSO NEGADO!")
fimse

fimalgoritmo

EXEMPLO 17

algoritmo "votacao"

var
numero : inteiro
inicio
escreva("Digite o numero do candidato: ")
leia(numero)
se (numero = 98) OU ( numero = 73) entao
   escreval("VOTO CONFIRMADO")
senao
   escreval("VOTO NULO")
fimse
fimalgoritmo

Comentários

Postar um comentário

Postagens mais visitadas deste blog

Blog - Professor Robinho - Lógica de Programação - VisualG

Imagem
PROFESSOR ROBINSON MAPELLI BOARO Olá Pessoal, este é um Blog que será criado para estudarmos alguns conteúdos voltados para Lógica de Programação onde utilizaremos o programa Visualg para ilustrar o desenvolvimento lógico já através de uma estrutura de linguagem portugol. Este conteúdo será disponibilizados para todos os meus alunos. Basta clicar em LEIA MAIS, que aparecerá as opções: Visualg CONCEITO A lógica de programação consiste de um algoritmo que dá instruções ao computador para resolver um determinado problema ou satisfazer uma necessidade do usuário final vejamos um exemplo: Essa sequência lógica de instruções que devemos passar antes de chegar ao resultado final é o que chamamos de algoritmo. Antes de tudo escolheremos um ambiente para o desenvolvimento, começaremos com um programa simples e fácil de desenvolver, o  Visualg. Todos os comandos aqui estão em português o que ajudará a entender os mecanismos de programação, e como funciona a comunica...
Leia mais