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:...