{ algorytm Newtona-Raphsona }

Program pierwiatek_kwadratowy;

uses crt;

var

eps:real;

a,p:real;

begin

clrscr;

write('Podaj liczbe z ktorej liczymy pierwiastek kwadratowy: ');

readln(a);

write('Podaj dokladnosc obliczen: ');

readln(eps);

write('Podaj poczatkowa wartosc pierwiastka: ');

readln(p);

while abs(p-a/p)>=eps do

p:=(p+a/p)/2;

writeln('wartosc pierwiastka kwadratowego z liczby ',a:8:4);

writeln(' obliczona z dokladnoscia ',eps:8:4,' wynosi: ',p:8:4);

readkey;

end.

---