均分纸牌pascal程序

题意

有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

均分纸牌pascal程序相关推荐

105. 七夕祭【环形均分纸牌问题】
首先你会发现,行交换和列交换是无影响的.故可以分开讨论. 这不就变成了环形均分纸牌的问题了么,和蓝桥杯糖果那题类似. #include<bits/stdc++.h> using names ...
环形均分纸牌问题（中位数)
引入1:货仓选址问题在X轴上有N个商店,其位置位xi(1<i<N),现需要求将货仓在X轴上某一点,求货仓建在何处时使得货仓到各商店距离之和最小. Sum_distance=∑abs(x ...
[codevs] 1098 均分纸牌
均分纸牌题目描述 Description 有 N 堆纸牌,编号分别为 1,2,-, N.每堆上有若干张,但纸牌总数必为 N 的倍数.可以在任一堆上取若于张纸牌,然后移动. 移牌规则为:在编号为 1 ...
Luogu P1031 均分纸牌(贪心)
P1031 均分纸牌题目描述有 N 堆纸牌,编号分别为 1,2,-, N.每堆上有若干张,但纸牌总数必为 N 的倍数.可以在任一堆上取若干张纸牌,然后移动. 移牌规则为:在编号为 1 堆上取的纸牌 ...
信息学奥赛一本通（1320：【例6.2】均分纸牌(Noip2002)）
1320:[例6.2]均分纸牌(Noip2002) 时间限制: 1000 ms 内存限制: 65536 KB 提交数: 12714 通过数: 6841 [题目描述] 有n堆纸牌 ...
均分纸牌问题——（分治 + 贪心 + 前缀和 + 中位数 + 排序）
题目描述七夕节因牛郎织女的传说而被扣上了「情人节」的帽子. 于是TYVJ今年举办了一次线下七夕祭. Vani同学今年成功邀请到了cl同学陪他来共度七夕,于是他们决定去TYVJ七夕祭游玩. TYVJ七 ...
均分纸牌(线性、环形、二维)
感觉好久没写博客了- 题目描述有N堆纸牌,编号分别为1,2,-,N.每堆上有若干张,但纸牌总数必为N的倍数.可以在任一堆上取若干张纸牌,然后移动. 移牌规则为:在编号为1堆上取的纸牌,只能移到编号为 ...
【NOIP模拟赛】七夕祭（环形均分纸牌）
七夕节因牛郎织女的传说而被扣上了「情人节」的帽子.于是TYVJ今年举办了一次线下七夕祭.Vani同学今年成功邀请到了cl同学陪他来共度七夕,于是他们决定去TYVJ七夕祭游玩. TYVJ七夕祭和11区的 ...
BZOJ3032 七夕祭均分纸牌问题的变式（前缀和+中位数）
题目: 背景七夕节因牛郎织女的传说而被扣上了「情人节」的帽子.于是JoyOI今年举办了一次线下七夕祭.Vani同学今年成功邀请到了cl同学陪他来共度七夕,于是他们决定去JoyOI七夕祭游玩. 描述 ...

均分纸牌pascal程序

均分纸牌pascal程序相关推荐

最新文章

热门文章