Operadores Lógicos
Tabela Verdade:
Substitur Todas as Felizes por V -- Todas as Tristes por F
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