1樓:匿名使用者
varn,k:integer;
len:array[1..10000] of integer;
i,left,right,mid:integer;
function isok(t:integer):boolean;
//判斷每根木頭切成長度為t的小段可不可行,可行返回truevar
num,i:integer;
begin
num:=0;
for i:=1 to n do
begin
if num>=k then break;
num:=num+len[i] div t;
end;
if num>=k then isok:=trueelse isok:=false;
end;
begin
assign(input,'noip2005c_4_2.txt');
reset(input);
readln(n,k);
right:=0;
for i:=1 to n do
begin
readln(len[i]);
if right //right儲存所有木頭中最長的長度 end; inc(right); left:=0; while left+1 mid:=(left+right)div 2; if not isok(mid) then right:=midelse left:=mid; end; writeln(left); end. 2樓:匿名使用者 你是樹人的吧?我這有參考程式。 可以選擇茶葉健康禮品,荔花村做英德紅茶的,禮品盒時尚新穎,你可以去看看 公司需要採購禮品,有好的推薦嗎?帶禮盒,最好 你可以採購艾草泡腳包系列套盒禮品裝產品,適合各年齡段人群,屬於大健康類產品,採購成本很低,送客戶倍有面子。天然玉石平安扣 菸灰缸等等 都可以配禮盒的 年終獎,公司要採購一些禮品給員工... 你需要尋找一款ocr軟體,目前的ocr軟體對英文支援很棒,但是中文都不算太理想。免費的話,你可以試試慧視小靈鼠或者cajviewer,我用下來覺得還可以。至於漢王 尚書,用不慣,也許也還行,你也可以試試 先要把你寫的東西掃描成 然後用文字識別系統軟體識別出來.像漢王啊.但是你寫的不規範可能無法識別出... 好好工作,不要放棄讀書。不要給自己太多精神壓力,你只是個孩子。還有分了手的男的就不要再複合啦,提高自己比什麼都重要。不要任性做決定哦。好好學英語,做個柔和的人,早點表白,我現在想想十年前的自己也是蠻可愛的。我想給十年前的自己寫一封信,告誡自己好好努力學習,多練習英語單詞,背誦古詩,多計算一些數學公式...快過年了公司舉辦年會現在想採購一些禮品有沒有什麼好的下包裝要大氣些的東西要實用
手寫了一些文章,想把它們傳到電腦了變成,有沒有什麼簡單的方法而不用打字輸入啊
你現在想給十年之前的你一些什么忠告