2019-2020年高中信息技术 全国青少年奥林匹克联赛教案 排列与组合.doc

上传人:tian****1990 文档编号:2613277 上传时间:2019-11-28 格式:DOC 页数:3 大小:19KB
返回 下载 相关 举报
2019-2020年高中信息技术 全国青少年奥林匹克联赛教案 排列与组合.doc_第1页
第1页 / 共3页
2019-2020年高中信息技术 全国青少年奥林匹克联赛教案 排列与组合.doc_第2页
第2页 / 共3页
2019-2020年高中信息技术 全国青少年奥林匹克联赛教案 排列与组合.doc_第3页
第3页 / 共3页
亲,该文档总共3页,全部预览完了,如果喜欢就下载吧!
资源描述
2019-2020年高中信息技术 全国青少年奥林匹克联赛教案 排列与组合课题:排列与组合目标:知识目标:如何利用程序就各种排列和组合 能力目标:排列组合的运用重点:求出n的全排列和从m中取n个的组合难点:算法的理解板书示意:1) 求全排列的算法2) 求组合数的算法授课过程:例5:有3个人排成一个队列,问有多少种排对的方法,输出每一种方案?分析:如果我们将3个人进行编号,分别为1、2、3,显然我们列出所有的排列,123,132,213,231,312,321共六种。可用循环枚举各种情况,参考程序:program exam5;var i,j,k:integer;begin for I:=1 to 3 do for j:=1 to 3 do for k:=1 to 3 do if (i+j+k=6) and (i*j*k=6) then writeln(i,j,k);end.上述情况非常简单,因为只有3个人,但当有N个人时怎么办?显然用循环不能解决问题。下面我们介绍一种求全排列的方法。设当前排列为P1 P2 ,Pn,则下一个排列可按如下算法完成:1求满足关系式Pj-1 Pj的J的最大值,设为I,即I=maxj | Pj-1 Pj , j = 2.n2求满足关系式Pi -1 Pk的k的最大值,设为j,即J=maxK | Pi-1 Pk , k = 1.n3Pi -1与Pj互换得 (P) = P1 P2 ,Pn4(P) = P1 P2 , Pi-1 Pi, Pn部分的顺序逆转,得P1 P2 , Pi-1 Pn Pn-1, Pi便是下一个排列。例:设P1 P2 P3 P4 =34211I= maxj | Pj-1 Pj , j = 2.n = 22J=maxK | Pi-1 Pk , k =1.n = 23P1与P2交换得到432144321的321部分逆转得到4123即是3421的下一个排列。程序设计如下:program exam5;const maxn = 100;var i,j,m,t : integer; p : array1.maxn of integer; count :integer; 排列数目统计变量begin write(m:);readln(m); for i:=1 to m do begin pi:=i; write(i) end; writeln; count:=1; repeat求满足关系式Pj-1 1) and (pi-1=pi) do dec(i); if i=1 then break; 求满足关系式Pi -1 0) and (pi-1=pj) do dec(j); if j=0 then break; Pi -1与Pj互换得 (P) = P1 P2 ,Pm t:=pi-1;pi-1:=pj;pj:=t;Pi, Pm的顺序逆转 for j:=1 to (m-i+1) div 2 do begin t:=pi+j-1;pi+j-1:=pm-j+1;pm-j+1:=t end; 打印当前解 for i:=1 to m do write(pi); inc(count); writeln; until false; writeln(count)End.例6:求N个人选取M个人出来做游戏,共有多少种取法?例如:N=4,M=2时,有12,13,14,23,24,34共六种。分析:因为组合数跟顺序的选择无关。因此对同一个组合的不同排列,只需取其最小的一个(即按从小到大排序)。因此,可以设计如下算法:1最后一位数最大可达N,倒数第二位数最大可达N-1,依此类推,倒数第K位数最大可达N-K+1。若R个元素组合用C1C2 CR表示,且假定C1C2 CR, CR=N-R+I, I=1,2,R。2当存在CjN-R+J时,其中下标的最大者设为I,即I=maxJ | CjN-R+J,则作Ci := Ci +1,与之对应的操作有Ci+1 := Ci +1 ,Ci+2 := Ci +1+1 ,. ,CR := CR-1 +1参考程序:program exam6;const maxn=10;var i,j,n,m :integer; c :array1.maxnof integer; c数组记录当前组合BeginWrite(n & m:); readln(n,m); for i:=1 to m do begin初始化,建立第一个组合 ci:=i; write(ci); end; writeln; while c1n-m+1) and ( j0) do dec(j);求I=maxJ | CjN-R+J cj:=cj+1; for i:=j+1 to m do ci:=ci-1+1;建立下一个组合 for i:=1 to m do write(ci);writeln输出 end;End.
展开阅读全文
相关资源
正为您匹配相似的精品文档
相关搜索

最新文档


当前位置:首页 > 图纸专区 > 高中资料


copyright@ 2023-2025  zhuangpeitu.com 装配图网版权所有   联系电话:18123376007

备案号:ICP2024067431-1 川公网安备51140202000466号


本站为文档C2C交易模式,即用户上传的文档直接被用户下载,本站只是中间服务平台,本站所有文档下载所得的收益归上传人(含作者)所有。装配图网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对上载内容本身不做任何修改或编辑。若文档所含内容侵犯了您的版权或隐私,请立即通知装配图网,我们立即给予删除!