积木城堡
来源:互联网 发布:傲剑决进阶升级数据 编辑:程序博客网 时间:2024/05/17 09:16
积木城堡
来源:vijos P1059
【问题描述】
任务:
【输入文件】
【输出文件】
【输入样例】
2
2 1 –1
3 2 1 -1
【输出样例】
3
============================
================================
{ID:jie19952PROG:LANG:PASCAL}//type //re=record //num:longint; //x:array[1..101]of longint; //end;var n,t:longint; f:array[1..100,0..10000]of boolean; a:array[0..101]of longint;procedure init;begin assign(input,'p1059.in'); assign(output,'p1059.out'); reset(input); rewrite(output);end;procedure terminate;begin close(input); close(output); halt;end;function pd(duibi:longint):boolean;var i:longint;begin pd:=true; for i:=1 to n do if not f[i,duibi] then exit(false);end;procedure main;var i,j,k:longint; ans:longint;begin readln(n); fillchar(a,sizeof(a),0); //fillchar(f_last,sizeof(f_last),false); fillchar(f,sizeof(f),false); for i:=1 to n do begin //f_now[0]:=true; f[i,0]:=true; t:=1; read(a[t]); while a[t]<>-1 do begin inc(t); read(a[t]); end; dec(t); for j:=1 to t do for k:=10000-a[j] downto 0 do if f[i][k] then begin f[i][k+a[j]]:=true; end; end; for i:=10000 downto 0 do if pd(i) then begin writeln(i); break; end;end;begin init; main; terminate;end.
- 积木城堡
- 积木城堡
- 积木城堡
- 积木城堡
- 积木城堡 题解
- tyvj p1190 积木城堡
- 【动态规划】 积木城堡
- VIJOS P1059 积木城堡
- 积木城堡_DP
- vijos 1059 积木城堡
- vijos P1059积木城堡
- P1059 积木城堡
- vijosP1059 积木城堡
- Vijos P1059 积木城堡
- [ZJOI2001] 积木城堡
- P1504 积木城堡
- 洛谷 P1504 积木城堡
- vijos1059 积木城堡(背包)
- 三维重建 - 摄像机标定和立体匹配中极线约束方法
- Android 画图Path的使用
- poj 1948 Triangular Pastures(二维01背包)
- 可动态布局的Android抽屉之基础
- 运维工程师的职责和前景 (转)
- 积木城堡
- 我的 vim 配置
- C#中的构造函数
- 基于Android的移动存储SharedPreferences浅谈 作者:欧阳旻
- CSDN博客开通
- 车到山前 没有退路
- 整理C++内存管理相关链接
- 软件测试面试题(软通动力,博彦科技,奇虎,瑞星,中软)
- HDOJ1157水题算中值