乘法游戏freepascal free pascal游戏程序

乘法游戏是在一行牌上进行的。每一张牌包括了一个正整数。在每一个移动中,玩家拿出一张牌,得分是用它的数字乘以它左边和右边的数,所以不允许拿第1张和最后1张牌。最后一次移动后,这里只剩下两张牌。
  你的目标是使得分的和最小。
  例如,如果数是10 1 50 205,依次拿1、20、50,总分是          10*1*50+50*20*5+10*50*5=8000
  而拿50、20、1,总分是1*50*20+1*20*5+10*1*5=1150。



输入格式 Input Format
输入文件的第一行包括牌数(3<=n<=100),第二行包括N个1-100的整数,用空格分开。


输出格式 Output Format
输出文件只有一个数字:最小得分


6
10 1 50 50 20 5

样例输出 Sample Output[复制数据]
3650

program Project1;
var
n,i,j,l,k:longint;
a:array[1..100]of longint;
f:array[0..100,0..100]of longint;
begin
read(n);
for i:= 1 to n do
read(a[i]);


for i:= 3 to n do
for j:=1 to n-i+1 do
begin
l:=j+i-1; f[j,l]:=maxint;
for k:= j+1 to l-1 do
if f[j,l]>f[j,k]+f[k,l]+a[j]*a[l]*a[k] then
f[j,l]:=f[j,k]+f[k,l]+a[j]*a[l]*a[k];
end;
write(f[1,n]);
read(i);
end.

  

爱华网本文地址 » http://www.413yy.cn/a/25101016/287593.html

更多阅读

qq游戏打不开怎么回事 为什么qq游戏打不开

qq游戏打不开怎么回事——简介qq游戏打不开怎么回事,原因分析QQ游戏程序出现问题,显卡驱动需要更新,针对原因可以采取以下的操作了解决问题。qq游戏打不开怎么回事——工具/原料qq游戏qq游戏

论暗黑破坏神3现金拍卖行在中国的违法性 暗黑三拍卖行在哪

对虚拟货币的定义2010年6月3日,文化部第49号令发布了《网络游戏管理暂行办法》(以下简称“网游办法”),这是我国现在直接针对网路游戏进行规范的最高法律效力的文件,该办法第2条第3款规定:网络游戏虚拟货币是指由网络游戏经营单位发行,网

FreePascal备忘录_middlesch free pascal ide

Free Pascal新增数据类型1.整型名称 类型 表示范围 占用字节Int64 整数类型 -9223372036854775808 ~ 9223372036854775807=2 -1 8Qword Int64的无符号整数类型 0 ~ 18446744073709551615=2 -1 8Cardinal Longint(-2147483648~21474836

菜根谭的智慧 菜根谭的智慧霍明琨

------------序------------——《菜根谭》与“亢龙有悔”神功与我们一衣带水有一个岛国叫日本,日本是一个聪明的民族。聪明之一是“拿来”,大凡其他民族的优秀文化或先进技术,尽可“拿来”;聪明之二是改头换面,如中国的汉字,日本人“拿来

拓展训练游戏大全 拓展训练项目大全详解

拓展训练游戏全案(一) 破冰:初次见面见面3分钟时是你留给他人第一印象的最重要的时刻,同样在一个会议或培训的刚开始,如何让大家更加活络起来,是关系培训是否成功的关键,下面的小游戏就可以用于消除大家的陌生感。游戏程序和规则1.第一步:(1)

声明:《乘法游戏freepascal free pascal游戏程序》为网友岁月流年分享!如侵犯到您的合法权益请联系我们删除