Operadores Lógicos

Tabela Verdade:

Substitur Todas as Felizes por V  -- Todas as Tristes por F

Download do Visualg

Calcular Média - Exercício 01

Receber do Usuário 2 Notas e retornar a Media e Informar se Aprovado ou Reprovado.
Obs: Para aprovado, Média >=7
 
algoritmo "Media"
// Função : Notas de Alunos
// Autor : Rodrigo Fernando da Luz
// Data : 28/07/2019
// Seção de Declarações 
Var
notaTeste1,notaTeste2,mediaAluno:real
inicio
escreval("Digite a 1ª nota:")
 leia(notaTeste1)
escreval("Digite a 2ª nota:")
 leia(notaTeste2)
//Calcula a soma das duas notas informadas e divida por 2, que é a quantidade de notas
mediaAluno := (notaTeste1 + notaTeste2) / 2
escreval("Sua Media foi:",mediaAluno)
se (mediaAluno >= 7)entao
 escreval("Você foi aprovado!")
senao
escreval("Você não foi aprovado!")
fimse
Fimalgoritmo
algoritmo "Media"
// Função : Notas de Alunos
// Autor : Rodrigo Fernando da Luz
// Data : 28/07/2019
// Seção de Declarações 
Var
notaTeste1,notaTeste2,mediaAluno:real
inicio
escreval("Digite a 1ª nota:")
 leia(notaTeste1)
escreval("Digite a 2ª nota:")
 leia(notaTeste2)
//Calcula a soma das duas notas informadas e divida por 2, que é a Media de notas
mediaAluno := (notaTeste1 + notaTeste2) / 2
escreval("Sua Media foi:",mediaAluno)
se (mediaAluno >= 7)entao
 escreval("Você foi aprovado!")
senao
escreval("Você não foi aprovado!")
fimse
Fimalgoritmo

Equação do 2º Grau

algoritmo "Equasao do segundo Grau"
// Função : 2ºGrau
// Autor : Rodrigo Fernando da Luz
// Data : 28/07/2019
// Seção de Declarações 
Var
a,b,c:inteiro
Delta: Real
x1,x2:Real
inicio
escreval("Equação do Segundo Grau")
escreval("-------------------")
escreval("Informe o Valor A: ")
  leia(a)
escreval("Informe o Valor B: ")
  leia(b)
escreval("Informe o Valor C: ")
  leia(c)
escreval("-------------------")
 escreval("Sua Equação e: ",a,"x2 +",b, "x +",c," = 0")
 delta := (b*b)- 4*a*c
escreval("Valor de Delta:" , delta:4:2)
escreval("-------------------")
se (delta <0 ) entao
 escreval ("Para Delta negativo, Não existe Raizes reais")
 senao
 se (delta = 0) entao
  x1 := (-b + raizQ (delta)) / (2*a)
  x1 := (-b - raizQ (delta)) / (2*a)
  escreval ("Para Delta Positivo, Raizes Diferentes:")
  escreval ("X' = ",x1:4:2)
  escreval ("X'' = ",x2:4:2)
fimse
 fimse
Fimalgoritmo
algoritmo "Equasao do segundo Grau"
// Função : 2ºGrau
// Autor : Rodrigo Fernando da Luz
// Data : 28/07/2019
// Seção de Declarações 
Var
a,b,c:inteiro
Delta: Real
x1,x2:Real
inicio
escreval("Equação do Segundo Grau")
escreval("-------------------")
escreval("Informe o Valor A: ")
  leia(a)
escreval("Informe o Valor B: ")
  leia(b)
escreval("Informe o Valor C: ")
  leia(c)
escreval("-------------------")
 escreval("Sua Equação e: ",a,"x2 +",b, "x +",c," = 0")
 delta := (b*b)- 4*a*c
escreval("Valor de Delta:" , delta:4:2)
escreval("-------------------")
se (delta <0 ) entao
 escreval ("Para Delta negativo, Não existe Raizes reais")
 senao
 se (delta = 0) entao
  x1 := (-b + raizQ (delta)) / (2*a)
  x1 := (-b - raizQ (delta)) / (2*a)
  escreval ("Para Delta Positivo, Raizes Diferentes:")
  escreval ("X' = ",x1:4:2)
  escreval ("X'' = ",x2:4:2)
fimse
 fimse
Fimalgoritmo