assign6/loops.txt

   1 BEGIN\r
   2     BEGIN {Calculate a square root using Newton's method.}\r
   3         number := 4;\r
   4         root := number;\r
   5 \r
   6         REPEAT\r
   7             root := (number/root + root)/2\r
   8         UNTIL root*root - number < 0.000001\r
   9     END;\r
  10 \r
  11     BEGIN {Calculate a square root using Newton's method.}\r
  12         number := 2;\r
  13         root := number;\r
  14 \r
  15         WHILE root*root - number > 0.000001 DO BEGIN\r
  16             root := (number/root + root)/2\r
  17         END\r
  18     END;\r
  19 \r
  20     FOR i := 1 TO 5 DO BEGIN\r
  21         j := i;\r
  22     END;\r
  23 \r
  24     FOR k := j DOWNTO 1 DO n := k;\r
  25 \r
  26     FOR i := 1 TO 2 DO BEGIN\r
  27         FOR j := 1 TO 3 DO BEGIN\r
  28             k := i*j\r
  29         END\r
  30     END\r
  31 END.\r