翱翔的感觉

摘要： 野人和传教士各三人，小船只能载两人，要求野人的人数不能多于传教士。输出过河的方案program yeren;const c:array[1..5,1..2]of integer=((1,0),(0,1),(1,1),(2,0),(0,2));var a:array[1..100,1..2]of integer; function can(k:integer):boolean;//检验新产生的状态是否满足条件 var i:Longint; begin if (a[k,1]<0)or(a[k,1]>3)or(a[k,2]<0)or(a[k,2]>3)then exit(fa 阅读全文

摘要： program langyangcai;var i,j:longint; a:array[1..100,1..4]of integer;function can(k:longint):boolean;var l:longint;begin can:=false; if ((a[k,2]=a[k,3])and(a[k,2]<>a[k,1]))or((a[k,3]=a[k,4])and(a[k,3]<>a[k,1]))then exit;/、是否违反过河规则 l:=k-2; while l>0 do//判断是否重复 begin i... 阅读全文