PASCAL组合生成的问题

pascal问题~

Huffman的
program asdcas;
var
a:array[0..255,1..2] of longint;
st:string;
i:longint;
begin
readln(st);
for i:=0 to 255 do
a[i,2]:=i;
for i:=1 to length(st) do
a[ord(st[i]),1]:=a[ord(st[i]),1]+1;
for i:=0 to 255 do
if a[i,1]0 then writeln(chr(a[i,2]),' ',a[i,1]);
end.

S（n，k）=13
例如n=4，k=3时S(4，3)=6 ，n>=k，且盒子不允许为

空 所以 组合是C4-2 球放置是1 1 2.
当n=6，k=3 分3种 一种是 4.1.1 1，2，3 和 2，2，2
4.1.1 是 C6-4=15
1.2.3 是 C6-3+C3-2=20
2.2.2 是 C6-2+C4-2=21
S（n，k）=15+20+21=56

求在N个数中任取K个数的所有方案，并逐一输出（输出时从小到大），DEP表示目前枚举到第几个数，PRE表示当前枚举的最后一个数字（最大数字）的大小。

问题：求C(n,k)并输出方案
搜索时保证对于任意组合{b1,b2....bk} 满足b1<b2<b3.....<bn以便不会出现重复组合
dep记录当前组合中选出的数的个数
pre记录最大数字位置

dep 貌似是排列生成；pre应该是初值.我也不是很懂，之前在控制理论编程里看到过，多看范例

---

宜都市15171763160： 排列组合问题 PASCAL程序都可以,将n个不同颜色的球放入k个无标号的盒子中(n>=k,且盒子不允许为空)的方案数记为S(n,k),例如n=4,k=3时S(4,3)=6.... - ？
真雯替勃：[答案] S(n,k)=13 例如n=4,k=3时S(4,3)=6 ,n>=k,且盒子不允许为 空 所以 组合是C4-2 球放置是1 1 2. 当n=6,k=3 分3种 一种是 4.1.1 1,2,3 和 2,2,2 4.1.1 是 C6-4=15 1.2.3 是 C6-3+C3-2=20 2.2.2 是 C6-2+C4-2=21 S(n,k)=15+20+21=56

宜都市15171763160： PASCAL组合生成的问题 - ？
真雯替勃： 问题:求C(n,k)并输出方案 搜索时保证对于任意组合{b1,b2....bk} 满足b1<b2<b3.....<bn以便不会出现重复组合 dep记录当前组合中选出的数的个数 pre记录最大数字位置

宜都市15171763160： 一道非常简单的pascal问题,求用函数和过程一起来做.自然数a的因子指的是能整除a的所有数,但不含a本身.例如12的因子为1,2,3,4,6.若自然数a的因... - ？
真雯替勃：[答案] 用function做的求30000以内的所有＂亲和数＂: var n,i,j,k:longint; function yinzihe(n:longint):longint; var s,i,j:longint; begin s:=1; j:=trunc(sqrt(n)); for i:=2 to j-1 do if n mod i=0 then inc(s,i+n div i); if j*j=n then inc(s,j); yinzihe:=s end; begin for i:=2 to 30000 ...

宜都市15171763160： Pascal 循环问题 - ？
真雯替勃： 循环做法:枚举女生人数x,则男生人数为50-x 然后模拟女生进来,如果最后一个女生给9个男生礼物,则x是对的.数学做法:设女生人数为x,则男生人数为50-x 据题意,(50-x)-x=(9-1),所以x=21.所以女生有21个,男生有29个.

宜都市15171763160： pascal集合问题？
真雯替勃： 集合如果是在主程序中定义的,初始值为[],也就是空集;如果在函数或过程中定义,初始值就不确定了,所以要和数组一样初始化一下,a:=[]; 定义的时候有一个子界范围,比如你提问中的a集合,在a中的元素就一定是>=1且<=10的整数(子界是有序类型的),如果要想把它变成全集,就用下面这段代码就ok了: var a:set of m..n; {这里的m,n的值是你自己定义的,要满足M<=n}t:integer; {计数器} beginfor t:=m to n doa:=a+[t]; {集合合并,这总会吧...} end;

宜都市15171763160： 生成字符串超时问题(pascal) - ？
真雯替勃： 我觉得应该是用一个二维数组按长度放进去c[length(st),c[length(st),0]]:=st; 我记得数据只有一个*,所以不用回溯 判断应用函数 function check(st:string):boolean; var i:longint; begin for i:=1 to c[length(st),0] doif c[length(st),i]=st then exit(true); exit(false); end;

宜都市15171763160： Pascal编程问题？
真雯替勃： var a:array[1..20] of longint; i:longint; begin a[1]:=1; a[2]:=2; for i:=3 to 20 do a[i]:=a[i-2]+a[i-1]; writeln(a[20]); end. 递推式为a[i]=a[i-2]+a[i-1] 原因是第i层可以由第i-2层上来,也可以由第i-1层上来,他们两个加起来就是第i层的 他上20阶楼梯的走法...

宜都市15171763160： Pascal问题(急!!!) - ？
真雯替勃： 1.可以用字符.定义如下:var a:array['A'..'Z']of longint;2.Pascal运行错误对照表Pascal运行错误对照表 运行错误是指程序运行时出现的错误,当发生时,Turbo Pascal显示如下信息: RUNTIME ERROR NNNN AT XXXX:YYYY 其中,nnnn是运行...

宜都市15171763160： PASCAL数组问题!! - ？
真雯替勃： 这是代码,后面有代码的说明 program zhishu; const max=50100; var a:array[1..max]of 0..1; b:array[1..2,1..10000]of longint; n,i,j,k:longint; begin assign(input,'zhishu.in'); reset(input); {若不使用文件可以去掉} assign(output,'zhishu.out'); rewrite(output...

宜都市15171763160： 关于pascal的一些问题？
真雯替勃： var s:string; i,j:integer; t:char; begin readln(s); for i:=1 to 3 do for j:=3 downto i+1 do if s[j] > s[j-1] then begin t:=s[j-1];s[j-1]:=s[j];s[j]:=t end; writeln(s); readln; end.