设计一个PASCAL程序:某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每

来源:学生作业帮助网 编辑:作业帮 时间:2024/11/15 12:31:04
设计一个PASCAL程序:某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每
xRj@f(7Ni*HUvQ(ul%oXqڸI2#3U~!#hu{=F'qnj3\KSKVHE쌨]v DF#b)9NL6(ejCUŨ -U 3J>AAS'6aI}m T`T,~l5`9_[&fS|]G@gjrxoȐ+mcw?I0Eݍ:1Q*^e] #'a#ӻ:;.7b_]6@XCRS@!3s_j&ZgOzueeBӉDb. Ҏ})rͅ~ڗl|U𭀡adWlpKӂDrvVݒ6s|Y\BƋť,%9&"F

设计一个PASCAL程序:某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每
设计一个PASCAL程序:
某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每次分时并没切开任何一个西瓜,且刚好西瓜分完.问前三名各分到多少个西瓜

设计一个PASCAL程序:某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每
不是高精度,max不能过大
亲手编,已测试,
PROGRAM onl6;
CONST
max=1000; {不知道你的那堆西瓜的最大值,在这里先设定为1000}
VAR
a1,a2,a3:real;
n:integer;
BEGIN
n:=5;
WHILE n