# Cáclulo de raiz quadrada  de s

s=5

r=0; r
is=1 # Sei que 2^2<5 e 2^3>5
n=10
d=1

for ( i in -is:n){
r=r+d*2^{-i}
print(r)
d=sign(s-r^2) # Verifica se r^2>s.
print(d)
}
print("r, raiz quadra aproximada de s=5");r
print("Erro em 5-r^2");s-r^2