assign6/repeat.txt

   1 BEGIN {Calculate the square root of 4 using Newton's method.}
   2     number := 4;
   3     root := number;
   4
   5     REPEAT
   6         partial := number/root + root;
   7         root := partial/2
   8     UNTIL root*root - number < 0.000001
   9 END.