绘制棋盘格子

根据用户输入数据绘制一个棋盘格子，初步体验用程序接受用户输入。

<br />KEY OFF: SCREEN 1: COLOR 0, 0<br />READ XSTART, YSTART<br />INPUT "hight of squares (number of points)"; N<br />XSTEP = N * 1.2: YSTEP = N: Y1 = YSTART: RED = -1<br /><br />FOR ROW = 1 TO 8<br /> X1 = XSTART<br /> FOR COL = 1 TO 8<br /> IF RED = -1 THEN<br /> LINE (X1, Y1)-STEP(XSTEP, YSTEP), 2, BF: RED = 0<br /> ELSE<br /> LINE (X1, Y1)-STEP(XSTEP, YSTEP), 2, B: RED = -1<br /> END IF<br /> X1 = X1 + XSTEP<br /> NEXT COL<br /> Y1 = Y1 + YSTEP<br /> IF RED = -1 THEN RED = 0 ELSE RED = -1<br />NEXT ROW<br />LOCATE 25<br />INPUT "Carriage return to end"; X$<br />SCREEN 0: WIDTH 80: KEY ON<br />DATA 80, 10<br />END<br />

绘制钟表

绘制一个钟表动画，显示当前系统时间，引发学生兴趣。

<br />SCREEN 12: x0 = 320: y0 = 200: r = 70: pi = 4 * ATN(1)<br />CIRCLE (x0, y0), 80: CIRCLE (x0, y0), 110<br />LOCATE 7, 40: PRINT "12": LOCATE 19, 40: PRINT "6"<br />LOCATE 8, 34: PRINT "11": LOCATE 8, 47: PRINT "1"<br />LOCATE 10, 30: PRINT "10": LOCATE 10, 51: PRINT "2"<br />LOCATE 13, 28: PRINT "9": LOCATE 13, 53: PRINT "3"<br />LOCATE 16, 30: PRINT "8": LOCATE 16, 51: PRINT "4"<br />LOCATE 18, 34: PRINT "7": LOCATE 18, 47: PRINT "5"<br />FOR i = 1 TO 11<br /> a = i * pi / 6<br /> x = r * COS(a): y = r * SIN(a)<br /> PSET (x + x0, y + y0)<br />NEXT i<br />LOCATE 3, 36: PRINT DATE$<br />PSET (x0, y0)<br />DO<br /> LOCATE 5, 37: PRINT TIME$<br /> s = VAL(TIME$): f = VAL(MID$(TIME$, 4, 2)): m VAL(MID$(TIME$, 7, 2))<br /> sd = -(30 * s + f / 2) MOD 360: fd = -6 * f: md = -6 * m<br /> DRAW "C15TA=" + VARPTR$(sd) + "NU35"<br /> DRAW "C9TA=" + VARPTR$(fd) + "NU45"<br /> DRAW "C12TA=" + VARPTR$(md) + "NU55"<br /> DO<br /> IF INKEY$ <> "" THEN END<br /> qm = VAL(MID$(TIME$, 7, 2))<br /> LOOP WHILE m = qm<br /> DRAW "C0"<br /> DRAW "TA=" + VARPTR$(sd) + "NU35"<br /> DRAW "TA=" + VARPTR$(fd) + "NU45"<br /> DRAW "TA=" + VARPTR$(md) + "NU55"<br />LOOP<br />END<br />

QB中类似LOGO语言的绘图方式

绘制一艘小帆船。

<br />SCREEN 1<br />COLOR 9, 1<br />A$ = "c3 L40 U80 F40 D40 L20 U80 D90 L15 C2 L30 F20 R50 E20 L70"<br />DRAW A$<br />END<br />

太极图

使用QB绘制一副黑白相间的太极图。

<br />CLS : pi = 4 * ATN(1)<br />SCREEN 12: a = 40: r = 5 * a<br />CIRCLE (8 * a, r), 4 * a<br />CIRCLE (r + a, r), a<br />CIRCLE (2 * r, r), a<br />CIRCLE (r + a, r), 2 * a, , 0, pi<br />CIRCLE (2 * r, r), 2 * a, , pi, 0<br />PAINT (2 * r, r): PAINT (8 * a, 7 * a)<br />END<br />

演奏《东方红》

可以让程序发声，激发学生兴趣。

<br />PLAY "O3g4g8a8d2p32c4c8<a8>d2p32g4g4a8>c8< a8g8c4c8<a8>d2p32"<br />PLAY "g4d4c4<b8a8g4>g4d4e8d8c4c8<a8>d8e8d8c8d8c8< b8aeg2"<br />

注：这两行表示乐谱的字符串都不应有空格。

QB绘制简单图形1

绘制简单图形，激发学生兴趣。

<br />SCREEN 1<br />COLOR 10, 0<br />LINE (30, 30)-(50, 50)<br />LINE (50, 50)-STEP(10, 10), 3, B<br />LINE -(100, 100), , BF<br />END<br />

c语言中的数据溢出overflow解决

在日常生活中数字是没有大小限制的，但是计算机中的变量是有限制的，不能够完全表现现实世界中的数字，因而就产生了溢出问题。

用常见的Fibonacci数列来说，第一项是0，第二项是1，后面的每一项都是它前两项之和。
0， 1， 1， 2， 3， 5， 8， 13......
这个数列的增长实际上是很快的，当超出计算机变量所能表现的类型的上限后，结果就变为了负值，发生了溢出。

通过一段代码实验Fibonacci数列溢出
<br />#include <stdio.h><br /><br />typedef unsigned long long fibo_type;<br />#define FIBO_FORMAT "%10llu"<br /><br />void printFibo(fibo_type num)<br />{<br /> printf(FIBO_FORMAT, num);<br />}<br /><br />int main()<br />{<br /> int num = 0;<br /> fibo_type a = 0, b = 1, c;<br /> printf("%4d: ", ++num); printFibo(a);printf("\n");<br /> printf("%4d: ", ++num); printFibo(b);printf("\n");<br /><br /> c = a+b;<br /> while(c>=b) {<br /> printf("%4d: ", ++num); printFibo(c);printf("\n");<br /> a = b; b = c; c = a+b;<br /> }<br /> printf("Stopped after %d digits ", num); printFibo(c); printf("\n");<br /><br /> return 0;<br />}<br />

这已经使用了最大的数字的数据类型long long，如果还有更大的数字怎么办？我们满手油污的去操作内存分配？
幸好有GNU项目，里面的一个名为gmp（GNU Mutiple Precision Arithmeic Library）的库为我们解决了这一棘手的问题。这个库提供了很多基础的内存分配特性。

修改后的代码：
<br />#include <stdio.h><br />#include <stdlib.h><br />#include <string.h><br />#include <gmp.h><br /><br />int main()<br />{<br /> int num = 0;<br /> mpz_t f_1;<br /> mpz_t f_2;<br /><br /> mpz_init(f_1);<br /> mpz_init(f_2);<br /> mpz_set_ui(f_1, 0);<br /> mpz_set_ui(f_2, 1);<br /> printf("%10d: 0\n", ++num);<br /><br /> while(1)<br /> {<br /> mpz_add(f_1, f_2, f_1);<br /> mpz_swap(f_1, f_2);<br /> char *res = mpz_get_str(NULL, 10, f_2);<br /> printf("%10d: %s\n", ++num, res);<br /> free(res);<br /> }<br /><br /> mpz_clear(f_1);<br /> mpz_clear(f_2);<br /><br /> return 0;<br />}<br />
该库在数值和字符串中做了很好的处理，使你能获得一个真正没有溢出的数值，更符合客观世界的概念。

参考文献：

1. Full Circle #24
2. http://gmplib.org/manual/
   

RSS地址更换，请大家重新订阅

由于一直使用FeedSky的服务，FEEDSKY类似于Feedburner，是一个RSS烧录服务。近期发现FeekSky的RSS更新很不及时，造成Blog最新文章无法发送给广大的订阅者，所以我决定启用Blogger的默认RSS地址。请大家及时更新自己阅读器中本Blog的RSS地址。

1. 原有的FeedSky的RSS会继续保留，当FeedSky修正错误后您有可能获得及时的更新
   
2. 您可以到本Blog页面上重新订阅
3. 您也可以使用如下URL直接订阅 http://richard-ma.blogspot.com/feeds/posts/default

对此次事件给大家带来的不便博主表示抱歉，同时今后会以更加优质的文章回馈大家。