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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/24 07:47:24
设计一个PASCAL程序:某机关组织游泳比赛.将一堆西瓜分给前三名,把该堆西瓜中的一半又半个西瓜奖给第一名;剩下的一半又半个西瓜给第二名;把最后剩下的一半又半个西瓜给第三名,但每设计一个PASCAL程

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

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