pascal 的一道题目 神牛们帮~~帮忙

背景 Background
不幸的是..船队遭遇了罕见的巨大风暴...在收下桅杆..在海面上漂流了数天之后...
我们来到了一个陌生的海域....
税儿使用了四分仪...原来..我们已经来到了这幅地图的边缘
　　—已知世界的尽头..

..这里..岛儿回忆起了一些事情...
"
在以前..一位安全的到过这一带的老船长曾经告诉过自己一些见闻..
这一带的海洋处于寒暖流的交汇处.独特的地理环境让这里的鱼类品种很丰富.
但是曾经路过这里的船只都曾被海藻缠住船舵..无法航行..自己也险些沉没.
..不过居住在海角之外的民族十分热情.那一次..也多亏了他们的帮助...
"

可是..现在.自己的船队想通过这里都十分困难..低落的士气让岛儿动弹不得..

...:"但也并不是完全没有办法.."
...:"怎么.."
...:"我们可以把舰队分成一些小部分..这样..如果前面的船只被这里的海藻缠住...
后面的船支则可以绕过这里...只要有一只船可以找到登陆地...然后绘出这一带的地图.也许就可以寻求到外界的帮助.."
...:"可是..这样也还是太危险了..我不能让大家去冒那么大的险..要为大家的生命承担责任..!"
...:"..可是..可是..."

"如果...如果我们不通过这里的话..那么在以后..也一定会有舰队在这里被困住的呀.."
船舱里的淡水也已所剩不多...现在急需做的是找到一个附近的村落补给...
继续(Continue.)向前航行？还是返航(Return.)？


描述 Description
在世界的尽头..是一片狭长的海域...
根据海峡的长度将这里分为n段.....
和往常一样.输入数据的第一行会输出n,
而最后一行会输入一个小数.e，而e表示一个界限..一个评判的标准...
如果期望的代价在它之上...那么就应该不应该冒险..

中间的每一行只有两个数..海面的宽度ai.和存在海藻bi的数目..
而现在要做的是...决定是否率领船队..通过这里.


输入格式 Input Format
.输入数据的第一行会输出n,
而最后一行会输入一个小数.e，而e表示一个界限..一个评判的标准...
如果期望的代价在它之上...那么就应该不应该冒险..

中间的每一行只有两个数..海面的宽度ai.和存在海藻bi的数目..
而现在要做的是...决定是否率领船队..通过这里.


输出格式 Output Format
输出Continue.或Return.

样例输入 Sample Input
2
3 1
3 1
2.30

样例输出 Sample Output
Continue.

注释 Hint
0<m<n<=10000..

在最糟糕的情况下..需要三支小舰队才可以通过这一片海域...
而平均情况下.需要一又三分之二就可以了..

( Sample说明...
在这里我们只给出...考察其中一个格子的情形...　　　　　　　　
1支船通过: 2/3　　
2支船通过: 1/3*2/2
期望的结果..4/3
)
Continue.

program t1054_s4;
var
n:longint;
f:boolean;
w,z:array[0..12000] of longint;
max,sum:real;

procedure init;
var
i,j:longint;
begin
read(n);
readln;
for i:=1 to n do
begin
read(w[i],z[i]);
readln;
end;
read(max);
end;

procedure proc;
var
i,j,l:longint;
t:real;
begin
f:=true;
for i:=1 to n do
begin
sum:=0;
for j:=1 to z[i]+1 do
begin
t:=1;
for l:=1 to j-1 do
t:=t*(z[i]-l+1)/(w[i]-l+1);
t:=t*(w[i]-z[i])/(w[i]-j+1);
sum:=sum+t*j;
end;
if sum>max then
f:=false;
end;
if f then
write('Continue.')
else
write('Return.');
end;

begin
init;
proc;
end.

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息