聪明人的游戏上课稿第.ppt

家庭游园会 “家庭游园会”代表队 China（爷爷） England（奶奶）Italy（外公） Spain（外婆）Sweden（爸爸)Canada（妈妈） Greece（小冬冬）America（表弟） 你知道奥运会开幕式的入场顺序是怎么确定的吗？ 首先是奥运会的发源地希腊（Greece）第一个入场，然后是除了东道主 之外的其他国家按字母顺序入场，最后是东道主入场。 编排入场顺序 Program P1_17_1； type dbd=array110 of string10; var i,j:integer; rc:dbd; team:string10; begin rc1:=Greece;rc8:=China;rc2:=England; rc3:=Italy; rc4:=Spain;rc5:=Sweden;rc6:=Canada; rc7:=America; for i:=2 to 6 do for j:=i+1 to 7 do if rcircj then begin team:=rci;rci:=rcj;rcj:=team; end; for i:= 1 to 8 do writeln(i:3,:,rci); end. 及时充电（自定义数据类型） Pascal 语言除了自身提供的标准数据类型外，还允许我们自己定义数据类型。 格式：type 类型名称= 作用：按照描述定义我们所需要的数据类型。 几种自定义类型： 1、定义数组类型 type 数组类型名称=array下标范围 of 例如： 2、定义子界类型 type 子界类型名称= type age=array1100 of integer; var nj,nm:age;var nj,nm: array1100 of integer; 等价 特别注意：所有类型名都要先定义后使用，不能对变量的说明放到类型定义之前。 数据排序 冒泡派讯的通用程序段：（从小到大） for i:= 1 to n-1 do for j:=i+1 to n do if aiaj then begin w:=ai;ai:=aj;aj:=w; end 其中n是要排序的数据个数，a是存放数据的数组，i，j是 循环变量。实际应用可以使用其他变量名称。 探索奥秘 中秋家庭游园会的“团团圆圆贺中秋”节目是这样的：首先，一家人手拉手围成一圈，表示一家大 团圆，然后从第一个人开始报数，数到3的人出圈，奖吃一块月饼；再从下一个开始数，数到3 的人出圈依此方法直到最后一个人出圈，把最后一块月饼吃掉为止。 请帮小冬冬找出一家人奖吃月饼的顺序（用编号表示） Program P1_17_3； type round=array18 of 01; var t:round; i,p,k,n:19; begin for i:=1 to 8 do ti:+1; p:=0;n:=0; while n8 then p:=1; k:=k+tp; until k=3; write(p:3);tp:=0;n:=n+1; end; end. 展示实力（阅读程序） var k,t:110;dp:11000; begin for k:=1 to 10 do for t:=1 to 10 do dp:=dp+k*t; writeln(dp); end. var k:integer; mp:array110 of char; begin for k:=1 to 10 do mpk:=chr(64+k); writeln(mp3,mp5); end. type hd=array150 of integer; var jj:hd; x:120; begin jj1:=2;x:=1; repeat x:=x+1; jjx:=jjx-1*3; until x=4; writeln(jjx) end. var i ,j :integer; w:array13,13 of integer; begin for i:=1 to 3 do for j:=1 to 2 do read(wi,j); for i:=1 to 3 do begin wI,3:=0; for j:=1 to 2 do wi,3:=wi,3+wi,j; end;writeln(w3,3); end.(运行时输 入：1