大侠们，快来拉小女一把啊！

Question

我们搞课程设计，用Pascal做人、狼、羊、菜过河问题的动画，可是Pascal才刚刚学，搞了几天，一点头绪也没有，请好心的大侠们帮帮我啊，明天下午就要交作业了。愁死了。

Answer 1

用Timage控件，将每个图片放在不同的控件上，之后移动就好了

Answer 2

什么鬼课程序设计啊。这不是糟蹋pascal嘛。用Flash就行了。

Answer 3

eboywy(飞影) ，你是不是说这很简单啊？对pascal大材小用了，能否麻烦你给个例程啊，呵呵！

Answer 4

我faint，控制台程序？那不就是算法程序吗
把狼，羊等等编好号比如狼1羊2白菜3人4,过去是Go，回来是back。然后就是输出过河的序列问题了
42 Go 过去（人羊）
4 back回来（人）
43 Go过去（人菜）
42 back回来（人羊）
41 GO过去（人狼）
4 BAck回来（人）
42 Go过去（人羊）
完成是不是这样，具体的要求偶还不清楚

Answer 5

>>对了，我需要的是控制台程序
感觉有点变态。

Answer 6

>>现在还有学Pascal的？难得！
偶在学校就是学过Pascal的哦！

Answer 7

>>是不是这样，具体的要求偶还不清楚可不可以这么解释。具体的，要，求偶，还不清楚。求偶？唉…… 年轻人啊。不要太好色

Answer 8

不说是MM也许还能帮一把……
一强调是MM就有xx之嫌

Answer 9

楼主，老师是考察一下算法，不过你想法很好要做成动画，很好呀！可是你要想纯用pascal
做动画简直就是难！服了u

Answer 10

很简单...............哈哈哈哈
用FLASH做好,,然后PASCAL调用.

Answer 11

用PASCAL做动画吗？ 给点思路如下：
-- 将人、狼、羊、菜、船做成对象
-- 记录各对象之间的关联图；
-- 搜索关联图求解并显示出来
-- 还可将解存入一个数组中。program river;
type man=object 
         picture:pictype;
         {other item}
         procedure show;
         end;
     sheep =object
         picture:pictype;
         {other item}
         procedure show;
     end;
     wolf =object
         picture:pictype;
         {other item}
         procedure show;
     end;
     cabbage =object
         picture:pictype;
         {other item}
         procedure show;
     end;
procedure move;
...
begin
// search and object.show end.

Answer 12

我以前也做过,你有学过图的搜索的算法吗?大概就是和回溯算法差不多.还有你最后要求所有能行得通的路径还是最近的路径?如果需要帮忙.发来我邮箱吧   [email protected]