Lista de Exercicios

7. Escreva um programa para encontrar a raiz quadrada de um número através de interações sucessivas:

EXEMPLO:
RAIZ DE 8
8.00000/4.00000 = 2.00000 --> (4.00000 + 2.00000)/2. = 3.00000
8.00000/3.00000 = 2.66666 --> (3.00000 + 2.66666)/2. = 2.83333
8.00000/2.83333 = 2.82353 --> (2.83333 + 2.82353)/2. = 2.82843
8.00000/2.82843 = 2.82842 --> (2.82843 + 2.82842)/2. = 2.82842 ........
program P7;
uses crt;
var
n : real;
procedure tela_e_leitura;
begin
n := -1;
repeat
clrscr;
gotoxy (22,2);
highvideo;
write ('PROGRAMA FEITO POR KARINE E MARIA DA GLORIA');
gotoxy (25,4);
write ('CALCULA A RAIZ QUADRADA DE UM NéMERO');
lowvideo;
gotoxy (5,8);
write ('Entre com o número: ');
readln (n);
until n >= 0;
end;
function raiz(x : real) : real;
var
a, r : real;
begin
r:=0;
a:=x/2;
repeat
r:=x/a;
a:=(a+r)/2;
until (a-r) < 0.00001;
raiz := r;
end;
{programa principal}
begin
tela_e_leitura;
write(' A raiz quadrada do número ‚: ',raiz (n):8:5);
repeat until keypressed;
end.

Para retornar a tela principal clique aqui.