題意

有n堆紙牌，通過把牌移到另一堆，使每一堆的紙牌數相等。

分析

在編號為 1 堆上取的紙牌，只能移到編號為 2 的堆上；在編號為 N 的堆上取的紙牌，只能移到編號為 N-1 的堆上；其他堆上取的紙牌，可以移到相鄰左邊或右邊的堆上。

const
maxn=100;
var
a:array[0..maxn]of longint;
p,n,i,step:longint;
procedure init;
var
i:longint;
begin
? ? readln(n);
? ? for i:=1 to n do
? ? begin
? ? ? ? read(a[i]);
? ? ? ? p:=p+a[i];
? ? end;
? ? p:=p div n;
? ? step:=0;
end;


procedure fs;
var
k,i,j:longint;
begin
? ? for k:=1 to n do
? ? a[k]:=a[k]-p;
? ? i:=1;j:=n;
? ? while (a[i]=0)and(i<n) do inc(i);
? ? while (a[j]=0)and(j>1) do dec(j);
? ? while (i<j) do
? ? begin
? ? ? ? a[i+1]:=a[i]+a[i+1];
? ? ? ? a[i]:=0;
? ? ? ? inc(step);
? ? ? ? inc(i);
? ? ? ? while (a[i]=0)and(i<j) do inc(i);
? ? end;
end;
begin
? ? init;
? ? fs;
? ? write(step);
end.

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

與50位技術專家面對面20年技術見證，附贈技術全景圖

總結

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

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