NAMEPARAMS| begin comment library A1, A5, A15; real a, y; real procedure check(y, val1, val2); real val1, val2, y; begin y := 0.5; output(30, y); output(30, val1); writetext(30, [: should * be* 0.8[cc_]]); y := 1.0; output(30, y); output(30, val2); writetext(30, [: should * be* 1.0[cc_]]); check := 123456789.10; end check; a := check(y, (y+y)/(1+y×y), (y+y+0.0)/(1.0+y×y)); output(30, a) end | |