rqpaprox Exemplos de Algoritmos

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

// Algoritmo : Raiz quadrada por aproximação
// Função :
// Autor :
// Data : 12/09/2002
algoritmo "RQPAprox"
// Seção de Declarações
var
 x, raiz, li, ls, mult, dif : real
inicio
// Seção de Comandos
escreva("Digite um numero maior que um : ")
leia(x)
se x > 1 entao
 li <- 0
 ls <- x
 raiz <- (li+ls) / 2
 mult <- raiz * raiz
 dif <- x - mult
 se dif < 0 entao
 dif <- -dif
 fimse
 enquanto dif > 0.00001 faca
 se mult > x entao
 ls <- raiz
 senao
 li <- raiz
 fimse
 raiz <- (li+ls) / 2
 mult <- raiz * raiz
 dif <- x - mult
 se dif < 0 entao
 dif <- -dif
 fimse
 fimenquanto
 escreval("A raiz quadrada calculada de ", x : 10: 5 , " é ", raiz : 10 : 5 )
 escreval("A função raiz quadrada de ", x : 10: 5 , " é ", raizq(x) : 10 : 5 )
senao
 escreval("Falei maior que um... ")
fimse
fimalgoritmo