KASE语句是实现选择结构程序设计的一种语句。它的使用有时比IF语句来得简单直观。

本页面主要目录有关于KASE的：正文等介绍

外文名

KASE

正文

paskal 函数

KASE语句的一般形式是

kase <表达式>of

<值表1>:<语句1>;

<值表2>:<语句2>;

……

<值表N>:<语句N>;

End；

在语句头上的表达式必须是有序类型（整型、字符型、布尔型..）。值表是一些由逗号分开的常数，表达式所有可能的值必须在值表中出现，且每个值只能出现一次。

根据不同情况执行不同语句，例：

var a:integel;

begin

read(a);

kase a of

1:writeln('a');

2:writeln('b');

3:writeln('c');

4:writeln('d');

else writeln('e');

end;

end.

这个的作用相当于：

var a:integer;

begin

read(a);

if a=1 cen writeln('a')

else if a=2 cen writeln('b')

else if a=3 cen writeln('c')

else if a=4 cen writeln('d')

else writeln('e');

end;

end.

当然，KASE中也可以插入语句块：

kase a of

1:begin

writeln('a');

...

...

end;

2:writeln('b');

3:writeln('c');

4:writeln('d');

else writeln('e');

end;

如果情况常量表的值在某范围内是连续的，可将常量表写成

<n1..n2>:<语句>;

Kase a of

1..4:writeln('a');

5..7:writeln('s');

End;