pascal教程（pascal排列组合教程）

本文目录

• pascal排列组合教程
• free pascal 教程
• ord是什么意思
• pascal教程

pascal排列组合教程

排列与组合3.1加法原理与乘法原理1.加法原理：做一件事情，完成它可以有n类办法，在第一类办法中有m1 种不同的方法，在第二类办法中有 m2种不同的方法，……，在第n类办法中有 mn种不同的方法。那么完成这件事共有 N= m1+m2+...+mn 种不同的方法。2.乘法原理： 做一件事情，完成它需要分成n个步骤，做第一步有m1 种不同的方法，做第二步有 m2种不同的方法，……，做第n步有 种mn不同的方法，那么完成这件事有 N=m1*m2*...*mn 种不同的方法。 3.两个原理的区别：一个与分类有关，一个与分步有关；加法原理是“分类完成”，乘法原理是“分步完成”。 练习：1.由数字1，2，3，4，5可以组成多少个三位数（各位上的数字允许重复）？ ② 2.由数字0、1，2，3，4，5可以组成多少个三位数（各位上的数字允许重复）？ ③ 3.由数字0，1，2，3，4，5可以组成多少个十位数字大于个位数字的两位数？ 例 4. 一个三位密码锁,各位上数字由0,1,2,3,4,5,6,7,8,9十个数字组成,可以设置多少种三位数的密码(各位上的数字允许重复)？首位数字不为0的密码数是多少种？首位数字是0的密码数又是多少种？ 5.如图，要给地图A、B、C、D四个区域分别涂上3种不同颜色中的某一种，允许同一种颜色使用多次，但相邻区域必须涂不同的颜色，不同的涂色方案有多少种？ 6.某班有22名女生，23名男生. ① 选一位学生代表班级去领奖，有几种不同选法？ ② 选出男学生与女学生各一名去参加智力竞赛，有几种不同的选法？ 7.105有多少个约数？并将这些约数写出来. 8.从5幅不同的国画、2幅不同的油画、7幅不同的水彩画中选不同画种的两幅画布置房间，有几种选法？ 9.若x、y可以取1，2，3，4，5中的任一个，则点(x,y)的不同个数有多少？ 10.一个口袋内装有5个小球另一个口袋内装有4个小球，所有这些小球的颜色各不相同① 从两个口袋内任取一个小球，有 种不同的取法； 11.从两个口袋内各取一个小球，有 种不同的取法. 12.乘积（a1+a2+a3）(b1+b2+b3+b4)(c1+c2+c3+c4+c5)展开共有 个项。 13.有四位考生安排在5个考场参加考试.有 种不同的安排方法。 (答案:125；180；15；1000，900，100；6；45，506；8；59；25；9；20；60；625）3. 2 排列与组合的概念与计算公式1．排列及计算公式从n个不同元素中，任取m(m≤n)个元素按照一定的顺序排成一列，叫做从n个不同元素中取出m个元素的一个排列；从n个不同元素中取出m(m≤n)个元素的所有排列的个数，叫做从n个不同元素中取出m个元素的排列数，用符号 p(n,m)表示.p(n,m)=n(n-1)(n-2)……(n-m+1)= n!/(n-m)!(规定0!=1).2．组合及计算公式 从n个不同元素中，任取m(m≤n)个元素并成一组，叫做从n个不同元素中取出m个元素的一个组合；从n个不同元素中取出m(m≤n)个元素的所有组合的个数，叫做从n个不同元素中取出m个元素的组合数.用符号c(n,m) 表示.c(n,m)=p(n,m)/m!=n!/((n-m)!*m!)；c(n,m)=c(n,n-m);3．其他排列与组合公式从n个元素中取出r个元素的循环排列数＝p(n,r)/r=n!/r(n-r)!.n个元素被分成k类，每类的个数分别是n1,n2,...nk这n个元素的全排列数为n!/(n1!*n2!*...*nk!).k类元素,每类的个数无限,从中取出m个元素的组合数为c(m+k-1,m).练习： 1．（1）用0，1，2，3，4组合多少无重复数字的四位数？（96） （2）这四位数中能被4整除的数有多少个？（30） （3）这四位数中能被3整除的数有多少个？（36） 2．用0，1，2，3，4五个数字组成无重复数字的五位数从小到大依次排列. （1） 第49个数是多少？（30124） （2） 23140是第几个数？（40） 3．求下列不同的排法种数：（1） 6男2女排成一排，2女相邻；(p(7,7)*p(2,2))（2） 6男2女排成一排，2女不能相邻；(p(6,6)*p(7,2))（3） 5男3女排成一排，3女都不能相邻;(p(5.5)*p(6,3))（4） 4男4女排成一排，同性者相邻；(p(4,4)*p(4,4)*p(2,2))（5） 4男4女排成一排，同性者不能相邻。(p(4,4)*p(4,4)*p(2,2)) 4．有四位医生、六位护士、五所学校。(1) 若要选派三位医生到五所学校之中的三所学校举办健康教育讲座，每所学校去一位医生有多少种不同的选派方法？(c(5,3)*p(4,3))(2) 在医生或护士中任选五人，派到五所学校进行健康情况调查，每校去且仅去一人，有多少种不同的选派方法？(p(10,5))(3) 组成三个体检小组，每组一名医生、两名护士，到五所学校中的三所学校为老师体检，有多少种不同的选派方法？(c(5,3)*p(4,3)*c(6,2)*c(4,2)*c(2,2))5．平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同四边形？(2250) 6．平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同三角形？(751) 7．将N个红球和M个黄球排成一行。例如:N=2,M=2可得到以下6种排法: 红红黄黄 红黄红黄 红黄黄红 黄红红黄 黄红黄红 黄黄红红 问题:当N=4,M=3时有多少种不同排法?(不用列出每种排法)(35)8.用20个不同颜色的念珠穿成一条项链,能做多少个不同的项链.(20!/20)9．在单词MISSISSIPPI 中字母的排列数是(11!/(1!*4!*4!*2!)10．求取自1,2,...k的长为r的非减序列的个数为(c(r+k-1,r)) 3.3排列与组合的产生算法1．排列的产生方法1：（递归，深度优先产生）程序如下：program pailei;const m=4;var a:array of integer ; b:array of boolean;procedure print;var i:integer;begin for i:=1 to m do write(a); writeln;end;procedure try(dep:integer);var i:integer;begin for i:=1 to m do if b then begin a:=false; if dep=m then print else try(dep+1); b:=true; end;end;beginfillchar(b,sizeof(b),true);try(1);end.方法2．根据上一个排列产生下一个排列．程序如下：program pailei;const m=5;var a:array of integer ;i,j,temp,k,l:integer;procedure print;var i:integer;begin for i:=1 to m do write(a); writeln;end;beginfor i:=1 to m do a:=i;repeat print; i:=m-1; while (i》0) and (a) do i:=i-1; if i》0 then begin j:=m; while a do j:=j-1; temp:=a:=temp; k:=i+1;l:=m; while k《l do begin temp:=a:=temp; k:=k+1;l:=l-1 end; end;until i=0;end.2．组合的产生算法算法1：（递归，深度优先产生）程序如下：program zuhe;const n=6;m=4;var a:array of integer; i,j:integer;procedure print;var i:integer;begin for i:=1 to m do write(a); writeln;end;procedure try(dep:integer);var i:integer;begin for i:=a+1 to n-(m-dep) do begin a:=i; if dep=m then print else try(dep+1); endend;begina:=0;try(1);end.算法2：根据前一个组合产生下一个组合程序如下：program zuhe;const n=6;m=4;var a:array of integer; i,j:integer;procedure print;var i:integer;begin for i:=1 to m do write(a); writeln;end;begin for i:=1 to m do a:=i; repeat print; i:=m; while (i》0) and (a=n-(m-i)) do dec(i); if i》0 then begin a+1; for j:=i+1 to m do a+1; end; until i=0;end.练习：1．已知n（1《=n《=20）个整数x1,x2,…,xn（1《=xi《=5000000），以及一个整数k（k《n）。从n个整数中任选k个整数相加，可分别得到一系列的和。现在，要求你计算出和为素数共有多少种。2．n个部件,每个部件必须经过先A后B两道工序。 以知部件i在A,B 机器上的时间分别为ai，bi。如何安排加工顺序，总加工时间最短？ 输入： 5 部件 1 2 3 4 5 ai 3 5 8 7 10 bi 6 2 1 4 9 输出：341 5 4 2 3我有这个的EXE，讲的东西也还行，这个只是其中的一章，你要要把邮箱留下

free pascal 教程

第一章、pascal介绍一、pascal的基本语法单位 1、基本符号 A——Z；a——z；0——9；+，-，*，/，=，《》，《=，》=，《，》，(，)，，{，}，:=，，，；，.，：，..，’，^ 注意：pascal语言除了能使用以上规定的基本符号外，不得使用任何其它符号。 2、保留字 AND，ARRAY，BEGIN，CASE，CONST，DIV，DO，DIWNTO，ELSE，END，FILE，FOR，FUNTION，GOTO，IF，LABEL，MOD，NIL，OF，OR，PACKED，PROCEDURE，PROGRAM，RECORD，REPEAT，SET，THEN，TO，TYPE，UNTIL，VAR，WHILE，WITH。 注意：所起的文件名不能与保留字相同。 3、标识符 以字母打头的字母数字串，长度小于等于8。 标准标识符（共三十九个）： 标准常量： false,true,maxint 标准类型： integer,real,char,boolean,text 标准文件： input,output 标准函数： abs,arctan,chr,cos,eof,eoln,exp,ln,odd,ord,ored,round,sin,sqr,sqrt,succ,trunc 标准过程： get,new,pack,page,put,read,readln,reset,rewrite,unpack,write, writeln二、程序结构 1、由三大部分组成：程序首部，说明部分，语句部分。 PROGRAM 程序名(input,output)； {……} 解释 CONST pi=3.14159； VAR r,l,s:real; BEGIN write(’input r:’); read(r); l:=2*pi*r; write(’l=’,l,’s=’,s); END; 2、大量使用标点符号，保留字后不加标点符号（END除外）。 第二章、顺序结构程序设计一、标准数据类型 1、实型(real) 小数表示法、指数表示法 2、整型(integer) 正、负整数和零 maxint=32767 pred：前导；succ：后继 ：pred(3)=2；succ(3)=4； pred(true)=false； succ(false)=true 3、字符型(char) 是指在两个单引号中的一个字符。 ord：取序数 ：ord(’A’)=65 4、布尔型(boolean) false；true 用于布尔型的运算：NOT、AND、OR ord(true)=1；ord(false)=0二、常量和变量的定义 常量的定义：CONST pi=3.14159； blank=’ ’； 变量的定义：VAR r,l,s:read； cl:char；三、表达式及赋值语句 ：b2-4ac 写成：sqt(b)-4*a*c 赋值：《变量》：=《表达式》四、输入输出语句 1、输入语句：read(《变量表》)；readln(《变量表》) 注：表达式里面变量与变量之间用逗号隔开； readln表示下一个语句将从下一行开始操作； 输入时，整型或实型用空格或回车隔开，字符型之间无需分隔，一个接一 个输入。 2、输出语句：write(《输出表》)；writeln(《输出表》) 注：对real或integer限定场宽：write(’a=’,a:2:0) {a为real型}第三章、选择结构程序设计一、if 语句格式：IF《条件》 THEN《语句1》 ESLE《语句2》注：1、ELSE与最近的并且未被配对的ELSE配对； 2、复合，如果THEN或ELSE带有多个语句，则要用BEGIN——END括起来。二、CASE语句格式：CASE 《表达式》 OF 《值表1》：《语句1》 《值表2》：《语句2》 …… 《值表n》：《语句n》 END注：1、值表的三种表达方式：“1：”；“2，4，6：”；“10..100：” 2、CHAR，INTEGER，BOOLEAN有序第四章、循环结构程序设计一、FOR语句格式：1、FOR 《循环变量》：=《初值》 TO 《终值》 DO 《语句》； 2、FOR《循环变量》：=《终值》 DOWNTO 《初值》 DO 《语句》。：输入10个数，求最大值、最小值、和、及平均值。PROGRAM ten(input,output);VAR a,s,max,min,avg:real; i:integer;BEGIN write(’please input:’); read(a); s:=a; max:=a; min:=a; FOR i:=2 TO 10 DO BEGIN read(a); s:=s+a; IF a》max THEN max:=a ELSE IF a《min THEN min:=a END; avg:=s/i; writeln(……);END.：求s=1!+2!+3!+……+10!program sum_fac(input,output);var i,j,s,m:integer;begin s:=0: for j:=1 to 10 do begin m:=1; for j:=1 to i do m:=m*j; s:=s+m; end; write(……);end;二、while语句 格式：WHILE 《条件》 DO 《循环体》：输入一串字符串，求第一个“，”前的大小写字母个数和其它字符个数。program string(input,output);var ch:char; c,s,o:integer;begin write(……); read(ch); c:=0; s:=0; o:=0; while ch《》’,’ do begin if (ch》=’A’)and(ch《=’Z’) then c:=c+1 else if (ch》=’a’)and(ch《=’z’) then s:=s+1 else o:=o+1; read(ch); end; write(……)；end.三、REPEAT语句格式：REPEAT 《循环体》 UNTIL：以字符(char)的形式读入一实数，以实形(real)输出该数。第五章、函数与过程程序设计一、函数（包括标准函数和自定义函数） 1、函数的定义 格式：FUNCTION 函数名（《形参表》）：返回值类型； VAR 《变量说明》 BEGIN 《函数体》 END ：1、形参表每个参数都写明其类型； 2、有且只有一个返回值，并且要将返回值赋值给函数名。 ：求五边形的面积 function area(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; area:=sqrt(p*(p-a)*(p-b)*(p-c); end; 2、函数的调用 1）、函数的调用必然出现在表达式中（等号的右边），不能以单独地在语句出现 2）、调用时，将每个实参传递给对应的形参 program ml_area(input,output); var l1,l2,l3,l4,l5,l6,l7,s:real; function area(a,b,c:real):real; var p:real; begin p:=(a+b+c)/2; area:=sqrt(p*(p-a)*(p-b)*(p-c); end; begin write(’input’); readln(l1,l2,l3,l4,l5,l6,l7); s:=area(l1,l2,l6)+area(l2,l6,l7)+……; writeln(’s=’,s:10:3); end.二、过程格式：PROCEDURE《过程名》(《形式参数表》) VAR 《说明部分》 BEGIN 《过程体》 END；某过程的形参表为（var a,b:real;c,d:integer;var e:char)； 主程序中有如下变量说明：x,y:real; m:integer; next:char； 则以下实参表中合法的有：(1、2、3) 1、(x,y,m+3,70,next) 2、(y,x,m,m,next) 3、(y,x,35,m DIV 10,next) 4、(m,x,30,10,next) 5、(x,y,m,10) 6、(35,0,y,m,10,next) 7、(x,y,m,m/10,next) 8、(A,B,30,10,next)求程序输出的结果。program ex(input,output);var x,y,z:integer;procedure s(x:integer; var y:integer); var z:integer begin x:=5; y:=6; z:=7; end;begin x:=1; y:=2; z:=3; s(x,y); writeln(x,y,z);end.输出结果：1 6 3：求五个数中的最大值。program max_in_5(input,output);var n1,n2,n3,n4,n5:integer;procedure lagest_in_three(a,b,c:integer;var e:integer) begin e:=a; if b》e then e:=b; if c》e then e:=c; end;begin write(’……’); readln(n1,n2,n3,n4,n5); lagest(n1,n2,n3,n1); lagest(n1,n4,n5,n1); write(n1);end.三、嵌套：计算、program Cmn(input,output);function fax(x:integer):integer: var i:integer; begin fac:=1; for i:=1 to x do fac:=fac*i; end;function c(a,b:integer):real; begin c:=fac(a)/fac(b)*fac(a-b) end;begin writeln(’c(9,3)=’,c(9,3)); writeln(’c(8,5=’,c(8,5));end.四、递归 函数或过程调用它本身，称为递归。、用递归计算n! {=m!/n!(m-n)!}program fac_n(input,output);var n:integer;function fac(n:integer):integer; begin if n=1 then fac:=1 else fac:=n*fac(n-1); end;、用递归计算 1)、function power(a,b:integer):integer; begin if b=1 then power:=a else power:=a*power(a,b-1); end; 2)、procedure power(a,b:integer;var c:integer); begin if b=1 then c:=a else power(a,b-1,c); c:=a*c; end; 、输入一串字符串（以‘.’结束）按逆顺输出program revers(input,output);procedure rever; var c:char; begin read(c); if c《》’.’ then rever; write(c); end;begin rever;end.五、标识符的作用域1、全局变量和局部变量 1）、全局变量：在主程序中被说明，作用域：整个程序； 2）、局部变量：在子程序中被说明，作用域：主程序及其下级的程序。2、子程序（function、precedure）的作用域 一个子程序可以调用它的下一级了程序，或可以调用在它之前定义的同级子程序。写出程序运行的结果。program range(input,output);var x,y:integer;procedure p1; var x,z:integer; begin x:=10; y:=y+1; z:=10; writeln(x,y,z); end;begin x:=1; y:=1; writeln(x,y); p1; writeln(x,y,z);end.结果为：(x y z)1 110 2 101 2 (error)3、在子程序中被改变值的变量可以回传的两种方法： a、变量参数 procedure(var 变量名); b、在上一级程序定义了的，且在下一级程序未被重新定义的。如果主程序的变量在子程序被重新定义，在子程序中主程序的变量被稳藏，在主程序中子程序的变量无效。

ord是什么意思

ord在PASCAL中有对应的函数，强制转换就可以,作用就是求一个字符对应的ascii码(AsciI码就是字母在计算机中的二进制编码)的值。pascal（结构化编程语言）Pascal的名称是为了纪念十七世纪法国著名哲学家和数学家BlaisePascal而来的，它由瑞士NiklausWirth教授于六十年代末设计并创立的。Pascal语言语法严谨，层次分明，程序易写，可读性强，是第一个结构化编程语言。Pascal计算机程序教程如今已经有专业化课程，并且越来越完善和严格化。Pascal有6个主要的版本，分别是ActionPascal、UnextendedPascal、ExtendedPascaL、Object-OrientedExtensionstoPascal、BorlandPascal和DelphiObjectPascal。Pascal语言广泛用于各种软件，程序分为名称（program后自拟）、设置（var后规定）、开始（begin)、程序（正文）、读取（read/readln）、结束（end），结构层次强，严谨而又紧密。

pascal教程

var n,a,b,c,d:longint;begin readln(n); a:=n div 1000; b:=n div 100 mod 10; c:=n div 10 mod 10; d:=n mod 10; writeln(a+b*10+c*100+d*1000);end.