切换到宽版
发帖 回复
返回列表
  • 5200阅读
  • 3回复

新手求助，解决问题 [复制链接]

 上一主题 下一主题
离线gdczf
OIFans入门选手
 
只看楼主 倒序阅读 0 发表于: 2007-04-13
题一：字母组合:现在一串不超过6个字母的小写英文字母,显示出串当中出现过的所有字母组成的集合.
题二：从键盘输入一个20位以内的自然数，然后将组成这个数的各位数字重新排列，得到一个数值为最小的新数，且新数的位数保持不变。
这是关于集合的习题，不知道哪位高手能帮一下忙我这个菜鸟。
回复
举报
分享到 淘江湖 新浪 QQ微博 QQ空间 开心 人人 豆瓣 网易微博 百度 鲜果 白社会 飞信
离线justsoso
OIFans入门选手
只看该作者 1 发表于: 2007-04-15
题一
复制代码
  1. PROGRAM Set1;
  2. Type
  3.   stack=record
  4.     s:array[0..20] of char;
  5.     base,top:integer;
  6.   end;
  7. Var s:string;
  8.   n:byte;
  9.   stk:stack;
  11. Procedure initstack(var st:stack);
  12. begin
  13.   st.base:=0;
  14.   st.top:=0;
  15. end;
  17. Procedure Push(var st:stack;e:char);
  18. begin
  19.   st.top:=st.top+1;
  20.   st.s[st.top]:=e;
  21. end;
  23. Procedure Pop(var st:stack);
  24. begin
  25.   st.top:=st.top-1;
  26. end;
  27. Procedure Print(st:stack);
  28. var i:byte;
  29. begin
  30.   for i:=1 to st.top do write(st.s[i]);
  31.   writeln;
  32. end;
  34. Procedure allset(i:integer);
  35. var b:byte;
  36. begin
  37.   if i<=n then
  38.     begin
  39.     for b:=0 to 1 do
  40.       if b=1 then
  41.         begin
  42.         push(stk,s[i]);
  43.         allset(i+1);
  44.         pop(stk);
  45.         end
  46.       else
  47.         allset(i+1);
  48.     end
  49.   else Print(stk);
  51. end;
  53. Begin
  54. readln(s);
  55. n:=length(s);
  57. allset(1);
  59. readln;
  60. End.
回复
举报
离线justsoso
OIFans入门选手
只看该作者 2 发表于: 2007-04-15
题二就是从高位到低位的数字，从小到大撒
回复
举报
离线gdczf
OIFans入门选手
只看该作者 3 发表于: 2007-04-16
谢谢了
回复
举报
发帖 回复
返回列表
快速回复
限100 字节
 
上一个 下一个