<?xml version="1.0" encoding="utf-8"?><rss version="2.0">
<channel>
<title><![CDATA[我是Mato]]></title>
<link>http://blog.pfan.cn/IamMato</link>
<description>编程爱好者博客</description>
<language>zh-cn</language>
			<item>
		<title><![CDATA[期末考试前的魔鬼训练（随便写的）]]></title>
		<link>http://blog.pfan.cn/IamMato/32397.html</link>
		<description><![CDATA[&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 前天刚考完期末考试。个人感觉还好又还不好，反正结果到30号拿成绩单时再说。
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 六年级的期末考试和其它年级的感觉不一样。为什么说不一样，就是因为其它年级我们都认为“布置的作业越少越好”，可是六年级以后，由于谁都想在考试考好一点，虽然对于某些人来说“295”只是个可望而不可及的目标，但是不拿个“295”又怎么办呢？所以，我们的想法变了，变得跟以前差一百倍了，谁都希望“布置的作业越多越好了”。甚至像我这样恨不得把“295”摘下来的人，还会自己给自己加作业。以前要是谁干了这种事，别人肯定说他傻瓜，可现在不给自己加作业的人才是傻瓜。我在考试前也做了不少自己布置的作业。
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 更重要的是，这个学期老师还干了一件以前从来没干过的事，那就是把《寒假作业》提前发下来了。他们说这也是复习资料。我也做了一点。
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 模拟考试也是常事。考试前一个星期，语文、数学各模拟了3次，其中有一次还是在双休日补课时考的。考试前一天，老师还给我们提出了可怕的要求，并且还说了让人听了就怕的一些惩罚措施——语文老师是抄1--10课（每一篇基本都至少500字）5遍，数学老师是做书上最难的5个练习，每个做10遍……
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 现在终于考完了，魔鬼练习也结束了。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2008-01-24 21:43:00</pubDate>
		</item>
				<item>
		<title><![CDATA[用QB做的电子表程序（建议多看几下）]]></title>
		<link>http://blog.pfan.cn/IamMato/29908.html</link>
		<description><![CDATA[（来源：QB论坛的myworld《一个想法而已....描述不正确表砸我..》）
这个电子表可以调整日期、时间、闹铃，并有整点报时功能。
使用说明：
（1）日期的范围：1500年1月1日到2499年12月31日。
（2）按“1”“2”“3”分别调整日期、时间、闹铃。
（3）按“E”退出。
（4）请在输入程序时按Alt+Enter把QB环境调整为全屏，不然在闹铃的时候发出的声音有问题。
源代码：
DECLARE SUB printdat ()DECLARE SUB printtim ()DECLARE SUB printcase ()DECLARE SUB setdat ()DECLARE SUB settim ()DECLARE SUB setbell ()DECLARE SUB printbell ()CLSDIM SHARED dat$, tim$, bell$dat$ = DATE$: tim$ = TIME$: bell$ = "10:30:00"DO&nbsp; CALL printdat&nbsp; CALL printtim&nbsp; CALL printcase&nbsp; IF RIGHT$(tim$, 5) = "00:00" THEN BEEP&nbsp; IF tim$ = bell$ THEN FOR i = 1 TO 5: BEEP: NEXT i&nbsp; s$ = INKEY$&nbsp; IF s$ = "1" THEN&nbsp;&nbsp;&nbsp;&nbsp; CALL setdat: DATE$ = dat$&nbsp;&nbsp;&nbsp;&nbsp; CALL printdat&nbsp; ELSEIF s$ = "2" THEN&nbsp;&nbsp;&nbsp;&nbsp; CALL settim: TIME$ = tim$&nbsp;&nbsp;&nbsp;&nbsp; CALL printtim&nbsp; ELSEIF s$ = "3" THEN&nbsp;&nbsp;&nbsp;&nbsp; CALL setbell&nbsp; ELSEIF LCASE$(s$) = "e" THEN&nbsp;&nbsp;&nbsp;&nbsp; END&nbsp; END IF&nbsp; dat$]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-10-06 12:33:00</pubDate>
		</item>
				<item>
		<title><![CDATA[抄作业（超级性推荐的游戏）]]></title>
		<link>http://blog.pfan.cn/IamMato/29036.html</link>
		<description><![CDATA[我最近发了一个“抄作业”游戏，
地址：http://www.programfan.com/club/post-248789.html]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-09-01 14:50:00</pubDate>
		</item>
				<item>
		<title><![CDATA[关于骑士周游问题（QB）]]></title>
		<link>http://blog.pfan.cn/IamMato/28965.html</link>
		<description><![CDATA[（真没想到飞燕又来QB了。）
这段时间，不管QB还是PASCAL，这个骑士周游问题都有很高的知名度，看来不得不宣传一下了。
骑士的周游问题有2种类型：
（1）给出一张M*N的棋盘，马在左下角，要求只许往右跳，跳到右上角。
（2）给出一张N*N的棋盘，马在左上角，对马的走向不加限制，要求跳完所有格子并不重复。
分析：
（程序段中[ ]扩起表示（1）形式的语句，{}扩起表示（2）形式的语句）
这道题就是回朔的问题。
（对于（1）形式：
马有4种跳法，分别是(2，1)(1，2)(-1，2)(-2，1);
对于（2）形式：
马有8种跳法，分别是(2，1)(1，2)(2，-1)(1，-2)(-1，2)(-2，1)(-1，-2)(-2，-1);）
i是跳法的编号。
每次循环执行：{[i=i+1]}(试探下一种跳法)
试探跳法i：{[x=x(p)+v(i,1):y=y(p)+v(i,2)]}
接着判断这个(x，y)的位置是否合法，对于形式（1），只要判断是否出界，对于形式（2），不仅要判断是否出界，还要判断这个位置是否走过。如果合法，则前进：
{[p=p+1:s(p)=i:x(p)=x:y(p)=y]}{:a(x,y)=2:st(x,y)=p}
如果i不合法，后退：
{[i=s(p)]}
{IF p&gt;0 THEN a(x,y)=0:st(x,y)=0}
{[p=p-1]}
结束循环的条件：p=0或者到达终点：
[x=1 AND y=N]
{p=n*n}
如果P=0则无解，否则输出路线。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-08-29 14:56:00</pubDate>
		</item>
				<item>
		<title><![CDATA[关于&nbsp;质数判断&nbsp;我有主张（QB）]]></title>
		<link>http://blog.pfan.cn/IamMato/28774.html</link>
		<description><![CDATA[这段时间 天山雪莲&nbsp;来凑热闹了。
我最近写了个7行秒杀15位质数的QB程序（加上CLS、END一共9行），我找到了一个15位的超级质数，它是：
543959439594359
你们是不是要看这个程序？在这里。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-08-23 14:36:00</pubDate>
		</item>
				<item>
		<title><![CDATA[最近QB、PASCAL上面没帖子了，特别无味……]]></title>
		<link>http://blog.pfan.cn/IamMato/28424.html</link>
		<description><![CDATA[最近真是的，QB和PASCAL上面都没帖子了……]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-08-12 13:05:00</pubDate>
		</item>
				<item>
		<title><![CDATA[制造纸牌的QB程序]]></title>
		<link>http://blog.pfan.cn/IamMato/28421.html</link>
		<description><![CDATA[地址：
http://www.programfan.com/club/post-243794.html]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-08-11 21:38:00</pubDate>
		</item>
				<item>
		<title><![CDATA[记忆测试之最整人版（记忆测试）]]></title>
		<link>http://blog.pfan.cn/IamMato/27524.html</link>
		<description><![CDATA[我用QB做了一个记忆测试：
这是一个记忆测试的程序。你刚开始可以选择难度0-F，0最简单，F最难。选定后，系统会根据难度不同出不同长度的数字和大写英文字母（只有A-F）的组合，并且是不同的颜色。每一组测试数据可以记30秒的时间，30秒之后会问你，这个时候你输入的不是刚才的数字和字母，而是这些数字和字母的颜色号（按QB的颜色号，大于9的用16进制中的大写字母），按顺序。每答对一组得10分，总共10组，满分100分。这也有一些游戏的成分，不过特别整人。先从最简单的练起，最后如果你在F难度里得到100分就可以参加全世界的记忆比赛了！！
相关程序：这里。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-07-13 21:53:00</pubDate>
		</item>
				<item>
		<title><![CDATA[五子棋判断的函数]]></title>
		<link>http://blog.pfan.cn/IamMato/27523.html</link>
		<description><![CDATA[QBasic上面有一个问题说做一个判断五子棋是否连成五子了的函数。
相关程序请见这里。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-07-13 21:51:00</pubDate>
		</item>
				<item>
		<title><![CDATA[关于有限范围类合数的排列问题(PASCAL)]]></title>
		<link>http://blog.pfan.cn/IamMato/27522.html</link>
		<description><![CDATA[题目：
把小于N的所有合数重新排列，使每对相邻的数都有大于或等于2的公约数【例】输入：10输出：4&nbsp;8&nbsp;6&nbsp;9&nbsp;&nbsp;（输入输出均在屏幕上）
我的程序：这里.]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-07-13 21:49:00</pubDate>
		</item>
				<item>
		<title><![CDATA[16进制转10进制的题目（PASCAL）]]></title>
		<link>http://blog.pfan.cn/IamMato/27341.html</link>
		<description><![CDATA[最近在PASCAL上面看到这样一道题：
把16进制的数转为10进制的。
我觉得比较好，
如果想看就看这里。]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-07-06 11:01:00</pubDate>
		</item>
				<item>
		<title><![CDATA[我的游戏（QB版）]]></title>
		<link>http://blog.pfan.cn/IamMato/26060.html</link>
		<description><![CDATA[（1）会变色的图形
（2）考眼力的纸牌
&nbsp;
&nbsp;]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-05-22 14:47:00</pubDate>
		</item>
				<item>
		<title><![CDATA[希望有多一点人来我这里]]></title>
		<link>http://blog.pfan.cn/IamMato/25949.html</link>
		<description><![CDATA[希望你们所有访问的人都来我这里。
（注意：
评论主要是在QB、PASCAL的题目以及对于我的答案的看法，不许有其它论坛的东西）]]></description>
		<author><![CDATA[Matodied]]></author>
		<pubDate>2007-05-16 20:47:00</pubDate>
		</item>
		</channel>
</rss>