翻币问题pascal程序
Description
有N个硬币(6<=N<=20000)全部正面朝上排成一排,每次将其中5个硬币翻过来放在原位置,直到最后全部硬币翻成反面朝上为止。试编程找出步数最少的翻法,输出最少步数及翻法。
Input
从键盘输入一个正整数N(6<=N<=20000),表示硬币的数量。
Output
第1行:一个整数,表示最少步数
第2行至最后一行:先是一个整数,表示步骤序号(从0开始编号),后接一个":",再接当前硬币的状态(用一个整数表示正面朝上的硬币的个数)
Sample Input
6 (开始:6个硬币正面朝上)
Sample Output
0:6 (第0步结果:6个硬币正面朝上)
1:1 (第1步结果:1个硬币正面朝上)
2:4 (第2步结果:4个硬币正面朝上)
3:3 (第3步结果:3个硬币正面朝上)
4:2 (第4步结果:2个硬币正面朝上)
5:5 (第5步结果:5个硬币正面朝上)
6:0 (第6步结果:0个硬币正面朝上)
6 (最少用6步实现全部反面朝上)
Hint
只输出最少次数,其变化过程仅作参考
这题我是用广度优先搜索做的
看懂题目就好做多了
主要就是判断硬币满不满足翻的条件(即不能将五个正面翻成二反三正之类的)
还有判断这种正与反的情况有没有出现过
var
father,state:array[0..20000]of longint;
n,tj:longint;
procedure print(x:longint);
begin
if x=0 then exit;
print(father[x]);
inc(tj);
end;
procedure bfs;
var
head,tail,i,j:longint;
begin
head:=0;tail:=1;state[1]:=n;
repeat
inc(head);
for i:=0 to 5 do
begin
if (state[head]>=i)and(n-state[head]>=5-i) then
begin
inc(tail);
father[tail]:=head;
state[tail]:=state[head]-i+5-i;
for j:=1 to tail-1 do
if state[j]=state[tail] then
begin
dec(tail);
break;
end;
if state[tail]=0 then
begin
print(tail);
tail:=0;
end;
end;
end;
until head>=tail;
end;
begin
read(n);
bfs;
write(tj-1);
end.