004 Karel 第四章 程序控制

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

水平有限，有什么疑问的地方私信我