排队接水pascal程序

题意

找出这n个人排队的一种顺序，使得n个人的平均等待时间最小。

分析

打水的时候花费时间越少的人越先打，那么所有人的等待时间之和就会最小，所以我们要先排序，再计算总时间

var
a,b:array[0..50000]of longint;
n,i,j,w:longint;
tj:real;
begin
readln(n);
for i:=1 to n do
begin
read(a[i]);
b[i]:=i;
end;

for i:=1 to n-1 do
begin
for j:=i+1 to n do
if a[i]>a[j] then
begin
a[0]:=a[i];a[i]:=a[j];a[j]:=a[0];
b[0]:=b[i];b[i]:=b[j];b[j]:=b[0];
end;
end;
tj:=0;
for i:=1 to n do
write(b[i],' ');
writeln;
w:=0;
for i:=n-1 downto 0 do
begin
inc(w);
tj:=tj+a[w]*i;
end;
write((tj/n):0:2);
end.

转载于:https://www.cnblogs.com/YYC-0304/p/9500215.html

排队接水pascal程序相关推荐

[ZCMU OJ]5252: 英雄卡/5253: 排队接水/5254: 颜色叠加/5255: 勤劳的老杨/5256: 秘密大厦的访客
5252: 英雄卡 Time Limit: 2 Sec Memory Limit: 128 MB Submit: 133 Solved: 12 [Submit][Status][Web Board ...
P1223 排队接水
题目描述有n个人在一个水龙头前排队接水,假如每个人接水的时间为Ti,请编程找出这n个人排队的一种顺序,使得n个人的平均等待时间最小. 输入格式输入文件共两行,第一行为n:第二行分别表示第1个人到第 ...
洛谷——P1223 排队接水
题目描述有n个人在一个水龙头前排队接水,假如每个人接水的时间为Ti,请编程找出这n个人排队的一种顺序,使得n个人的平均等待时间最小. 输入输出格式输入格式: 输入文件共两行,第一行为n:第二行分别 ...
17行代码AC_51Nod - 2133 排队接水（贪心）
励志用少的代码做高效表达贪心算法模板题贪心算法简单来讲即自顶向下,求解出每个子最优解,且每个子问题不会对下一个问题产生影响题意:n个人排队接水,问如何排序才能使总等待时间最短,(正在接水的人和没 ...
信息学奥赛一本通 1319：【例6.1】排队接水 | 洛谷 P1223 排队接水
[题目链接] ybt 1319:[例6.1]排队接水洛谷 P1223 排队接水 [题目考点] 1. 贪心 2. 贪心选择性质的证明要想证明贪心选择可以得到最优解,只需要证明最优解包含每一次的贪心选 ...
信息学奥赛一本通（1319：【例6.1】排队接水）
1319:[例6.1]排队接水时间限制: 1000 ms 内存限制: 65536 KB 提交数: 17332 通过数: 7890 [题目描述] 有n个人在一个水龙头前排队接水 ...
排队接水（信息学奥赛一本通-T1319）
[题目描述] 有n个人在一个水龙头前排队接水,假如每个人接水的时间为Ti,请编程找出这n个人排队的一种顺序,使得n个人的平均等待时间最小. [输入] 共两行,第一行为n(1≤n≤1000):第二行分别 ...
排队接水（洛谷-P1223）
题目描述有n个人在一个水龙头前排队接水,假如每个人接水的时间为Ti,请编程找出这n个人排队的一种顺序,使得n个人的平均等待时间最小. 输入输出格式输入格式: 输入共两行,第一行为n:第二行分别表示 ...
算法提高排队打水问题无聊刷个水题
算法提高排队打水问题时间限制:1.0s 内存限制:256.0MB 提交此题问题描述有n个人排队到r个水龙头去打水,他们装满水桶的时间t1.t2---..tn为整数且各不相等,应如何安排他们的打 ...

排队接水pascal程序

排队接水pascal程序相关推荐

最新文章

热门文章