高考问答刘芸女儿:各位高手帮忙用C语言描述下这个函数
来源：百度文库 编辑：高考问答 时间：2024/05/03 22:47:09
PROCEDURE AMONCAR (a,b,d,b,n,S)
m<-o;t=1
FOR i=1 TO n DO
{
ARND(t,x);x<-a+(b-a)*x
ARND(t,x); x<-d*y
IF y<f(x) THEN m<-m+1
}
S<-m*(b-a)*d/n
OUTPUT S
RETURN
<-是一个左箭头
函数的目的是求f(x)在a-b上的定积分~
各位高手，拜托了
各位帮忙撒.......55555555
m<-o;t=1
FOR i=1 TO n DO
{
ARND(t,x);x<-a+(b-a)*x
ARND(t,x); x<-d*y
IF y<f(x) THEN m<-m+1
}
S<-m*(b-a)*d/n
OUTPUT S
RETURN
<-是一个左箭头
函数的目的是求f(x)在a-b上的定积分~
各位高手，拜托了
各位帮忙撒.......55555555
#define N 0.00001/*可设置任意double允许的精度,或者更麻烦一点做一下判断精度*/
#include <stdio.h>
void main()
{
double a,b,S=0;
/*外界输入a,b的源代码，及f(x)*/
for(;a<b;a=a+N)
S=S+N*f(a);
................;
}
#include <stdio.h>
#define 精度 某个数
void main()
{
double a,b,S1=0,S2=0,n;
/*外界输入a,b的源代码，及f(x)*/
for(;a<b;a++)
S1=S1+f(a);
for(n=1;;n=n/10)
{for(;a<b;a=a+n)
S2=S2+n*f(a);
if(S1-S2>0)
if(S1-S2<精度)break;
else
if(S2-S1<精度)break;
}
输出S2