会员
众包
新闻
博问
闪存
赞助商
HarmonyOS
Chat2DB
所有博客
当前博客
我的博客
我的园子
账号设置
会员中心
简洁模式
...
退出登录
注册
登录
银叶草
csdn博客:https://blog.csdn.net/sslgz_yyc
博客园
首页
新随笔
联系
订阅
管理
上一页
1
···
48
49
50
51
52
53
下一页
2016年12月21日
电子老鼠闯迷宫pascal解题程序
摘要: 这题我是用广度优先搜索的方法来写的head是头指针,tail是尾指针我先找出下一个点,再判断这个点能不能走,能走就记录该点,到达终点时,就输出。我是用递归的方法输出的constmaxn=12;wayn=4;dx:array[1..wayn]of longint=(-1...
阅读全文
posted @ 2016-12-21 17:15 银叶草
阅读(136)
评论(0)
推荐(0)
2016年12月20日
未完成作业
摘要: 分治:1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1198 10.循环比赛 11.二分查找 1135 12.麦森数 1030 动态规划:挖地雷 取数字问题:搜
阅读全文
posted @ 2016-12-20 16:51 银叶草
阅读(96)
评论(0)
推荐(0)
未完成作业
摘要: 分治:1.一元三次方程求解 1015 2.循环比赛日程表 3.求方程的根 5.黑白棋子的移动 1310 6.光荣的梦想 2323 7.小车问题 1668 8.方程分f(x)的根 9.求逆序对 1...
阅读全文
posted @ 2016-12-20 16:51 银叶草
阅读(117)
评论(0)
推荐(0)
2016年12月8日
运输pascal 90分程序
摘要: 这题有点像合并果子,只不过是合并最大的两个,并div k,再放进数组里排序。错了一个点,求大神看看。vara:array[0..10000]of int64;i,j,n,m:longint;procedure kp(l,r:longint);vari,j,mid:lo...
阅读全文
posted @ 2016-12-08 21:18 银叶草
阅读(120)
评论(0)
推荐(0)
零件分组pascal程序
摘要: 这题就是把长度排序,长度相等,就把重的放后面,最后看重量有一个地方下降了,就分组加一。vartj,n,i,j:longint;c,w,s:array[0..1000]of longint;begin readln(n); for i:=1 to n do ...
阅读全文
posted @ 2016-12-08 21:06 银叶草
阅读(162)
评论(0)
推荐(0)
美元汇率pascal程序
摘要: 若今天的汇率比明天的汇率高,那么就换钱。varm:real;a:array[0..100]of longint;n,i:longint;begin readln(n); for i:=1 to n do readln(a[i]); m:=100...
阅读全文
posted @ 2016-12-08 20:50 银叶草
阅读(110)
评论(0)
推荐(0)
纪念品分组pascal程序
摘要: 从大到小排序,如果a[i]+a[j]没超过限制,就可以加tj,否则i就指向下一个。varw,n,i,j,tj:longint;a:array[0..30000]of longint;procedure kp(l,r:longint);vari,j,mid:longin...
阅读全文
posted @ 2016-12-08 20:37 银叶草
阅读(106)
评论(0)
推荐(0)
拼数pascal程序
摘要: 题意将一些是接起来,找出接的最大的数分析这题其实就是最大整数。做的时候,我们可以先把数字符串排序,从小到大,再一个一个接起来varn,i,x,j:longint;t:string;s:array[0..20]of string;procedure kp(l,r:lon...
阅读全文
posted @ 2016-12-08 15:39 银叶草
阅读(130)
评论(0)
推荐(0)
最大正数pascal程序
摘要: varn,i,x,j:longint;s:array[0..20]of string;begin readln(n); for i:=1 to n do//因为数据之间有空格,所以先读入成数字,再变为字符串 begin read(x);...
阅读全文
posted @ 2016-12-08 15:37 银叶草
阅读(94)
评论(0)
推荐(0)
2016年12月4日
部落卫队pascal解题程序
摘要: typejh=set of 0..100;//集合varn,m,i,u,v,tj:longint;w:jh;a,f:array[0..100]of boolean;s:array[1..100]of jh;procedure search(dep:longint;w:...
阅读全文
posted @ 2016-12-04 20:53 银叶草
阅读(137)
评论(0)
推荐(0)
上一页
1
···
48
49
50
51
52
53
下一页
公告
Live2D