国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 學院 > 開發設計 > 正文

最小乘車費用

2019-11-06 06:27:02
字體:
來源:轉載
供稿:網友

Description   假設某條街上每一公里就有一個公共汽車站,并且乘車費用如下表:   而任意一輛汽車從不行駛超過10公里。某人想行駛n公里,假設他可以任意次換車,請你幫他找到一種乘車方案,使得總費用最小   注意:10公里的費用比1公里小的情況是允許的。

Input   輸入文件BUSSES.IN,文件共兩行,第一行為10個不超過200的整數,依次表示行駛1~10公里的費用,相鄰兩數間用一個空格隔開;第二行為某人想要行駛的公里數。

Output   輸出文件BUSSES.OUT,僅一行,包含一個整數,表示行使這么遠所需要的最小費用。

Sample Input 12 21 31 40 49 58 69 79 90 101 15

Sample Output 147

說明 f[i]:=maxlongint;是把數設到最大 if (i>=j)and(f[i-j]+a[j]< f[i]) then f[i]:=f[i-j]+a[j]; 是判斷a[j]+f[i-j]是否大于f[i],大于就換


var n,i,j:longint; a:array[1..10] of longint; f:array[0..100] of longint;begin for i:=1 to 10 do read(a[i]); read(n); for i:=1 to n do begin f[i]:=maxlongint; for j:=1 to 10 do if (i>=j)and(f[i-j]+a[j]<f[i]) then f[i]:=f[i-j]+a[j]; end; writeln(f[n]);end.
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 左贡县| 丽江市| 江油市| 白水县| 河源市| 日照市| 宁阳县| 建昌县| 永善县| 渭南市| 蒲城县| 鄂伦春自治旗| 南溪县| 永仁县| 威信县| 旌德县| 滦南县| 邢台县| 盐城市| 尼玛县| 呼伦贝尔市| 冀州市| 宣城市| 永寿县| 呼伦贝尔市| 武乡县| 竹溪县| 米林县| 彭阳县| 惠东县| 昭通市| 榕江县| 维西| 雷山县| 阜南县| 隆林| 龙泉市| 呼和浩特市| 桑植县| 蒲江县| 台江县|