Algoritmo Raízes

Prévia do material em texto

Algoritmo Raízes
//Algoritmo para calcular as raízes reais de uma equação do //segundo grau}
Variável
a,b,c: real
delta: real 
x1,x2: real
Inicio
leia(a,b,c)
delta ← b*b - 4*a*c
se delta < 0 então
escreva('Esta equação não possui raízes reais.')
senão
x1 ← (-1*b - raiz(delta,2)) / (2*a)
x2 ←(-1*b + raiz(delta,2)) / (2*a) 
escreva('As raízes são ',x1,' e ', x2)
fim se
Fim
algoritmo "Situação do Aluno"
var
n1, n2, n3, n4, media, nrecup, mrecup :real
inicio
escreval ("Digite a primeira nota: ")
leia (n1)
escreval ("Digite a segunda nota: ")
leia (n2)
escreval ("Digite a terceira nota: ")
leia (n3)
escreval ("Digite a quarta nota: ")
leia (n4)
media<-(n1+n2+n3+n4)/4
se(media >=7)entao
escreval ("O aluno está aprovado com média: ",media)
senao
escreval ("O aluno está de recuperação com média: ",media)
escreval ("Digite a nota de recuperação: ")
leia(nrecup)
mrecup<-(media + nrecup)/2
se(mrecup>=5)entao
escreval("O aluno foi aprovado na recuperação com media: ",mrecup)
senao
escreval("O aluno não foi aprovado na recuperação com média: ",mrecup)
fimse
fimse
fimalgoritmo
	algoritmo "farenheitCelsius"
	
	
	
	// Função : Faça um Programa que peça a temperatura em graus Farenheit,
	
	
	// transforme e mostre a temperatura em graus Celsius.
	
	
	// C = (5 * (F-32) / 9).
	
	
	
	
	
	
	
	
	
	
	
	var
	
	
	celsius , farenheit : real
	
	
	
	
	
	inicio
	
	
	// Seção de Comandos 
	
	
	escreva("Farenheit? ")
	
	
	leia(farenheit)
	
	
	celsius <- 5 * (farenheit - 32) / 9
	
	
	escreval("celsius = ", celsius)
	
	fimalgoritmo