用于开发税务票据管理的软件

				Function F1DIM(X:real):real;
				var
				    XT:array[0..50] of real;
				    J:integer;
				begin
				    For J:=1 To NCOM do
				        XT[J]:=PCOM[J] + X * XICOM[J];
				    F1DIM:=FUNC2(XT, NCOM);
				end;