Aula 07 - 04/05/11

Exercícios para aula 7 – comando SE – Fazer no software visualg.

1. Faça um programa que receba um número inteiro e verifique se é par ou ímpar.

algoritmo "Exercicio 1"
var
x : inteiro
inicio
escreval ("Digite um número")
leia (x)
se (x mod 2 = 0) entao
   escreval ("Número é Par")
senao
   escreval ("Número é impar")
fimse
fimalgoritmo

2. A nota final de um 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. A média das três notas mencionadas obedece aos pesos a seguir:

Faça um programa que receba as três notas, calcule e mostre a média ponderada e o conceito que segue a tabela:

algoritmo "Exercicio 3"
var
salario2008, salario2009, salario2010, salario2011, salaini, anoatual :real
inicio
escreval ("Digite o ano atual: ")
leia (anoatual)
salaini  <- 1000
salario2008 <- (salaini * (15 / 1000 )) + salaini
salario2009 <- (salario2008 * (30 / 1000)) + salario2008
salario2010 <- (salario2009 * (60 / 1000)) + salario2009
salario2011 <- (salario2010 * (120 / 1000)) + salario2010
escreval ("Seu salário é: ", salario2011)
fimalgoritmo

4. Faça um programa que receba três notas de um aluno, calcule e mostre a média aritmética e a mensagem constante na tabela a seguir. Aos alunos que ficaram para exame, calcule e mostra a nota que deverão tirar para serem aprovados, considerando que a média exigida é 6,0.

 algoritmo "Exercicio 4"
var
n1, n2, n3, media, notaexame, mediaexame :real
inicio
escreval ("Digite a primeira nota")
leia (n1)
escreval ("Digite a segunda nota")
leia (n2)
escreval ("Digite a terceira nota")
leia (n3)
media <- (n1 + n2 + n3) / 3
escreval ("Sua media é: ",media)
se (media >= 7) e (media <= 10) entao
   escreval ("Aprovado")
fimse
se (media >= 3) e (media <7) entao
   escreval ("Exame")
   escreval ("A nota do exame: ")
   leia (notaexame)
mediaexame <- (media + notaexame) / 2
   se (mediaexame >= 6) entao
      escreval ("aprovado")
   senao
      escreval ("reprovado")
   fimse
fimse
se (media >= 0) e (media <3) entao
   escreval ("Reprovado")
fimse
fimalgoritmo

5. Faça um programa que receba dois números e mostre o maior.

algoritmo "Exercicio 5"
var
x, y :real
inicio
escreval ("Escreva o primeiro número")
leia (x)
escreval ("Escreva o segundo número")
leia (y)
limpatela
se (x > y) entao
escreval (x)
senao
escreval (y)
fimse
fimalgoritmo

6. Faça um programa que receba três números e mostre-os em ordem crescente. Suponha que o usuários digitará três números diferentes.

algoritmo "Exercicio 6"
var
n1, n2, n3 :real
inicio
escreval ("Digite três números diferentes")
escreval ("Digite o primeiro número")
leia (n1)
escreval ("Digite o segundo número")
leia (n2)
escreval ("Digite o terceiro número")
leia (n3)
se (n1 < n2) e (n1 < n3) entao
   escreval (n1)
   se (n2 < n3 ) entao
      escreval (n2)
      escreval (n3)
   senao
      escreval (n3)
      escreval (n2)
   fimse
fimse
se (n2 < n1) e (n2 < n3) entao
   escreval (n2)
   se (n1 < n3 ) entao
      escreval (n1)
      escreval (n3)
   senao
      escreval (n3)
      escreval (n1)
   fimse
fimse
se (n3 < n1) e (n3 < n2) entao
   escreval (n3)
   se (n1 < n2 ) entao
      escreval (n1)
      escreval (n2)
   senao
      escreval (n2)
      escreval (n1)
   fimse
fimse

fimalgoritmo

7. Faça um programa que determine a data cronologicamente maior entre duas datas fornecidas pelo usuário. Cada data deve ser composta por três valores inteiros, em que o primeiro representa o dia, o segundo, o mês e o terceiro, o ano.

algoritmo "Exercicio 7"

var
dia, mes, ano, dia1, mes1, ano1:inteiro
inicio
escreval ("Escreva duas datas")
escreval ("Escreva a primeira data")
escreval ("Digite o dia (1 ate 31)")
leia (dia)
escreval ("Digite o mes (1 ate 12)")
leia (mes)
escreval ("Digite o ano")
leia (ano)
escreval ("Escreva a segunda data")
escreval ("Digite o dia (1 ate 31)")
leia (dia1)
escreval ("Digite o mes (1 ate 12)")
leia (mes1)
escreval ("Digite o ano")
leia (ano1)

se (dia < 1) ou (dia > 31) ou (dia1 < 1) ou (dia1 > 31) entao
   escreval ("Digite o dia entre 1 ate 31, faça novamente")
senao
   se (mes > 12) ou (mes1 > 12) ou (mes < 1) ou (mes1 < 1)entao
      escreval ("Digite o mes entre 1 ate 12, faça novamente")
   senao
      se (mes = 2) ou (mes1 = 2) e (dia > 29) e (dia <= 31) entao
         escreval ("O mes que você digitou possui somente de 1 a 29 dias, faça novamente")
      senao
         se (mes = 4) ou (mes = 6) ou (mes = 9) ou (mes = 11) e (dia = 31) entao
            escreval ("Seu primeiro mes contem so 30 dias, faça novamente")
         senao
            se (mes = 4) ou (mes = 6) ou (mes = 9) ou (mes = 11) e (dia1 = 31) entao
               escreval ("Seu segundo mes contem so 30 dias, faça novamente")
            senao
               se (ano = ano1) e (mes = mes1) e (dia = dia1) entao
                  escreval ("Datas iguais")
               senao
                  se (ano > ano1) entao
                     escreval (dia, mes, ano)
                  senao
                     se (mes > mes1) entao
                        escreval (dia, mes, ano)
                     senao
                        se (dia > dia1) entao
                           escreval (dia, mes, ano)
                        senao
                           escreval (dia1, mes1, ano1 )
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimse
fimalgoritmo



Nessa aula fizemos exercicios sobre o comando "se, senao", treinando um pouco já estou com menos dificuldade nesses comandos.