伪随机数帮忙用C写个伪随机数产生

如何产生离散型的伪随机数或者说已知一个离散量的分布函数，求它的伪随机数~！

最简单的办法就是转化成均匀分布，概率高的数可以扩大他的分布范围，比如8的产生概率是0.2，我们最小的概率分布假设是1，几率是0.01，那方法就是通过C语言获得均匀分布的随机数，只有1个随机数代表1，有20个随机数代表8，那就是实现均匀分布了。

。

。

。

其实伪随机数的算法很复杂的，你要是抛开C语言提供的rand，自己写函数没学过的人也不会写啊，他是需要用随机数种子，和已经随机出现过的所有数进行运算，挺发杂的，我是不会。

。

。

。

。

写一个产生伪随机数的函数。C语言

//rand01.c #include static unsigned int RAND_SEED; unsigned int random(void) { RAND_SEED=(RAND_SEED*123+59)%65536; return(RAND_SEED); } void random_start(void) { int temp[2]; movedata(0x0040,0x006c,FP_SEG(temp),FP_OFF(temp),4); RAND_SEED=temp[0]; } main() { unsigned int i,n; random_start(); for(i=0;i<10;i++) printf("%u ",random()); printf(" "); }

帮忙用C写个伪随机数产生

C语言： #include <stdio.h> #include <time.h> #include <stdlib.h> int main() { // srand( time( 0 ) ); int seed; printf( "请输入你的种子: " ); scanf( "%d", &seed ); srand( seed ); printf( "生成的4个0~30之间的随机数是: %d %d %d %d ", rand()%31, rand()%31, rand()%31, rand()%31 ) ; } VB： Private Sub Command1_Click() Dim str As String Dim seed As Integer seed = CInt(InputBox("请输入种子:")) Randomize seed For i = 1 To 4 str = str & Int(Rnd() * 31) & " " Next MsgBox "生成的4个0~30之间的随机数是: " & str End Sub C里面用srand自设种子，vb里给randomize带上参数就是种子 每次只可以设置一个，如果你要对每个产生的数都设置不同的种子，可以在每次生成数之前进行设置