囚犯点灯 - 辕门射虎 - 轩辕春秋文化论坛 20周年


	toushion

组别	校尉
级别	前将军
功绩	18
帖子	1757
编号	77945
注册	2006-8-4
家族	云水兰若

#61

发表于 2007-9-3 14:00 资料文集短消息只看该作者

第一个出来的囚犯负责用灯的亮灭来计数！
只有第一个囚犯可以点亮灯，其他囚犯如果没出来过，那么出来时把灯灭了，以后如果多次出来，不要灭灯。

这样第一个囚犯下次出来的时候发现灯灭了，就加1

描述程序可以这样写

var
ManNumber:integer;
LampState:String;

ManNumber := 1  //因为第一个人自己肯定出来了
LampState := 'ON'  //灯的状态

while ManNumber < 100  do
   begin

   if  LampState = "OFF"  then
      begin
      ManNumber :=ManNumber+1 ;
      LampState := 'ON';
      end;

   end

[广告] 真诚支持说岳，携手共创辉煌


	青木风亮 (枯木)


	定远侯谏议大夫

组别	翰林学士
级别	平西将军
好贴	3
功绩	521
帖子	2357
编号	12000
注册	2004-7-18
家族	泡泡营

#62

发表于 2008-1-11 23:24 资料主页文集短消息只看该作者

顶一下这个帖子

虽然当事人可能不在意过场还是要走的

给予积极参加讨论的asky和reynolds_wwy每人500tb奖励

[ 本帖最后由青木风亮于 2008-1-11 23:26 编辑 ]

[广告] 《精忠报国岳飞传完整版》火热发布