一大堆的福利之【USACO题库】Mother's Milk母亲的牛奶

最新推荐文章于 2024-05-04 20:48:23 发布

原创最新推荐文章于 2024-05-04 20:48:23 发布 · 1.1k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#Pascal #OJ #福利 #USACO

本文探讨了一个经典的数学问题——农民约翰如何通过不同容量的桶将牛奶从一个桶转移到另一个桶，目标是在某个时刻使其中一个桶为空。文章提供了一段程序代码，用于计算并输出在特定条件下C桶中剩余牛奶的所有可能量。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

题目描述
农民约翰有三个容量分别是A,B,C升的桶，A,B,C分别是三个从1到20的整数，最初，A和B桶都是空的，而C桶是装满牛奶的。有时，约翰把牛奶从一个桶倒到另一个桶中，直到被灌桶装满或原桶空了。当然每一次灌注都是完全的。由于节约，牛奶不会有丢失。

写一个程序去帮助约翰找出当A桶是空的时候，C桶中牛奶所剩量的所有可能性。
PROGRAM NAME: milk3
INPUT FORMAT
单独的一行包括三个整数A,B和C。
SAMPLE INPUT (file milk3.in)
8 9 10
OUTPUT FORMAT
只有一行，列出当A桶是空的时候，C桶牛奶所剩量的所有可能性。
SAMPLE OUTPUT (file milk3.out)
1 2 8 9 10
SAMPLE INPUT (file milk3.in)
2 5 10
SAMPLE OUTPUT (file milk3.out)
5 6 7 8 9 10

var
        bz:array[0..20,0..20]of boolean;
        a,b,c,i,j:longint;
function min(x,y:longint):longint;
begin
        if x>y then min:=y else min:=x;
end;
procedure search(ma,mc:longint);
var
        mb:longint;
begin
        if bz[ma,mc] then exit;
        bz[ma,mc]:=true;
        mb:=c-ma-mc;
        search(ma-min(ma,b-mb),mc);
        search(ma-min(ma,c-mc),mc+min(ma,c-mc));
        search(ma+min(mb,a-ma),mc);
        search(ma,mc+min(mb,c-mc));
        search(ma+min(mc,a-ma),mc-min(mc,a-ma));
        search(ma,mc-min(mc,b-mb));
end;
begin
        readln(a,b,c);
        fillchar(bz,sizeof(bz),false);
        search(0,c);
        for i:=0 to c do
                if bz[0,i] then write(i,' ');
end.