转载IDL判断_常用

原文地址：IDLif语句作者：truman1900

看董工的培训视频和代码时，没有看到多分支的条件语句，所以就google了一下：

一、单分支：格式：

1.if条件 then语句

2.if条件 thenbegin

语句

endif

二、双分支：

1.if条件 then语句 else语句

2.if条件 thenbegin

语句

endif elsebegin

语句

endelse ;注意是endelse不死endif

三、多分支：

if条件 thenbegin

语句

endif else if条件 thenbegin

语句

endif else if条件 thenbegin

语句

………..

endif elsebegin

语句

endelse

例子：

;+

;

; :Data: 2011-11-8

;-

;单分支结构

PRO test_0,num

IF((num MOD 2) EQ 0)THEN BEGIN

tmp=DIALOG_MESSAGE('单分支结构：'+string(13b)+STRING(num)+'是偶数！',/error)

ENDIF

END

;双分支结构

PRO test_if1,num,div

IF ((num MOD div) EQ 0) THEN BEGIN

void=DIALOG_MESSAGE('双分支结构：'+string(13b)+ $

STRING(num) + ' can be divided by ' + STRING(div))

ENDIF ELSE BEGIN

void=DIALOG_MESSAGE('双分支结构：'+string(13b)+ $

STRING(num) + ' can not be divided by ' + STRING(div))

ENDELSE

END

;多分支结构

PRO test_if2,num

IF num EQ 0 THEN BEGIN

tmp=DIALOG_MESSAGE('多分支结构：'+string(13b)+'this number is ' + $

STRING(num),/information,title='test_if2')

ENDIF ELSE IF num EQ 1 THEN BEGIN

tmp=DIALOG_MESSAGE('多分支结构：'+string(13b)+'this number is ' + $

STRING(num),/information,title='test_if2')

ENDIF ELSE IF num EQ 2 THEN BEGIN

tmp=DIALOG_MESSAGE('多分支结构：'+string(13b)+'this number is ' + $

STRING(num),/information,title='test_if2')

ENDIF ELSE BEGIN

tmp=DIALOG_MESSAGE('多分支结构：'+string(13b)+'No number ' + $

STRING(num),/information,title='test_if2')

ENDELSE

END

PRO exam_1

test_0,4

test_if1,8,3

test_if2,3

END