28 de nov. de 2013

Como mudar o tema do Jframe no Netbeans - Visualizar Desenho

Com esse tutorial você poderá mudar a aparência do seu Jframe no Netbeans. Nele, ao criar o seu Jframe, a aparência do programa, quando executada, não é semelhante a aparência que você vê ao editar através do componente swing, isso ocorre devido ao fato de que o Netbeans possui alguns temas e ao executar o projeto o tema padrão não é o mesmo que você está usando. 

Para ver os temas disponíveis, clique com o botão direito no seu Jframe e selecione "Visualizar desenho", aparecerá uma pequena lista de temas clique em um e seu Jframe será aberto utilizando aquele tema, mas ao ser executado esse tema não será o padrão, sendo assim você deverá adicionar alguns códigos no seu Jframe para que ao ser executado ele mude para esse outro tema.



Lista dos temas disponíveis
Para fazer com que seu projeto execute com o mesmo tema que você edita o Jframe adicione o tema "Normal" 
 
NOME DO TEMA: Normal (O que você vê ao editar o Jframe)

     try {             
UIManager.setLookAndFeel(UIManager.getSystemLookAndFeelClassName());   
                 } catch (ClassNotFoundException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (InstantiationException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (IllegalAccessException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (UnsupportedLookAndFeelException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                }
         

---------------------------------------------------------------------------------------
NOME DO TEMA: CDE
        try {      
UIManager.setLookAndFeel("com.sun.java.swing.plaf.motif.MotifLookAndFeel"); 
                 } catch (ClassNotFoundException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (InstantiationException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (IllegalAccessException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (UnsupportedLookAndFeelException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                }

            ---------------------------------------------------------------------------------------
NOME DO TEMA: Clássico

      try {                  

  UIManager.setLookAndFeel("com.sun.java.swing.plaf.windows.WindowsClassicLookAndFeel");
                 } catch (ClassNotFoundException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (InstantiationException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (IllegalAccessException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (UnsupportedLookAndFeelException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                }
 

 ---------------------------------------------------------------------------------------
NOME DO TEMA: Metal 
 
   try {                   
UIManager.setLookAndFeel("javax.swing.plaf.metal.MetalLookAndFeel");           
         } catch (ClassNotFoundException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (InstantiationException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (IllegalAccessException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (UnsupportedLookAndFeelException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                }


---------------------------------------------------------------------------------------
NOME DO TEMA: Nimbus
             

     try {
  UIManager.setLookAndFeel("com.sun.java.swing.plaf.nimbus.NimbusLookAndFeel");   
                 } catch (ClassNotFoundException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (InstantiationException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (IllegalAccessException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                } catch (UnsupportedLookAndFeelException ex) {
                    Logger.getLogger(Tela.class.getName()).log(Level.SEVERE, null, ex);
                }
  


Como mudar o tema no Java
Até agora você viu que o java traz alguns temas que você pode usar na sua aplicação, mas não viu como adicionar ele ao projeto. Para adicionar alguns do temas citados acima, você pode ir no código fonte do projeto e procurar pelo método public void run()  nele você pode adicionar algum dos códigos de cada tema. Além disso, para deixar sua aplicação mais dinâmica você pode adicionar um menu para que o usuário possa mudar o tema.

Tópicos relacionados:

Como mudar tema Jframe em java Netbeans;
Jframe executa com tema diferente;
Aparência do Jframe muda ao executar projeto;
Como mudar "visualizar desenho" no Netbeans;

1 de abr. de 2013

Algoritmo Visualg imprime qual o tipo de triângulo

33. Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno.

Propriedade: o comprimento de cada lado de um triângulo é menor do que a soma dos comprimentos dos outros dois lados.

Triângulo Equilátero: aquele que tem os comprimentos dos três lados iguais;
Triângulo Isóscele: aquele que tem os comprimentos de dois lados iguais. Portanto, todo triângulo equilátero é também isóscele;
Triângulo Escaleno: aquele que tem os comprimentos de seus três lados diferentes.
 
Veja abaixo o código do algoritmo 

algoritmo "ex33"
// Função : Escrever um algoritmo que leia três valores inteiros e verifique se eles podem ser os lados de um triângulo. Se
            // forem, informar qual o tipo de triângulo que eles formam: equilátero, isóscele ou escaleno
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
la, lb, lc, triangulo: inteiro
inicio
// Seção de Comandos
escreva("Digite o lado A do triângulo: ")
leia(la)
escreva("Digite o lado B do triângulo: ")
leia(lb)
escreva("Digite o lado C do triângulo: ")
leia(lc)

se la < (lc+lb) entao
    triangulo <- 1
senao
    se lb < (lc + la) entao
        triangulo <- 1
    senao
        se lc < (lb + la) entao
            triangulo <- 1
        fimse
    fimse
fimse

se triangulo = 1 entao
    se la = lb entao
        se lb = lc entao
            escreval("É um triângulo equilátero!")
        senao
            escreval("É um triângulo isórcele")
        fimse
    senao
        se lb = lc entao
            escreval("É um triângulo isórcele")
        senao
            escreval("É um triângulo escaleno")
        fimse
    fimse
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

27 de mar. de 2013

Algoritmo Visualg calcula peso ideal de uma pessoa

37. Faça um algoritmo que leia o nome, o sexo, a altura e a idade de uma pessoa. Calcule e mostre nome e o seu peso ideal de acordo com as seguintes características da pessoa: Visualg - Portugol


Veja abaixo o código do algoritmo:


algoritmo "ex37"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome, sexo: caractere
idade, x: inteiro
altura, peso: real

inicio
// Seção de Comandos
escreva("Digite o nome: ")
leia(nome)
x <- 1
enquanto x = 1 faca
    escreva("Digite o sexo (F/M): ")
    leia(sexo)
    se sexo = "F" entao
        x <- 0
    fimse
    se sexo = "M" entao
        x <- 0
    fimse
fimenquanto
escreva("Digite a altura: ")
leia(altura)
escreva("Digite a idade: ")
leia(idade)
se sexo = "M" entao
    se altura > 1.70 entao
        se idade <= 20 entao
            peso <- (72.7 * altura) - 58
        senao
            se idade <= 39 entao
                peso <- (72.7 * altura) - 53
            senao
                peso <- (72.7 * altura) - 45
            fimse
        fimse
    senao
        se altura <= 1.70 entao
            se idade <= 40 entao
                peso <- (72.7 * altura) - 50
            senao
                peso <- (72.7 * altura) - 58
            fimse
        fimse
    fimse
senao
    se altura > 1.50 entao
        peso <- (62.1 * altura) - 44.7
    senao
        se idade >= 35 entao
            peso <- (62.1 * altura) - 45
        senao
            peso <- (62.1 * altura) - 49
        fimse
    fimse
fimse

limpatela
escreval("Nome: ",nome)
escreval("Peso Ideal: ",peso)

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

13 de mar. de 2013

Algoritmo Visualg escreve números em ordem crescente

31. Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex31"
// Função : Escrever um algoritmo que leia três valores inteiros distintos e os escreva em ordem crescente
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
num1, num2, num3: inteiro
ordena: vetor[1..3] de inteiro

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(num1)
escreva("Digite o segundo número: ")
leia(num2)
escreva("Digite o terceiro número: ")
leia(num3)

se num1 > num2 entao
    ordena[3] <- num1
    ordena[2] <- num2
    se num3 > num1 entao
        ordena[3] <- num3
        ordena[2] <- num1
        ordena[1] <- num2
    senao
        se num3 > num2 entao
            ordena[3] <- num1
            ordena[2] <- num3
            ordena[1] <- num2
        senao
            ordena[3] <- num1
            ordena[2] <- num2
            ordena[1] <- num3
        fimse
    fimse
senao
    ordena[3] <- num2
    ordena[2] <- num1
    se num3 > num2 entao
        ordena[3] <- num3
        ordena[2] <- num2
        ordena[1] <- num1
    senao
        se num3 > num1 entao
            ordena[3] <- num2
            ordena[2] <- num3
            ordena[1] <- num1
        senao
            ordena[3] <- num2
            ordena[2] <- num1
            ordena[1] <- num3
        fimse
    fimse
fimse

escreval("Os números em ordem crescente são: ")
escreval(">",ordena[1])
escreval(">",ordena[2])
escreval(">",ordena[3])
fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

9 de mar. de 2013

Algoritmo Visualg condição composta

Tutorial de como criar um algoritmo em portugol no visualg, adicionando estrutura de condição composta.

Crie um algoritmo que receba 2 números e a operação que será executada sobre eles (soma, subtração, multiplicação ou divisão). Calcule e imprima o resultado da operação.

algoritmo "semnome"
// Função :
// Autor :douglasboza.blogspot.com
// Data : 09/03/2013
// Seção de Declarações
var
n1,n2:real
op: caracter
inicio
// Seção de Comandos
escreva ("Digite o primeiro número :")
leia (n1)

escreva ("Digite o segundo número :")
leia (n2)

escreva ("digite a operação :")
leia (op)

se (op="soma") entao
escreva (n1+n2)
senao
se (op="subt") entao
escreva (n1-n2)
senao
se (op="mult") entao
escreva (n1*n2)
senao
se (op="divi") entao
escreva (n1/n2)
fimse
fimse
fimse
fimse


fimalgoritmo


Vídeo Tutorial

Algoritmo visualg com condição

Nessa postagem estarei ensinando como criar um algoritmo em portugol com estrutura de repetição simples.

Algoritmo que calcula a velocidade média e escreve se é maior ou menor que 80.

algoritmo "semnome"
// Função :
// Autor : douglasboza.blogspot.com
// Data : 09/03/2013
// Seção de Declarações
var
distan:real
tempo:real
aux:real

inicio
escreva ("Digite a distancia : ")
leia (distan)

escreva ("Tempo : ")
leia (tempo)
aux := (distan/tempo)

se (aux>=80) entao
escreva ("Velocidade alta")
senao
escreva ("Velocidade baixa")
fimse
escreval (aux)
fimalgoritmo



Vídeo Tutorial

24 de fev. de 2013

Algoritmo Visualg imprime nome estudante

39. Dado o nome de um estudante, com o respectivo número de matrícula e as três notas acima mencionadas, desenvolva um algoritmo para calcular a nota final e a classificação de cada estudante. A classificação é dada conforme a tabela abaixo: Visualg - Portugol

Nota Final Classificação
[8,10] A
[7,8] B
[6,7] C
[5,6] D
[0,5] R
Imprima o nome do estudante, com o seu número, nota final e classificação.

Veja abaixo o código do algoritmo: 

algoritmo "ex39"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
idade, grupo: inteiro
nome, grupoRisco: caractere
inicio
// Seção de Comandos
escreva("Digite o nome: ")
leia(nome)
escreva("Digite a idade: ")
leia(idade)
escreval("Informe o Grupo de risco: ")
escreval("(B)aixo / (M)édio / (A)lto ")
leia(grupoRisco)

se (idade >= 17) e (idade <= 70) entao

se idade <= 20 entao
    escolha grupoRisco
        caso "B"
            grupo <- 1
        caso "M"
            grupo <- 2
        caso "A"
            grupo <- 3
    fimescolha
senao
    se idade <= 24 entao
        escolha grupoRisco
            caso "B"
                grupo <- 2
            caso "M"
                grupo <- 3
            caso "A"
                grupo <- 4
        fimescolha
    senao
        se idade <= 34 entao
            escolha grupoRisco
                caso "B"
                    grupo <- 3
                caso "M"
                    grupo <- 4
                caso "A"
                    grupo <- 5
            fimescolha
        senao
            se idade <= 64 entao
                escolha grupoRisco
                    caso "B"
                        grupo <- 4
                    caso "M"
                        grupo <- 5
                    caso "A"
                        grupo <- 6
                fimescolha
            senao
                escolha grupoRisco
                    caso "B"
                        grupo <- 2
                    caso "M"
                        grupo <- 3
                    caso "A"
                        grupo <- 4
                fimescolha
            fimse
        fimse
    fimse
fimse

senao
    escreval("Idade fora da cobertura!")
fimse

escreval("Nome: ",nome)
escreval("Idade: ",idade)
escreval("Categoria: ",grupo)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

17 de fev. de 2013

Algoritmo Visualg notas de curso

38. Em um curso de Ciência da Computação a nota do estudante é calculada a partir de três notas atribuídas,respectivamente, a um trabalho de laboratório, a uma avaliação semestral e a um exame final. As notas variam, de 0 a 10 e a nota final é a média ponderada das três notas mencionadas. A tabela abaixo fornece os pesos:
Avaliação semestral Peso 3
Exame final Peso 5

Veja abaixo o código do algoritmo:
  algoritmo "ex38"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nota1, nota2, nota3: real
media: real
nome, classificacao: caractere
matricula: inteiro

inicio
// Seção de Comandos
escreva("Digite o nome: ")
leia(nome)
escreva("Informe a matrícula: ")
leia(matricula)
escreva("Digite a nota do trabalho de laboratório: ")
leia(nota1)
escreva("Digite a nota da avaliação semestral: ")
leia(nota2)
escreva("Digite a nota do exame final: ")
leia(nota3)

media <- ((nota1 * 2) + (nota2 * 3) + (nota3 * 5))/10

se media >= 8.10 entao
    classificacao <- "A"
senao
    se media >= 7.8 entao
        classificacao <- "B"
    senao
        se media >= 6.7 entao
            classificacao <- "C"
        senao
            se media >= 5.6 entao
                classificacao <- "D"
            fimse
        fimse
    fimse
fimse
se media < 5.6 entao
    classificacao <- "R"
fimse

limpatela
escreval("Nome: ",nome)
escreval("Matrícula: ",matricula)
escreval("Nota final: ",media)
escreval("Classificação: ",classificacao)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

10 de fev. de 2013

Algoritmo Visualg classificação dos seguros

40- Uma Companhia de Seguros possui nove categorias de seguro baseadas na idade e ocupação do segurado. Somente pessoas com pelo menos 17 anos e não mais de 70 anos podem adquirir apólices de seguro. Quanto às classes de ocupações, foram definidos três grupos de risco. A tabela abaixo fornece as categorias em função da faixa etária e do grupo de risco. Dados nome, idade e grupo de risco, determinar a categoria do pretendente à aquisição de tal seguro. Imprimir o nome a idade e a categoria do pretendente, e , caso a idade não esteja na faixa necessária, imprimir uma mensagem. Visualg - Portugol


Veja abaixo o código do algoritmo:
algoritmo "ex40"
// Função :
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
mat1: vetor[1..4,1..4] de inteiro
mat2: vetor[1..4,1..4] de inteiro
x, y: inteiro
soma1, soma2: inteiro

inicio
// Seção de Comandos

// Recebimento dos valores da matriz
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        escreva("Digite o valor",x,"-",y,": ")
        leia(mat1[x,y])
    fimpara
fimpara

// Troca entre as posições entre duas matrizes
para x de 1 ate 4 faca
    mat2[1,x] <- mat1[4,x]
    mat2[4,x] <- mat1[1,x]
fimpara

para x de 1 ate 4 faca
    mat2[2,x] <- mat1[2,x]
    mat2[3,x] <- mat1[3,x]
fimpara

// Impressão dos valores das matrizes
limpatela
escreval("Matriz original: ")
para x de 1 ate 4 faca
    escreval(mat1[x,1],mat1[x,2],mat1[x,3],mat1[x,4])
fimpara
escreval("Matriz modificada: ")
para x de 1 ate 4 faca
    escreval(mat2[x,1],mat2[x,2],mat2[x,3],mat2[x,4])
fimpara
escreval("")

// Soma entre os termos das matrizes
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        soma1 <- soma1 + mat1[x,y]
    fimpara
fimpara
para x de 1 ate 4 faca
    para y de 1 ate 4 faca
        soma2 <- soma2 + mat2[x,y]
    fimpara
fimpara

// Resultado final
escreval("")
escreval("Soma da matriz 1 + matriz 2 = ",soma1+soma2)
escreval("Soma dos valores da matriz 1 menos a soma da matriz 2 = ",soma1-soma2)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

9 de fev. de 2013

Algoritmo Visualg reajuste de salário

28. Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os seguintes critérios:
a) 50% para aqueles que ganham menos do que três salários mínimos;
b) 20% para aqueles que ganham entre três até dez salários mínimos;
c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
d) 10% para os demais funcionários.
 
Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever onome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex28"
// Função : Escrever um algoritmo para uma empresa que decide dar um reajuste a seus 584 funcionários de acordo com os
            // seguintes critérios:
               // a) 50% para aqueles que ganham menos do que três salários mínimos;
               // b) 20% para aqueles que ganham entre três até dez salários mínimos;
               // c) 15% para aqueles que ganham acima de dez até vinte salários mínimos;
               // d) 10% para os demais funcionários.
            // Leia o nome do funcionário, seu salário e o valor do salário mínimo. Calcule o seu novo salário reajustado. Escrever o
               // nome do funcionário, o reajuste e seu novo salário. Calcule quanto à empresa vai aumentar sua folha de pagamento.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
salarioMinimo, novoSalario, reajuste, reajusteTotal, folha, novaFolha, calc, salario: real
nome, opc: caractere
x: inteiro

inicio
// Seção de Comandos
opc <- "x"
escreval("<><><><><> Sistema de reajuste salarial <><><><><>")
escreva("Digite o valor atual do salário mínimo: ")
leia(salarioMinimo)
para x de 1 ate 584 faca
    limpatela
    escreva("Digite o nome: ")
    leia(nome)
    escreva("Digite o salário: ")
    leia(salario)
    calc <- salarioMinimo * 3
    se salario < calc entao
        reajuste <- 0.50 // Reajuste de 50%
        reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
        folha <- folha + salario // Folha de pagamento antiga
        novoSalario <- salario + (reajuste * salario) // Salário reajustado
        novaFolha <- novaFolha + novoSalario // Nova folha de pagamento
       
        limpatela
        escreval(">>> Nome: ",nome)
        escreval(">>> Reajuste = 50%: ",reajuste*salario)
        escreval(">>> Novo salário: ",novoSalario)
        escreval(">>> Tecle enter para continuar...")
        leia(opc)
    senao
        calc <- salarioMinimo * 10
        se salario <= calc entao
            reajuste <- 0.20 // Reajuste de 20%
            reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
            folha <- folha + salario // Folha de pagamento antiga
            novoSalario <- salario + (reajuste * salario) // Salário reajustado
            novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

            limpatela
            escreval(">>> Nome: ",nome)
            escreval(">>> Reajuste = 20%: ",reajuste*salario)
            escreval(">>> Novo salário: ",novoSalario)
            escreval(">>> Tecle enter para continuar...")
            leia(opc)
        senao
            calc <- salarioMinimo * 20
            se salario <= calc entao
                reajuste <- 0.15 // Reajuste de 15%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 15%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            senao
                reajuste <- 0.10 // Reajuste de 10%
                reajusteTotal <- reajuste + (reajuste * salario) // Valor total de reajuste
                folha <- folha + salario // Folha de pagamento antiga
                novoSalario <- salario + (reajuste * salario) // Salário reajustado
                novaFolha <- novaFolha + novoSalario // Nova folha de pagamento

                limpatela
                escreval(">>> Nome: ",nome)
                escreval(">>> Reajuste = 10%: ",reajuste*salario)
                escreval(">>> Novo salário: ",novoSalario)
                escreval(">>> Tecle enter para continuar...")
                leia(opc)
            fimse
        fimse
    fimse
fimpara
escreval("")
escreval("A empresa aumentou a folha de pagamento em:",novaFolha - folha," Reais")

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

27 de jan. de 2013

Algoritmo Visualg informa se pessoa está apta a serviços

21. Escrever um algoritmo que leia os dados de “N” pessoas (nome, sexo, idade e saúde) e informe se está apta ou não para cumprir o serviço militar obrigatório. Informe os totais. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex21"
// Função : Escrever um algoritmo que leia os dados de N pessoas (nome, sexo, idade e saúde) e informe se está apta ou não
            // para cumprir o serviço militar obrigatório. Informe os totais.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, idade, apto: inteiro
nome, sexo, saude, opc: caractere
totApto, total: inteiro
inicio
// Seção de Comandos
programa <- 1
enquanto programa = 1 faca
    limpatela
    apto <- 1
    saude <- "B"
    total <- total + 1
    escreva("Digite o nome: ")
    leia(nome)
    escreva("Digite o sexo (M/F): ")
    leia(sexo)
    escreva("Digite a idade: ")
    leia(idade)
    se idade < 18 entao
        apto <- 0
    fimse
    escreval("Digite o estado de saúde: ")
    escreva("(B) Bom - (R) - Ruim - ")
    leia(saude)
    se saude = "R" entao
        apto <- 0
    senao
        se saude <> "B" entao
            apto <- 0
        fimse
    fimse
    se apto = 1 entao
        totApto <- totApto + 1
    fimse
    escreval("Deseja continuar filtrando (S/N)? ")
    leia(opc)
    se opc = "N" entao
        programa <- 0
    fimse
fimenquanto
limpatela
escreval("Resumo geral: ")
escreval("Foram filtrados: ",total," pessoas")
escreval("Aptos: ",totApto)
escreval("")

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

24 de jan. de 2013

Algoritmo Visualg preço de custo e de venda

 22. Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex22"
// Função : Faça um algoritmo que receba o preço de custo e o preço de venda de 40 produtos. Mostre como resultado se
            // houve lucro, prejuízo ou empate para cada produto. Informe media de preço de custo e do preço de venda.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x: inteiro
precoVenda, precoCusto: real
mediaCusto, mediaVenda: real

inicio
// Seção de Comandos
para x de 1 ate 40 faca
    limpatela
    escreva("Digite o preço de custo: ")
    leia(precoCusto)
    mediaCusto <- mediaCusto + precoCusto
    escreva("Digite o preço de venda: ")
    leia(precoVenda)
    mediaVenda <- mediaVenda + precoVenda
   
    se precoVenda < precoCusto entao
        escreval("Houve prejuízo na venda")
    senao
        se precoVenda = precoCusto entao
            escreval("Houve empate na venda")
        fimse
        se precoVenda > precoCusto entao
            escreval("Houve lucro na venda")
        fimse
    fimse
   
fimpara

limpatela
escreval("A média de preço de custo foi: ",mediaCusto/40)
escreval("A média de preço de venda foi: ",mediaVenda/40)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

23 de jan. de 2013

Algoritmo Visualg mostra informações funcionário

30. Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:


Veja abaixo o código do algoritmo:

algoritmo "ex30"
// Função : Faça um algoritmo que receba o nome a idade, o sexo e salário fixo de um funcionário. Mostre o nome e o salário líquido:
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome, sexo: caractere
idade, x: inteiro
salario: real

inicio
// Seção de Comandos
escreva("Digite o nome do funcionário: ")
leia(nome)
x <- 1
enquanto x = 1 faca
    escreva("Digite o sexo (F/M): ")
    leia(sexo)
    se sexo <> "F" entao
        se sexo <> "M" entao
            x <- 1
        senao
            x <- 0
        fimse
    senao
        x <- 0
    fimse
fimenquanto
escreva("Digite a idade: ")
leia(idade)
escreva("Digite o salário: ")
leia(salario)
se sexo = "M" entao
    se idade >= 30 entao
        salario <- salario + 100
    senao
        salario <- salario + 50
    fimse
senao
    se idade >= 30 entao
        salario <- salario + 200
    senao
        salario <- salario + 80
    fimse
fimse
limpatela

escreval(">>> Nome: ",nome)
escreval(">>> Salário: ",salario)

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

22 de jan. de 2013

Algoritmo Visualg diz se número é maior que outro

 23. Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor que 25 ou igual a 40. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex23"
// Função : Faça um algoritmo que receba um número e mostre uma mensagem caso este número sege maior que 80, menor
            // que 25 ou igual a 40.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro

inicio
// Seção de Comandos
escreva("Digite um número: ")
leia(numero)

se numero > 80 entao
    escreval("O número é maior que 80")
senao
    se numero < 25 entao
        escreval("O número é menor que 25")
    senao
        se numero = 40 entao
            escreval("O número é igual a 40")
        fimse
    fimse
fimse

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

16 de jan. de 2013

Algoritmo Visualg separe números positivos e negativos

 24. Faça um algoritmo que receba “N” números e mostre positivo, negativo ou zero para cada número. Visualg - Portugol

Veja abaixo o código do algoritmo
algoritmo "ex24"
// Função : Faça um algoritmo que receba N números e mostre positivo, negativo ou zero para cada número.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, numero: inteiro
opc: caractere

inicio
// Seção de Comandos
programa <- 1
enquanto programa = 1 faca
    limpatela
    escreva("Digite um número: ")
    leia(numero)
    se numero > 0 entao
        escreval("Positivo")
    senao
        se numero = 0 entao
            escreval("O número é igual a 0")
        fimse
        se numero < 0 entao
            escreval("Negativo")
        fimse
    fimse


    escreva("Deseja finalizar? (S/N) ")
    leia(opc)
    se opc = "S" entao
        programa <- 0
    fimse

fimenquanto

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

15 de jan. de 2013

Algoritmo Visualg desconto de carro

27. A concessionária de veículos “CARANGO” está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente. O desconto deverá ser calculado sobre o valor do veículo de acordo com o combustível (álcool – 25%, gasolina – 21% ou diesel –14%). Com valor do veículo zero encerra entrada de dados. Informe total de desconto e total pago pelos clientes.

Veja abaixo o código do algoritmo

algoritmo "ex27"
// Função : A concessionária de veículos CARANGO está vendendo os seus veículos com desconto. Faça um algoritmo que
            // calcule e exiba o valor do desconto e o valor a ser pago pelo cliente. O desconto deverá ser calculado sobre o valor
            // do veículo de acordo com o combustível (álcool \u2013 25%, gasolina \u2013 21% ou diesel \u201314%). Com valor do veículo zero
            // encerra entrada de dados. Informe total de desconto e total pago pelos clientes.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
desconto, valorPago, valorVeiculo: real
totalDesconto, totalPago: real
combustivel, opc: caractere

inicio
// Seção de Comandos
valorVeiculo <- 1
opc <- "x"
enquanto valorVeiculo <> 0 faca
    limpatela
    escreva("Digite o valor do veículo: ")
    leia(valorVeiculo)
    se valorVeiculo <> 0 entao
        escreval("Digite o combustível")
        escreva("(G)asolina / (A)lcool / (D)iesel: ")
        leia(combustivel)
        escolha combustivel
            caso "A"
                desconto <- 0.25 * valorVeiculo
            caso "G"
                desconto <- 0.21 * valorVeiculo
            caso "D"
                desconto <- 0.14 * valorVeiculo
            outrocaso
                escreval("Combustível inválido!")
                escreval("Não haverão descontos!")
                desconto <- 0
        fimescolha
        valorPago <- valorVeiculo - desconto
        totalDesconto <- totalDesconto + desconto
        totalPago <- totalPago + valorPago
        escreval("Desconto no veículo: ",desconto)
        escreval("Valor total a ser pago: ",valorPago)
        escreval("Tecle enter para continuar...")
        leia(opc)
    fimse
fimenquanto
limpatela
escreval("Resumo geral: ")
escreval("Total de descontos: ",totalDesconto)
escreval("Total Pago pelos clientes: ",totalPago)

fimalgoritmo

  Para ver mais exercícios do visualg clique aqui.

14 de jan. de 2013

Algoritmo Visualg imprimi resultado operação A por B

32. Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma mensagem de operador não definido. Tratar erro de divisão por zero. Visualg - Portugol

Veja abaixo o código do algoritmo

algoritmo "ex32"
// Função : Dados três valores A, B e C, em que A e B são números reais e C é um caractere, pede-se para imprimir o resultado
            // da operação de A por B se C for um símbolo de operador aritmético; caso contrário deve ser impressa uma
            // mensagem de operador não definido. Tratar erro de divisão por zero.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
A, B: real
C: caractere

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(A)
escreva("Digite o segundo número: ")
leia(B)
escreva("Digite a operação desejada (+ - / *): ")
leia(C)
escolha C
    caso "+"
        escreval("A+B =",A+B)
    caso "-"
        escreval("A-B =",A-B)
    caso "*"                                                  =
        escreval("A*B =",A*B)
    caso "/"
        se B = 0 entao
            escreval("Erro, um número não pode ser dividido por 0!")
        senao
            escreval("A/B =",A/B)
        fimse
    outrocaso
        escreval("Operador não definido!")
fimescolha
fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg exibe salário professor

34. A escola “APRENDER” faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o salário de um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
Visualg - Portugol
Professor Nível 1 R$12,00 por hora/aula
Professor Nível 2 R$17,00 por hora/aula
Professor Nível 3 R$25,00 por hora/aula

Veja abaixo o código do algoritmo
algoritmo "ex34"
// Função : A escola \u201cAPRENDER\u201d faz o pagamento de seus professores por hora/aula. Faça um algoritmo que calcule e exiba o
            // salário de um professor. Sabe-se que o valor da hora/aula segue a tabela abaixo:
            // Professor Nível 1 R$12,00 por hora/aula
            // Professor Nível 2 R$17,00 por hora/aula
            // Professor Nível 3 R$25,00 por hora/aula
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nivel, horas: inteiro
inicio
// Seção de Comandos
escreval(">>>>> Escola APRENDER <<<<<")
escreva("Digite o nível do professor (1/2/3): ")
leia(nivel)
escreva("Digite o número de horas trabalhadas: ")
leia(horas)

se nivel = 1 entao
    escreval("O professor ganha",horas*12)
senao
    se nivel = 2 entao
        escreval("O professor ganha",horas*17)
    senao
        escreva("O professor ganha",horas*25)
    fimse
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg escreve número por extenso

26. Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso. Caso o usuário digite um número que não esteja neste intervalo, exibir mensagem: número inválido.  Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex26"
// Função : Faça um algoritmo que leia um número de 1 a 5 e escreva por extenso. Caso o usuário digite um número que não
            // esteja neste intervalo, exibir mensagem: número inválido.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro
inicio
// Seção de Comandos
escreva("Digite um número de 1 a 5: ")
leia(numero)
escolha numero
caso 1
    escreval("Um")
caso 2
    escreval("Dois")
caso 3
    escreval("Três")
caso 4
    escreval("Quatro")
caso 5
    escreval("Cinco")
outrocaso
    escreval("Número Inválido!!!")
fimescolha

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra meses

29. Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido.

Veja abaixo o código do algoritmo

algoritmo "ex29"
// Função : Faça um algoritmo que receba o número do mês e mostre o mês correspondente. Valide mês inválido
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
mes: inteiro

inicio
// Seção de Comandos
escreval("Digite o número do mês: ")
leia(mes)
escolha mes
caso 1
    escreval("Janeiro")
caso 2
    escreval("Fevereiro")
caso 3
    escreval("Março")
caso 4
    escreval("Abril")
caso 5
    escreval("Maio")
caso 6
    escreval("Junho")
caso 7
    escreval("Julho")
caso 8
    escreval("Agosto")
caso 9
    escreval("Setembro")
caso 10
    escreval("Outubro")
caso 11
    escreval("Novembro")
caso 12
    escreval("Dezembro")
outrocaso
    escreval("Mês inválido!")
fimescolha

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

13 de jan. de 2013

Algoritmo Visualg juros conta bancária

9. Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês. Considere fixo o juro da poupança em 0,70% a. m. Visualg - Portugol

 Veja abaixo o código do algoritmo

 algoritmo "ex9"
// Função : Faça um algoritmo que receba um valor que foi depositado e exiba o valor com rendimento após um mês.
            // Considere fixo o juro da poupança em 0,70% a. m.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
correcao, deposito: real


inicio
// Seção de Comandos
escreval("Sistema de depósito do Banco do Oeste")
escreva("Digite o valor depositado: ")
leia(deposito)
correcao <- 0.7 * deposito
escreva("O rendimento do depósito após um mês é de: ",deposito+correcao)

fimalgoritmo

 Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg consumo médio de um carro

3. Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto. Visualg - Portugol

 Veja abaixo o código do algoritmo:

 algoritmo "ex3"
// Função : Escrever um algoritmo para determinar o consumo médio de um automóvel sendo fornecida a distância total percorrida pelo automóvel e o total de combustível gasto.
// Autor :
// Data : 30/11/2010
// Seção de Declarações
var
distancia, combustivel: real

inicio
// Seção de Comandos
escreval("========== Cálculo de consumo médio de combustível =========")
escreva("Digite a distância pecorrida: ")
leia(distancia)
escreva("Digite o combustível gasto: ")
leia(combustivel)
escreval("O consumo médio de combustível do seu veículo é: ",distancia/combustivel)

fimalgoritmo

 Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg informa qual número é maior

14. Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex14"
// Função : Escrever um algoritmo que leia dois valores inteiro distintos e informe qual é o maior.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
num1, num2: inteiro

inicio
// Seção de Comandos
escreva("Digite o primeiro número: ")
leia(num1)
escreva("Digite o segundo número: ")
leia(num2)

se num1 > num2 entao
     escreva("O primeiro número ",num1," é maior que o segundo",num2)
senao
     escreva("O segundo número",num2," é maior que o primeiro",num1)
fimse

fimalgoritmo

Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg diz se número está em um determinado intervalo

15. Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex15"
// Função : Faça um algoritmo que receba um número e diga se este número está no intervalo entre 100 e 200.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
numero: inteiro

inicio
// Seção de Comandos
escreva("Digite um número: ")
leia(numero)
se numero >= 100 entao
   se numero <= 200 entao
      escreval("O número está no intervalo entre 100 e 200")
   senao
        escreval("O número não está no intervalo entre 100 e 200")
   fimse
senao
   escreval("O número não está no intervalo entre 100 e 200")
fimse

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg mostra se é maior de idade

18. Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando “maior de idade” e “menor de idade” para cada pessoa. Considere a idade a partir de 18 anos como maior de idade. Visualg - Portugol


Veja abaixo o código do algoritmo:

algoritmo "ex18"
// Função : Faça um algoritmo que receba a idade de 75 pessoas e mostre mensagem informando "maior de idade" e "menor de
            // idade" para cada pessoa. Considere a idade a partir de 18 anos como maior de idade.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x, idade: inteiro

inicio
// Seção de Comandos
para x de 1 ate 75 faca
     escreva("Digite a idade: ")
     leia(idade)
     se idade >= 18 entao
        escreval("Fulano é maior de idade!")
     fimse
fimpara

fimalgoritmo

  Para ver mais exercícios do visualg clique aqui.

12 de jan. de 2013

Algoritmo Visualg média de uma aluno

16. Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a sua média (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação (media entre 5.1 a 6.9). Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex16"
// Função : Escrever um algoritmo que leia o nome e as três notas obtidas por um aluno durante o semestre. Calcular a sua
            // média (aritmética), informar o nome e sua menção aprovado (media >= 7), Reprovado (media <= 5) e Recuperação
            // (media entre 5.1 a 6.9).
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
nome: caractere
n1, n2, n3, media: real

inicio
// Seção de Comandos
escreval("Sistema de médias")
escreva("Digite a primeira nota: ")
leia(n1)
escreva("Digite a segunda nota: ")
leia(n2)
escreva("Digite a terceria nota: ")
leia(n3)
media <- (n1 + n2 + n3) / 3

se media >= 7 entao
   escreval("Aluno aprovado!")
senao
   se media <= 5 entao
      escreval("Aluno reprovado!")
   senao
      escreval("Aluno em recuperação...")
   fimse
fimse

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg ler números e informar intervalo

17. Ler 80 números e ao final informar quantos número(s) estão no intervalo entre 10 (inclusive) e 150 (inclusive). Visualg - Portugol

Veja abaixo o código do algoritmo 

algoritmo "ex17"
// Função : Ler 80 números e ao final informar quantos número(s) est(á)ão no intervalo entre 10 (inclusive) e 150 (inclusive).
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
x, num, intervalo: inteiro

inicio
// Seção de Comandos
para x de 1 ate 80 faca
     escreva("Digite um número: ")
     leia(num)
     se num >= 10 entao
        se num <= 150 entao
           intervalo <- intervalo + 1
        fimse
     fimse
fimpara

escreval("Ao total, foram digitados",intervalo,"números no intervalo entre 10 e 150")

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.

Algoritmo Visualg valor de desconto

20. A concessionária de veículos “CARANGO VELHO” está vendendo os seus veículos com desconto. Faça um algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá perguntar se deseja continuar calculando desconto até que a resposta seja: “(N) Não” . Informar total de carros com
ano até 2000 e total geral. Visualg - Portugol

Veja abaixo o código do algoritmo:

algoritmo "ex20"
// Função : A concessionária de veículos CARANGO VELHO está vendendo os seus veículos com desconto. Faça um
            // algoritmo que calcule e exiba o valor do desconto e o valor a ser pago pelo cliente de vários carros. O desconto
            // deverá ser calculado de acordo com o ano do veículo. Até 2000 - 12% e acima de 2000 - 7%. O sistema deverá
            // perguntar se deseja continuar calculando desconto até que a resposta seja: \u201c(N) Não\u201d . Informar total de carros com
            // ano até 2000 e total geral.
// Autor :
// Data : 1/12/2010
// Seção de Declarações
var
programa, opc: caractere
ano, total, total2000: inteiro
valor, valorFinal, desconto: real

inicio
// Seção de Comandos
programa <- "S"
enquanto programa <> "N" faca
    limpatela
    escreva("Digite o valor do carro: ")
    leia(valor)
    escreva("Digite o ano do carro: ")
    leia(ano)
    se ano <= 2000 entao
        desconto <- 0.12
        total2000 <- total2000 + 1
        total <- total + 1
    senao
        desconto <- 0.07
        total <- total + 1
    fimse
    desconto <- desconto * valor
    valorFinal <- valor - desconto
    escreval("O valor do carro com desconto é de: ",valorFinal)
    escreval("")
    escreva("Deseja continuar calculando? (S) Sim - (N) Não - ")
    leia(opc)
    escolha opc
        caso "S"
            programa <- "S"
        caso "N"
            programa <- "N"
        outrocaso
            programa <- "S"
            limpatela
            escreval("As opções disponíveis são apenas S ou N!!!")
            leia(opc)
    fimescolha
fimenquanto
escreval("Foram calculados",total2000," carro(s) com ano até 2000")
escreval("Total geral: ",total)

fimalgoritmo


Para ver mais exercícios do visualg clique aqui.