返回首页

独木舟上的旅行------pascal

来源:www.yingdongcun.com   时间:2023-08-05 12:54   点击:85  编辑:admin   手机版

一、独木舟上的旅行------pascal

Var a:array[0..200]of longint;

i,j,p,q,n,m,w:longint;

Begin

readln(w);

readln(n);

For i:=1 to n do Begin

readln(m);

inc(a[m]);

End;

m:=0;

p:=w;

q:=5;

while p>q do Begin

while (a[p]=0)and(p>q) do dec(p);

if a[p]=0 Then break;

while (a[q]=0)and(p>q) do inc(q);

if p+q<=w Then Begin

dec(a[q]);

dec(a[p]);

inc(m);

End else Begin

dec(a[p]);

inc(m);

End;

End;

writeln(m);

End.

二、鲁滨逊花了几年做独木舟,还挖了一条几尺的运河

他用二十二天砍断一棵大树根部,有花十四天用大斧小斧砍掉树枝和向四周张开的巨大的顶,用了一个多月时间把树削得初具船的形状,后来又花三个多月时间把中间挖空。最后做成一只可以乘下26人的独木舟,大约花了五个多月。至于运河挖了多少尺,书中没写。因为他自己进行了一个估计:自己一人挖好这条运河至少要花十到二十年,所以就放弃了。那条船也一直置在那里。给鲁滨逊一个提示:做任何事,若不预见先计算一下所需的代价,不正确估测一下自己的力量,那是十分愚蠢的!不过他在后来做了一只小一点的独木舟,并驾驶它绕小岛航向一圈。救了星期五以后,两人又做了一只更大的。

三、初中物理题:请想象人划独木舟时的情景,提出两个物理问题,并进行解答.

1独木舟为什么浮在水面上? 答:独木舟受到水的浮力等于重力. 2靠岸时,桨停止划水,舟为什么还向前移动? 答:因为舟有惯性. 3划桨的人出汗后风一吹为什么感到凉快? 答:因为风吹时汗水加快了蒸发,而蒸发要吸热. 4 桨可以看成什么简单机械? 答:杠杆(或费力杠杆) 5划舟的人为什么看到岸边的景物后移? 答:因为他选舟为参照物 6舟到岸边时,用桨一推岸,舟就停下来,说明了什么? 答:力是改变物体运动状态的原因. 呵呵.偶都答了..................

四、独木舟的作品有哪些?

《如果艾佛森去了森林狼》《从德芙到极芙 》《原谅我不记得忘记》《天使不懂海豚的痛》 《哪里还有第二个你》《孔明灯最后落到了哪里》《曾有旧时光给我们幸福》《等待的眼泪是倾斜的海》 《在夏天来临的时候怀念你》《流浪过后,我看见的是海洋》《哪里还有第二个你》《你来过一下子,我想念一辈子》《程落薰,请你一直奔跑》《后来的我总想起从前的你》《世界那么小,我还是弄丢了你》《请你只当呓语听》《全世界已经剧终》《全世界,只想你来忘记我》 《威尼斯一直在下沉》《时光琥珀》《听说叹息桥下的拥抱会永恒》 如果是出的书的话有《你是我的独家记忆》《深海里的星星》还有《月亮说它忘记了》是12月12号才出的。

顶一下
(0)
0%
踩一下
(0)
0%