谁能告诉我这段pascal语言什么意思1〜40不重复随机数,我不懂它怎么来的

网友回答

这是谁写的叫他面壁.这种怎么复杂就怎么设计的程序,给我的感觉就像,排序用bogo,求a+b用网络流之蛋疼.
其实他的意思就是,一位一位的随机,每次生成了一位随机数之后,检查之前已有的随机数,看看里面有没有和新生成一样的,没有的话就认可这个新生成的,否则继续随机一个新数.不过写的很脑残就是了,专坑读写程序用的.