CASIO fx-9750的贪吃蛇

贪吃蛇

---

16341016
数据科学与计算机学院

---

目录

---

前言

这是一个在CASIO fx-9750上编写的一款贪吃蛇，用的语言应该是简易的Basic，能在计算器上正常运行。咳咳，在座dalao太多，不多说了。

---

基本框架

---

具体编写

由于这是一款在CASIO fx-9750计算器上运行的小游戏，所以运算速度、内存和画面质量都有限。该计算器只支持21*7的字符显示。

将地图坐标放入对应二维变量中，在判定蛇头是否撞墙时速度更快。

这是计算器上的简易语言，该代码电脑无法运行。

（没带数据线，具体的代码就不写了）

1.初始化

1->O; //选择第1关Lbl O;ClrText;For 5->I To 17For 4->J To 8If List J[I]=1Then Locate I,J-2,"□" //关卡背景布置IfEndNextNext0->F //无食物1->L //初始长度为11->T //走过的格数为10->R //无按键Lbl SRanInt#(1,21)->PRanInt#(1,21)->Q //生成初始坐标P->List 1[1]Q->List 2[1]P->UQ+2->VList V[U]=1=>Goto S //若与地形重合，则重新生成初始坐标1->List V[U]Locate P,Q,"■"

2.食物

此处为分函数（当f=0时运行）

RanInt#(1,21)->MRanInt#(1,7)->NN+2->VList V[M]=1=>Goto 01->FLocate M,N,"⊙"

3.方向控制

主要通过控制台I/O中的Getkey函数接收指令。

由于篇幅有限，此处不予赘述。

有兴趣的同学可以联系我1

4.是否吃到食物与是否撞墙

If List 1[T]=M And List 2[T]=NThen Isz L0->FLocate P,Q,"■"P->UQ+2->V1->List V[U]Else Locate P,Q," "P->UQ+2->V0->List V[U]IfEndList 1[T]<1 Or List 1[T]>21 Or List 2[T]<1 Or List 2[T]>7=>Goto 0Locate List 1[T],List 2[T],"■"List 1[T]->UList 2[T]+2->VList V[U]=1=>Goto 01->List V[U]

5.关卡

Level 1(Z.TCS1)

For 3->I To 921->Dim List INext

Level 2(Z.TCS2)

For 3->I To 921->Dim List INext{0,0,0,0,1,1,1,1,1,1,1,1,1,1,1,1,1,0,0,0,0}->List 6

Level 3(Z.TCS3)

21->Dim List 3{0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0}->List 4{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 5{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 6{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 7{0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,0,0,0,0,0,0}->List 821->Dim List 9

Level 4(Z.TCS4)

21->Dim List 3{0,0,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0}->List 4{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 5{0,0,0,0,1,0,1,1,1,1,0,1,1,1,1,0,1,0,0,0,0}->List 6{0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0}->List 7{0,0,0,0,0,0,1,1,1,1,0,1,1,1,1,0,0,0,0,0,0}->List 821->Dim List 9

选择

O=1=>Prog "Z.TCS1"O=2=>Prog "Z.TCS2"O=3=>Prog "Z.TCS3"O=4=>Prog "Z.TCS4"

判定

If L-1=25 And O<4Then Goto 3IfEndGoto I

---

附

科科，我们最后讨论一下海伦公式吧：

S=p(p−a)(p−b)(p−c)−−−−−−−−−−−−−−−−−√

其中，

p=a+b+c2

---

1. 哈哈哈哈。老师说不要放真名。 ↩