{ sqrroot.txt -- Algorithm #0: Square Root by Tom Swan }

begin
  y <- 1; e <- 5E-5;
  z <- y * y;
  while |(z - x)| >= e do
  begin
    y <- ((x / y) + y) / 2;
    z <- y * y;
  end;
  write("The square root of ", x, " = ", y);
end.


(*
// --------------------------------------------------------------
// Copyright (c) 1993 by Tom Swan. All rights reserved
// Revision 1.00    Date: 02/08/1993   Time: 11:20 am
*)
