自编小工具集锦

最新回复

• Virginia (2009-4-27 08:27:37)

  尊敬的CJC:
      您好!
      受朋友之托,想请教您一个关于自制小程序的具体问题,冒昧之处请多见谅,请赐教.
  是这样的,他问我是否可以计算出1~35之间,其中不重复的6个数字相加,和值为你指定的一个数值,(例如105),这样的组合有多少组呢?
      我的计算机基础不是很好,原来学的数据库也因长时间不应用有些模糊了,自己无法解决这个问题,我就想到您这位高手了,请您有时间的时候帮我看一下好吗?  谢谢了!
  
  

• cjc (2009-4-27 09:30:13)

  你可以使用穷举的方法，写6个循环从1至35，把值相加看是不是105。
  
  procedure TForm1.Button1Click(Sender: TObject);
  const m  = 35;
  var
     count, k, v, i1, i2, i3, i4, i5, i6: integer;
     s, ss : string;
  begin
     k := 105;
     count := 0;
     ss := '';
     for i1 := 1 to m do
     begin
        for i2 := i1+1 to m do
        begin
           if i1 = i2 then continue;
           for i3 := i2+1 to m do
           begin
              if (i3=i1) or (i3=i2) then continue;
              for i4 := i3+1 to m do
              begin
                 if (i4=i1) or (i4=i2) or (i4=i3) then continue;
                 for i5 := i4+1 to m do
                 begin
                    if (i5=i1) or (i5=i2) or (i5=i3) or (i5=i4) then continue;
                    for i6 := i5+1 to m do
                    begin
                       if (i6=i1) or (i6=i2) or (i6=i3) or (i6=i4) or (i6=i5) then continue;
                       if i1 + i2 + i3 + i4 + i5 + i6 = k then
                       begin
                          inc(count);
                          // s := format('%d, %d, %d, %d, %d, %d', [i1, i2, i3, i4, i5, i6]);
                          // ss := ss+#13#10+s;
                       end;
                    end;
                 end;
              end;
           end;
        end;
     end;
     memo1.lines.add(inttostr(count)+ '个');
     //savestring(ss, 'h:\result.txt');
  end;

  result.rar
  (2009-04-27 09:30:13, Size: 58.2 KB, Downloads: 434)

• Virginia (2009-5-04 23:44:48)

  收到了您的热心回复,非常感谢!

• (2009-9-24 16:41:05)

  非常的感谢。

• (2009-11-04 17:55:08)

  CJC你好，请问你那个自动删除文件怎么我想删除指定文件夹里面的所有文件和目录，但都没有用的？
  比如：C:\Downloads  里面有几个文件夹和文件，虽然可以删但都删得不完全，有一两个文件和文件夹都删不了的，连DOC的文件也删不了！

• (2010-7-17 12:03:57)

  谢谢你,cjc,我用了你的搜索路径修改器.
  我在windows下用的,有点不习惯,能否改个鼠标直接点击能删除增加路径的,
  还可以直接在路径栏输入路径的,就完美了
  无论如何,非常感谢你.

• (2012-12-11 20:50:54)

  很喜欢作者编的各种小软件!非常实用!想作者致敬

• pdffj (2016-4-17 20:04:13)

  不错不错