XY (x, Func (x));: = result + (Step/6) * (Func (buf) +4 * Func ( buf + Step/2) + Func (x));: = x;: = x + Step;;
(x - Step)
;
IntegerToCountType (param: integer): CountType; param of
: result: = Trap;
: result: = LeftRect;
: result: = MiddleRect;
: result: = RightRect;
: result: = Simpson;;;