偶也不懂啊！我是菜鸟啊１！
不过我猜可能要用到枚举和子界类型！！！
要是只算有多少种的话１就要简单些了１但是要写出每种方案的话１就要麻烦些！！
呵呵！偶也不懂啊１

用了枚举，子界类型会更明了。你觉得算有几种，有什么好的方法？谢谢。

  排列组合吧
  套公式

如何套啊？谢谢。

用递归省时间.
用5重循环也行的.

呵呵，用深度搜索做吧，其实这是一个简单的排列问题
var
s:array[1..5] of integer;{代表五个孩子}
n,p,i,t:integer;
begin
  n:=5; s[1]:=1; p:=1;
  while p>0 do {分配礼物}
    begin
      t:=0;
      for i:=1 to p-1 do
        if s[p]=s[i] then t:=1; {检测礼物有否重复}
      if t=0 then
        if p=n then
          begin
            for i:=1 to n do
              write(s[i],' ');writeln;
          end
        else 
          begin p:=p+1; s[p]:=0; end;
      while (p>0)and(s[p]=5) do p:=p-1;
      if p>0 then inc(s[p]);
    end;
end.

谢谢拉。

 好像是 5*4*3*2*1+4*3*2*1*1

这是什么意思啊？我不太懂。是怎么得出来的

var
  k:array[1..120,1..5]of integer;
  i1,i2,i3,i4,i5,j,i,l:integer;
begin
  i:=1;
  for i1:=1 to 5 do
    for i2:=1 to 5 do
      if i1<>i2 then
        for i3:=1 to 5 do
          if (i1<>i3)and(i2<>i3) then
            for i4:=1 to 5 do
               if (i1<>i4)and(i2<>i4)and(i3<>i4) then
                 for i5:=1 to 5 do
                   if (i1<>i5)and(i2<>i5)and(i3<>i5)and(i4<>i5) then
                     begin
                       k[i,1]:=i1;
                       k[i,2]:=i2;
                       k[i,3]:=i3;
                       k[i,4]:=i4;
                       k[i,5]:=i5;
                       inc(i);
                     end;
  l:=0;
  for i:=1 to 120 do
    for j:=1 to 120 do
      if (k[i,1]<>k[j,1])and(k[i,2]<>k[j,2])and(k[i,3]<>k[j,3])
         and(k[i,4]<>k[j,4])and(k[i,5]<>k[j,5]) then
      begin
        for i1:=1 to 5 do
          write(k[i,i1]:2);
        write(' ');
        for i1:=1 to 5 do
          write(k[j,i1]:2);
        writeln;
        inc(l);
      end;
  write(l);
end.