B站上看到的， av1020723 。等会我可能会做一个PHP版出来。 原程序为Java语言，在我电脑上运行不起来（原因未知），我看着源代码翻译成了Pascal。 Java版： 程序：http://pan.baidu.com/s/1sjtZs1v 源代码：http://pan.baidu.com/s/1ntmFSLV Pascal版源代码： 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) then begin if (possibility( 1 -boylove)) then begin //这个人不恋爱 cp.q:...