1道高二物理题

设太阳在一年中辐射到地球水面部分的总能量为W ，W = 1.87×10^24J ，凝结成雨滴年降落到地面上水的总质量为m ，则
m = W×(1－0.07)×(1－0.35)/2.2×10^6 = 5.14×10^17kg ②
使地球表面覆盖一层水的厚度为h ，则
h =m/pS
h=1.01*10^3mm ③
整个地球表面年平均降雨量约为1.01×10^3mm 。

(1.87*10^24J*93%*65%)/(2.2*10^6J)
(年水表面吸收热量)/(水蒸发需要的能量/kg)=每年蒸发的水量(下雨量)/kg
很奇怪的题目..辐射到陆地的能量不要计算蒸发量的吧?
是不是还有其他的几问?
给的条件多但是好象用不上

本人不才，用Turbo Pascal 编了一个程序如下：
program Hwanmd(input,output);
const n=1000;
var a:array[0..n-1] of boolean; {便于统一处理，位置从0开始}
i,j,l,k:integer; {l统计已经出队人数，j为计数器}
begin
writeln;
for i:=0 to n-1 do a[i]:=true; {数组赋为true，作为初值}
write('pai lie ru xia:');
i:=-1;
j:=0;l:=0;
while l<n do
begin
while j<3 do {满足条件就做循环}
begin
i:=(i+1) mod n;{找下一个位置}
if a[i] then j:=j+1;{如果未出队，则计数}
end;
a[i]:=false;{设置第i个位置已出队}
write(i+1:5);{加1是以习惯计数方式输出位置的}
l:=l+1; {出队人数加1}