pascal的程序设计！快来啊1

来源：百度知道 编辑：UC知道 时间：2024/07/07 15:23:21
某机关组织游泳比赛。将一堆西瓜分给前三名，把该堆西瓜中的一半又半个西瓜奖给第一名；剩下的一半又半个西瓜给第二名；把最后剩下的一半又半个西瓜给第三名，但每次分时并没切开任何一个西瓜，且刚好西瓜分完。问前三名各分到多少个西瓜
我要的不是计算的过程，是在电脑的PASCAL里如何输入，并求解！

其实这并不难，Pascal要的是逆序运算，如果按方程的方式就太难了
程序如下
program watermelon;
var i,j,n:shortint;
begin
for j:=1 to 3 do
begin
n:=i;
i:=trunc((i+0.5)*2);
writeln('di',4-j,'ming:',i-n);
end;
end.
输出格式为：
第三名：1
第二名：2
第一名：4

好久没碰了…………
{不知道能不能用……}
program q1;
var
a,i,j,n:integer;
begin
read(n);
for i:=1 to 3 do
begin
writeln((n div 2)+1);
n:=n div 2;
end;
end.

我学过那个的

program watermelon;
var i,j,n:shortint;
begin
for j:=1 to 3 do
begin
n:=i;
i:=trunc((i+0.5)*2);
writeln('di',4-j,'ming:',i-n);
end;
end.
输出格式为：
第三名：1
第二名：2
第一名：4