LOGO语言基本语法应用实例(程序实例)

LOGO语言基本语法应用实例（程序实例）

说明：

1.LOGO语言目前是小学用于培养儿童基本编程思想的有效工具，而网络上LOGO程序资料并不算充裕，为初步接触LOGO语言的教师或学生多提供一些参考程序是本文作者上传本文档的初衷；

2.以下程序在flash版logo语言编译程序（FLOGO999）中运行正常，只要新建*.LOG文件，将分割线以下内容复制其中就可以使用；

3.本文的会不定时更新。

———————————————————————————————————————;以下程序在FLOGO999中运行正常

;REPEAT及系统设置的使用示例

to shanzi :L

rt 75

make "C 0

repeat 15 [setpc :C setw :C*2 fd :L setfont "黑体:C+10 4 tt :C bk :L+:L/3 fd :L/3 lt 10 make "C :C+1 ]

rt 75

;递归三角形

to DGSJX :L :N ;DGSJX 200 3

IF :N=1 THEN STOP

SJX :L DGSJX :L/2 :N-1

RT 30 FD :L LT 30

SJX :L DGSJX :L/2 :N-1

RT 150 FD :L LT 150

SJX :L DGSJX :L/2 :N-1

LT 90 FD :L RT 90

end

TO SJX :L

RT 30

REPEAT 3[FD :L RT 120]

LT 30

END

;递归正方形

to DGZFX :L :N ;DGZFX 200 3

IF :N=1 THEN STOP

ZFX :L

FD :L ZFX :L

DGZFX :L/2 :N-1

RT 90 FD :L LT 90 ZFX :L

BK :L ZFX :L

DGZFX :L/2 :N-1

LT 90 FD :L RT 90

end

TO ZFX :L

REPEAT 4[FD :L RT 90]

END

;FOR语句示例

to myfor

for "x 1 10 [ fd :x*20 rt 90 ]

end

;WHILE语句示例

to mywhile

make "x 1

while [ :x<10 ] [fd :x*20 rt 90 make "x :x+1 ] end

;判断语句AND和OR使用示例

to myandor :a :b

draw

if :b>0 and :a>0 then fd 100 tt "同正

if :a<0 and :b<0 then bk 100 tt "同负

if :a=0 or :b=0 then rt 90 tt "有0值

end