一道pascal的題目,叫做選派選手,請各位大蝦幫忙理出程式,最好有簡單註釋。謝謝

2022-07-08 10:45:15 字數 1182 閱讀 4091

1樓:匿名使用者

給個思路吧啊 貪心法解這道題

將所有的知識水平資料從大到小排序 ,然後從頭掃一遍 遇見能夠參加比賽的選手就把他設定成不能再參加比賽 然後加上他在這一專案中的知識水平(由於陣列是從大到小排序的 而且一個專案可以有多個人參加 所以這種做法是正確的)

用第二組輸入輸出舉例 排完序 之後是 6.0 5.0 5.

0 4.0 4.0 ……………… 首先+6.

0 然後4號再不能用了 然後判斷5.0 的資料 ,假設第一個5.0 是4 號的, 那麼它不能再用 看下一個 也是5.

0 不過是3號 於是+5.0 設定3號不能用 然後 再 +4.0 設定2號不能用 一直到選出了k個人為止

不知道我這麼說你能不能明白 望採納…………

2樓:pascal真人

varn, m, k:longint;

j1, j2:longint;

i, j:longint;

s, max:real;

ans:real;

a:array[1.. 100, 0.. 100] of real;

t:array[0.. 100] of real;

begin

readln(n, m, k);

for j1:= 1 to m do

for j2:= 1 to n do

begin

read(i, s);

a[i, j1]:= s;

end;

for j1:= 1 to n do

begin

max:= 0;

for j2:= 1 to m do

if a[j1, j2] > max then max:= a[j1, j2];

t[j1]:= max;

end;

for i:= 1 to n - 1 dofor j:= i + 1 to n doif t[i] < t[j] then

begin

t[0]:= t[i];

t[i]:= t[j];

t[j]:= t[0];

end;

ans:= 0;

for i:= 1 to k do

ans:= ans + t[i];

writeln(ans: 0: 1);end

請教一道刑法題目,一道刑法題目請教

甲構成挪用 罪 丙涉及洗錢罪 個人意見 僅供參考 一道刑法題目請教 個體犯罪 只需要行為人放棄犯罪即可構成犯罪中止。但是共同犯罪的中止,行為人不但要放棄自己將要實施的犯罪行為,還要撤出自己已經造成的犯罪繼續進行的原因力。本案中的原因力就是行為人的配置的鑰匙。行為人雖然放棄了已經實施了放棄,但並沒有追...

一道會計題目,求解,一道會計題目,求解!!!

計提 出租 包裝物成本 的 會計分錄 借 其他業務成本 貸 週轉材料 包裝物 所以該題的 答案是 a c a cd這個不包括b的 一道會計題目,求解!20 首先.轉讓商標所有權的60萬做為溢價處理。1.利潤總額 1082 71.7 45 1108.7,其中2010 1930 1002 1082 2....

求助一道民法題目,求助一道民法題目

那得看丙與丁是否bai約定了報酬。du如果沒有約zhi定報酬,就是無償幫工dao 合同版,如果約定了報酬就權是僱傭合同。既然是無償的,那麼丙丁之間就屬於無償幫工合同關係。丁可以向丙要求賠償損失。理由是違約或者侵權。我個人認為丁不能向甲要求賠償,因為甲與丁之間並沒有債的關係。首先,甲與丁之間沒有合同關...