聪明人的游戏上课稿.pptVIP

家庭游园会 编排入场顺序 及时充电（自定义数据类型） Pascal 语言除了自身提供的标准数据类型外，还允许我们自己定义数据类型。 格式：type 类型名称=类型描述 作用：按照描述定义我们所需要的数据类型。 几种自定义类型： 1、定义数组类型 type 数组类型名称=array[下标范围] of 基类型 例如： 2、定义子界类型 type 子界类型名称=下界..上界 数据排序 探索奥秘 展示实力（阅读程序） 展示实力（编写程序） Faibonacci数列前几项为：0，1，1，2，3，5，8，…,其规律是从第3项起，每项均等于前两项之和。求前30项，并以每行5个数的格式输出。 * * “家庭游园会”代表队 China（爷爷） England（奶奶） Italy（外公） Spain（外婆） Sweden（爸爸) Canada（妈妈） Greece（小冬冬）America（表弟） 你知道奥运会开幕式的入场顺序是怎么确定的吗？ 首先是奥运会的发源地希腊（Greece）第一个入场，然后是除了东道主之外的其他国家按字母顺序入场，最后是东道主入场。 Program P1_17_1； type dbd=array[1..10] of string[10]; var i,j:integer; rc:dbd; team:string[10]; begin rc[1]:=‘Greece’;rc[8]:=‘China’;rc[2]:=‘England’; rc[3]:=‘Italy’; rc[4]:=‘Spain’;rc[5]:=‘Sweden’;rc[6]:=‘Canada’; rc[7]:=‘America’; for i:=2 to 6 do for j:=i+1 to 7 do if rc[i]rc[j] then begin team:=rc[i];rc[i]:=rc[j];rc[j]:=team; end; for i:= 1 to 8 do writeln(i:3,’:’,rc[i]); end. type age=array[1..100] of integer; var nj,nm:age; var nj,nm: array[1..100] of integer; 等价 特别注意：所有类型名都要先定义后使用，不能对变量的说明放到类型定义之前。 冒泡派讯的通用程序段：（从小到大） for i:= 1 to n-1 do for j:=i+1 to n do if a[i]a[j] then begin w:=a[i];a[i]:=a[j];a[j]:=w; end 其中n是要排序的数据个数，a是存放数据的数组，i，j是 循环变量。实际应用可以使用其他变量名称。 中秋家庭游园会的“团团圆圆贺中秋”节目是这样的：首先，一家人手拉手围成一圈，表示一家大团圆，然后从第一个人开始报数，数到3的人出圈，奖吃一块月饼；再从下一个开始数，数到3的人出圈……依此方法直到最后一个人出圈，把最后一块月饼吃掉为止。 请帮小冬冬找出一家人奖吃月饼的顺序（用编号表示） Program P1_17_3； type round=array[1..8] of 0..1; var t:round; i,p,k,n:1..9; begin for i:=1 to 8 do t[i]:+1; p:=0;n:=0; while n8 do begin k:=0; repeat p:=p+1; if p8 then p:=1; k:=k+t[p]; until k=3; write(p:3);t[p]:=0;n:=n+1; end; end. var i ,j :integer; w:array[1..3,1..3] of integer; begin for i:=1 to 3 do for j:=1 to 2 do read(w[i,j]); for i:=1 to 3 do begin w[I,3]:=0; for j:=1 to 2 do w[i,3]:=w[i,3]+w[i,j]; end;writeln(w[3,3]); end.(运行时输入：1 2 3 4 5) type hd=array[1..50] of integer;