第三章 9月14日枚举.ppt

侦探推理 明明同学最近迷上了侦探漫画《柯南》并沉醉于推理游戏之中，于是他召集了一群同学玩推理游戏。游戏的内容是这样的，明明的同学们先商量好由其中的一个人充当罪犯（在明明不知情的情况下），明明的任务就是找出这个罪犯。接着，明明逐个询问每一个同学，被询问者可能会说： 1、根据输入信息建立几张表 设同学数为m，有效证词数为proofs；name为名字表，其中name[i]为第i个同学的名字（1≤i≤m）； function person(s:string):byte;{输入姓名串s。若s在名字表name中，则返回其序号；否则返回0} function weekday(s:string):byte;{输入日期串s，返回对应的数字} 计算证词的属性 将证词分为三类 证词的内容是指认谁是罪犯（包括自己）； 证词的内容是指认谁不是罪犯（包括自己）； 证词的内容是指认今天的日期； 证词的属性包括证言人、证词类别和指认对象（同学序号或日期）。设 from为证词的证言人序列，其中from[i]为证词I的证言人序号(1≤i≤proofs)； kind为证词类型序列，其中 obj为指认对象序列，其中obj[i] 为证词i(1≤i≤proofs)指认的同学序号（kind[i]=1，2）或日期（kind[i]=3）； procedure record_proof(s:string);{输入证词s。计算证言人的序号、指认罪犯的同学序号（或日期）和证词类型，分别存入from序列、obj序列和kind序列} var f,k,o,x:byte; begin x:=pos(: ,s);{ 计算证言人的序号f} if x=0 then exit; f:=person(copy(s,1,x-1)); if f=0 then exit; delete(s,1,x+1);{删除证言人的名字} ? if s=I am guilty.{若证词内容是“我是罪犯”，则返回指认其为罪犯的同学序号o和证词类型1} then begin k:=1;o:=f;end else if s=I am not guilty. {若证词内容是“我不是罪犯”，则返回指认其不是罪犯的同学序号o和证词类型2 } then begin k:=2;o:=f;end else if copy(s,length(s)-10,11)=is guilty.{若证词内容是“***是罪犯”，则返回指认其为罪犯词的同学序号o和证词类型1} then begin o:=person(copy(s,1,length(s)-11)); if o=0 then exit;k:=1; end else if copy(s,length(s)-14,15)= is not guilty. {若证词内容是“***不是罪犯”，则返回指认其不是罪犯的同学序号o和证词类型2 } then begin o:=person(copy(s,1,length(s)-15)); if o=0 then exit; k:=2; end else if copy(s,1,9)=Today is {若证词内容是“今天星期几”，则返回日期o和证词类型3} then begin delete(s,1,9);o:=weekday(s); if o=0 then exit;k:=3; end else exit;{否则失败返回} inc(proofs);{累计证词数} from[proofs]:=f;{记下第proofs句证词的证言人序号、证词类型和指认对象} kind[proofs]:=k; obj[proofs]:=o; end; 在计算证词的同时，计算有效证词数proofs和每句有效证词的属性： 读同学数m、始终说假话的人数n和证言数p； for i:=1 to m do 读第i个同学的名字name[i]； proofs:=0;{有效的证词数初始化} for i:=1 to p do begin 读第i句证词s； record_proof(s);{记下第i句证词的证言人序号、证词类型和指认对象} end； 2、判断某同学是否为罪犯 设 当前指认是否为罪犯的同学序号为criminal（kind[i]=1或2，obj[i]=criminal），指认的日期为day（