LNEXPETC| begin integer count, layout; real x; integer i; count := 100; layout := format([+d.ddddddddddº+ndc_]); writetext(30, [sqrt(1.0/x)[c_]]); for x := 9, 8, 7, 6, 5, 4, 3, 2, 1, x step x until 1048576.0 do write(30, layout, sqrt(1.0/x)); writetext(30, [[c_]sqrt(x)[c_]]); for x := 9, 8, 7, 6, 5, 4, 3, 2, 1, x step x until 1048576.0 do write(30, layout, sqrt(x)); writetext(30, [[c_]ln(i),*abs(exp(ln(i)))[c_]]); for i := 1 step 1 until count do begin write(30, layout, ln(i)); write(30, layout, abs(exp(ln(i)))); end; writetext(30, [[c_]-ln(exp(1.0/i)^i_[c_]]); for i := 1 step 1 until count do write(30, layout, ln(exp(1.0/i)^i)); end |