題意

找出這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程序的全部內容，希望文章能夠幫你解決所遇到的問題。

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