switch语句的使用案例

  • 格式:docx
  • 大小:10.58 KB
  • 文档页数:1

procedure test()
var
ii : integer

begin
ii=4
switch ii
case 1 :
write("block1",cr)
case 2 :
write("block2",cr)
case 3 :
write("block3",cr)
case 4 :
write("block4",cr)
endswitch

end