B 站上看到的，av1020723。等会我可能会做一个 PHP 版出来。原程序为 Java 语言，在我电脑上运行不起来（原因未知），我看着源代码翻译成了 Pascal。Java 版：程序：http://pan.baidu.com/s/1sjtZs1v源代码：http://pan.baidu.com/s/1ntmFSLVPascal 版源代码：uses math;type relation=record p:longint; q:longint; end;var i,boy,girl,total,count:longint; boylove,girllove:float; cpresult:relation; //Union变量 id,sz,lead:array[0..10000]of longint;//模拟java bernoulli函数功能function possibility(maybe:float):boolean; var i:longint; begin i:=random(10000); if(i>maybe*10000)then exit(false) else exit(true); end;//配对function cp(i:integer):relation; var j:float; begin cp.p:=i; j:=-1; if(i<boy)...