转载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 2EQ 0)THEN BEGIN

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

ENDIF

END

;双分支结构

PRO test_if1,num,div

IF ((num MOD div) EQ 0THEN 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

©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容