SQRT|
begin

real x, y;
for x := 81, 25, 16, 9, 8, x/2 while x >0.001 do
   begin
   writetext(30, [SQRT * OF * ]);
   write(30, format([+d.ddddddddddº+dd_]), x);
   writetext(30, [* IS * ]);
   y := sqrt(x);
   write(30, format([+d.dddddddddddº+dd_]), y);
   writetext(30, [ * re-squared * IS * ]);
   write(30, format([+d.dddddddddddº+dd_]), y^2);
   writetext(30, [ * relative * error * IS * ]);
   write(30, format([+d.dddddddddddº+ddc_]), y^2/x -1.0);
   end;

end
|
|