| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 661 人关注过本帖
标题:求助:如何将下面C语言程序改为VB语言程序?
取消只看楼主 加入收藏
清冷一笑
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2009-12-20
结帖率:0
收藏
已结贴  问题点数:0 回复次数:0 
求助:如何将下面C语言程序改为VB语言程序?
第一段程序
#include<stdio.h>
#include<math.h>
main()
{int i,j,n;
 float  x[100],h,a=0,b=0.25,I=0,f[100]={0};
 system("cls");
 printf("   The integrand:sqrt(4-pow(sin(x),2);\n");
 printf("   The upper and lower of the integral:b=1/4  a=0\n ");
printf("\n\n");
printf("   Enter the number of the segment n: ");
   scanf("%d",&n);
printf("\n\n");
h=(b-a)/n;
for(i=1;i<n;i++)
   x[i]=a+i*h;
for(i=1;i<n;i++)
   f[i]=sqrt(4-pow(sin(x[i]),2));
for(i=1;i<n;i++)
I=I+f[i];
I=I*h+h*(sqrt(4-pow(sin(a),2))+sqrt(4-pow(sin(a),2)))/2;
printf("I=%f\n",I);

}



第二段程序
#include<stdio.h>
#include<math.h>
#define e  2.718281828
main()
{int i,j,n;
 float  x[100],xx[100],h,a=0,b=1,I1=0,I2=0,f[100]={0},y
[100],S;
 system("cls");
 printf("   The integrand:pow(e,x)/(4+pow(x,2);\n");
 printf("   The upper and lower of the integral:b=1  a=0\n ");
printf("\n\n");
printf("   Enter the number of the segment n: ");
printf("\n\n");
h=(b-a)/n;
for(i=1;i<n;i++)
   x[i]=a+i*h;
for(i=2;i<n;i++)
xx[i]=(x[i]+x[i-1])/2;
xx[1]=(a+x[1])/2;
xx[n]=(x[n-1]+b)/2;
for(i=1;i<n;i++)
   f[i]=pow(e,x[i])/(4+pow(x[i],2));
for(i=1;i<=n;i++)
y[i]=pow(e,xx[i])/(4+pow(xx[i],2));
for(i=1;i<n;i++)
I1=I1+f[i];
for(i=1;i<=n;i++)
I2=I2+y[i];

S=(I1+2*I2)*h/3+h*(pow(e,a)/(4+pow(a,2))+pow(e,b)/(4+pow
(b,2)))/6;
printf("S=%f\n",S);

}



第三段程序
#include <math.h>
#include <stdio.h>
main()
{int m,i,c,j,r,u;
 int n;
 double a=0,b=1.0,f,t,x,h,T=1.0;
 double aa[10][10]={0},v[1000]={0};
 system("cls");
 printf("   The integrand:sin(x)/x;\n");
 printf("   The upper and lower of the integral:b=1.0   a=0\n ");
    aa[0][0]=1.0*(b-a)*(1+sin(b)/b)/2;
    printf("%f\n",aa[0][0]);
      for(i=1;fabs(T)>=1e-2;i++)
     { n=pow(2,i);
       h=(b-a)*1.0/n;
       for(m=1,c=0;m<n;c++)
       { v[c]=a+m*h;
        m=m+2;
       }
       for(t=0;t<c;t++)
           aa[i][0]=aa[i][0]+1.0*h*sin(v[t])/v[t];
       aa[i][0]=aa[i][0]+0.5*aa[i-1][0];
       for(j=1;j<=i;j++)
          aa[i][j]=(pow(4,j)*aa[i][j-1]-1.0*aa[i-1][j-1])/(pow(4,j)-1);
      T=aa[i][i]-aa[i-1][i-1];
       }
     printf("   c=%d  n=%d\n",c,n);
     printf("\n");
    for(u=0;u<i;u++)
      { for(r=0;r<=u;r++)
     {printf("   %.7f", aa[u][r]);}
     printf("\n");}

}


     

搜索更多相关主题的帖子: C语言 
2009-12-20 13:34
快速回复:求助:如何将下面C语言程序改为VB语言程序?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016690 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved