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.

轉載于:https://www.cnblogs.com/YYC-0304/p/9500234.html

總結

以上是生活随笔為你收集整理的翻币问题pascal程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。