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 | |