sajjad1365
یک شنبه 17 مرداد 1389, 11:43 صبح
سلام. لطفا کمک کنید این کدها رو به vb تبدیل کنم.
خیلی لازم دارم .اگه تا یک ساعت کمک نکنین دیگه به دردم نمیخوره...
ممنون
#include<stdlib.h>
#include<conio.h>
#include<math.h>
#include<iostream.h>
#include<stdio.h>
//*******************
#define N 10000
#define n 100
#define B1 0.1
//************************
float _EXP(float m)
{
float x,y;
do
{
y=(float)rand()/RAND_MAX;
}while(y==0);
x=-m*log(y);
return x;
}
//******************************
void main ()
{
float x[N];
for (int i=0;i<N;i++)
x[i]=_EXP(4);
int F[n];
int k;
for (i=0;i<n;i++)
F[i]=0;
for (i=0;i<N;i++)
{
k=x[i]/B1;
F[k]++;
}
FILE *Fp;
Fp=fopen ("C:\\_EXP.xls","wt");
for (i=0;i<n;i++)
{
fprintf(Fp,"%d\n",F[i]);
}
}
خیلی لازم دارم .اگه تا یک ساعت کمک نکنین دیگه به دردم نمیخوره...
ممنون
#include<stdlib.h>
#include<conio.h>
#include<math.h>
#include<iostream.h>
#include<stdio.h>
//*******************
#define N 10000
#define n 100
#define B1 0.1
//************************
float _EXP(float m)
{
float x,y;
do
{
y=(float)rand()/RAND_MAX;
}while(y==0);
x=-m*log(y);
return x;
}
//******************************
void main ()
{
float x[N];
for (int i=0;i<N;i++)
x[i]=_EXP(4);
int F[n];
int k;
for (i=0;i<n;i++)
F[i]=0;
for (i=0;i<N;i++)
{
k=x[i]/B1;
F[k]++;
}
FILE *Fp;
Fp=fopen ("C:\\_EXP.xls","wt");
for (i=0;i<n;i++)
{
fprintf(Fp,"%d\n",F[i]);
}
}