4 程序控制
4.1 概述
程序控制结构定义程序或例程中的执行流程,包括交替,循环和无条件分支以及执行控
制。一般有点语言基础的对这些指令都很熟悉
4.2.1 程序控制结构
IF语句
IF <判断指定> THEN
<程序体>
END IF
IF <判断指定> THEN
<程序体>
ELSE
<判断指定>
END IF
--下面这种指令在karel中是错误的
IF <判断指定> THEN
<程序体>
ELSE IF
<判断指定>
END IF
示例
IF B2 = TURE THEN
CH1 = 'DINGYARK';
CH2 = 'HELLOWORLD';
ENDIF
IF B2= TURE THEN
ch1 = 'dingayrk';
ELSE
ch2 = 'dingyark';
ENDIF
SELECT语句
4.2.2 SELECT
SELECT element OF
CASE(1):
<程序体>
CASE(2,3,4):
<程序体>
CASE(5):
<程序体>
ELSE:
ENDSELECT
既然讲到了SELECT这里就在介绍一下程序控制指令就好像Break
ABORT - 终止程序的执行,包括正在进行的任何动作。中止后程序无法继续。
DELAY - 执行暂停指定的时间,以毫秒为单位。
PAUSE - 执行暂停,直到执行 CONTINUE 操作(SHIFT+FWD)。
WAIT FOR - 导致执行暂停,直到满足指定条件或条件列表
4.2.3 FOR循环
减循环
FOR A = <循环次数开始值> DOWNTO <循环次数结束值> DO
<语句>
ENDFOR
增循环
FOR A = <循环次数开始值> TO <循环次数结束值> DO
<语句>
ENDFOR
这里面有个坑
在C/C++中我们使用FOR循环的时候是可以在语句中定义循环变量的。但是在Karel中必须要先定义
PROGRAM TEST
VAR
INT_A:INTEGER --定义循环变量
BEGIN
FOR AINT_A=1 DOWNTO 10 DO
<语句>
ENDFOR
END TEST
4.2.4 WHILE
WHILE <布尔表达式> DO
<语句>
ENDWHILE
4.2.5 REPEAT
REPEAT
<循环体>
UNTILE<布尔表达式>
看了这么多不妨动手试一下循环命令
下面我们写一个示例
4.3 冒泡排序法
学过编程的这个基本上都写过,自己可以试着用Karel写一下
PROGRAM TEST09
TYPE
T_array=ARRAY[10] OF INTEGER
VAR
V_num:T_array
V_ArrayLen:INTEGER --数组长度
V_Temp:INTEGER
V_while:INTEGER --FOR1循环变量
V_while2:INTEGER --FOR2循环变量
V_show:INTEGER --FOR3循环变量
BEGIN
V_ArrayLen = ARRAY_LEN(V_num) --返回数组中元素个数
V_num[1]=3;V_num[2]=7;V_num[3]=9;V_num[4]=10;V_num[5]=1;
V_num[6]=2;V_num[7]=4;V_num[8]=5;V_num[9]=6;V_num[10]=8;
FORCE_SPMENU(TP_PANEL,SPI_TPUSER,1)
WRITE(CHR(128),CHR(137))
FOR V_show = 1 TO V_ArrayLen DO
WRITE(V_num[V_show])
ENDFOR
WRITE(CR)
FOR V_while=1 TO V_ArrayLen DO
FOR V_while2=1 TO V_ArrayLen DO
IF V_num[V_while] > V_num[V_while2] THEN
V_Temp=V_num[V_while2]
V_num[V_while2]=V_num[V_while]
V_num[V_while]=V_Temp
ENDIF
ENDFOR
ENDFOR
FOR V_show = 1 TO V_ArrayLen DO
WRITE(V_num[V_show])
ENDFOR
WRITE(CR)
END TEST09
水平有限,有什么疑问的地方私信我