#include
#include
double?fx（double?x）
{return?sqrt（x）;}
void?main（）
{
	int?ni;
	double?abxhesasbs1s2kcd;
????printf（“-------變步長拋物線積分-------\n\n“）;
	printf（“請輸入左右端點ab的值:“）;
	scanf（“%lf%lf“&a&b）;
	printf（“請輸入精確度e的值:“）;
	scanf（“%lf“&e）;
	h=b-a;
	sa=fx（a）+fx（b）;
	kc=1;
	n=1;
	printf（“-----------------------------\n“）;
	printf（“?????n	????s2??????????|d|????\n\n“）;
	sa=fx（a）+fx（b）;
	while（1）
	{???sb=0;
		x=a-h/2;
		for（i=1;i<=n;i++）
		{sb=sb+fx（x+i*h）;}
????????s2=（4*sb+sa）*h/6;
		if（n==1）
		{
????????s1=s2;
		sa=sa+2*sb;
		n=2*n;
		h=h/2;
		}
		else
		{
?????	printf（“%6d????%lf????“ns2）;
????????d=s2-s1;
		if（fabs（s2）>=kc）
		d=d/s2;
		printf（“%lf\n“fabs（d））;
	
????????if（fabs（d）		else?
		
????????s1=s2;
		sa=sa+2*sb;
		n=2*n;
		h=h/2;
		}
	}
	
		printf（“積分的結果是:%lf\n“s2）;
}

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????41984??2009-12-14?11:29??4\Debug\vc60.idb

?????文件??????45056??2009-12-14?11:29??4\Debug\vc60.pdb

?????文件?????188473??2009-12-14?11:28??4\Debug\變步長拋物線積分.exe

?????文件?????201984??2009-12-14?11:28??4\Debug\變步長拋物線積分.ilk

?????文件???????6098??2009-12-14?11:28??4\Debug\變步長拋物線積分.obj

?????文件?????221420??2009-12-14?11:28??4\Debug\變步長拋物線積分.pch

?????文件?????361472??2009-12-14?11:28??4\Debug\變步長拋物線積分.pdb

?????文件?????188471??2009-12-14?11:29??4\Debug\變步長梯形積分.exe

?????文件?????201816??2009-12-14?11:29??4\Debug\變步長梯形積分.ilk

?????文件???????5848??2009-12-14?11:29??4\Debug\變步長梯形積分.obj

?????文件?????221420??2009-12-14?11:29??4\Debug\變步長梯形積分.pch

?????文件?????361472??2009-12-14?11:29??4\Debug\變步長梯形積分.pdb

?????文件?????188471??2009-12-14?11:29??4\Debug\復合拋物線積分.exe

?????文件?????201000??2009-12-14?11:29??4\Debug\復合拋物線積分.ilk

?????文件???????4919??2009-12-14?11:29??4\Debug\復合拋物線積分.obj

?????文件?????221420??2009-12-14?11:29??4\Debug\復合拋物線積分.pch

?????文件?????361472??2009-12-14?11:29??4\Debug\復合拋物線積分.pdb

?????文件????????911??2009-12-06?17:40??4\變步長拋物線積分.cpp

?????文件???????3523??2009-12-14?11:28??4\變步長拋物線積分.dsp

?????文件????????557??2009-12-14?11:29??4\變步長拋物線積分.dsw

?????文件??????33792??2009-12-14?11:29??4\變步長拋物線積分.ncb

?????文件??????48640??2009-12-14?11:29??4\變步長拋物線積分.opt

?????文件????????796??2009-12-14?11:28??4\變步長拋物線積分.plg

?????文件????????829??2009-12-06?09:39??4\變步長梯形積分.cpp

?????文件???????3499??2009-12-14?11:29??4\變步長梯形積分.dsp

?????文件????????553??2009-12-14?11:29??4\變步長梯形積分.dsw

?????文件??????33792??2009-12-14?11:29??4\變步長梯形積分.ncb

?????文件??????48640??2009-12-14?11:29??4\變步長梯形積分.opt

?????文件????????786??2009-12-14?11:29??4\變步長梯形積分.plg

?????文件????????632??2009-12-06?16:51??4\復合拋物線積分.cpp

............此處省略10個文件信息