SAS软件应用基础第四章课件.ppt

第四章 数据步的程序设计 Program Design of Data Step;Contents ;4.1 IF语句;格式: IF expression THEN statement; ELSE statement; 说明： SAS系统先对expression求值， 如结果为真(非零)，则执行THEN后的语句 如结果为假，则执行ELSE后面的语句，如果没有ELSE子句，则执行下一个语句 在THEN之后只允许使用一个语句，如果要执行几个语句，则应用DO-END把要同时执行的几个语句括起来。 IF-THEN/ELSE语句可以嵌套 ;例1：在程序执行时显示总成绩280的观测 DATA A; INPUT NUM S1-S3 @@; TOTAL=SUM(OF S1-S3); IF TOTAL280 THEN PUT NUM TOTAL; CARDS; 1001 79 96 87 1002 89 96 98 1003 87 69 81 run;;例2：口腔科体检，记录检查值为： 0-正常，1-龋齿，2-龋齿已填充， 3-因龋齿失牙，4-其他原因失牙。 通过牙齿状态调查判断患龋齿与失牙病情。 Data a; Input x @@; If 1=x=3 Then hq=1; * x=1 x=3; Else hq=0; If 3=x=4 Then sy=1; * x=3 x=4; Else sy=0; Cards; 0 1 2 3 4 ; Proc print; Run;;例3：Do - End 语句组： 对考试成绩不及格的学生指明需要补考，并在日志窗口显示。 Data a; Input num x @@; If x60 then do; bk=1; put num x bk=; End; Else bk=0; Cards; 101 80 102 90 103 85 104 50 105 100 Run;;例4: if 嵌套 data ; input X Y@@; IF X=0 THEN IF Y^=0 THEN PUT X ZERO，Y NONZERO; ELSE PUT X ZERO，Y ZERO; ELSE PUT X NONZERO; cards; 0 1 0 0 1 0 0 3 run;;4.2 GO TO (GOTO)语句 ; DATA INFO; INPUT X Y @@; IF 1=X=5 THEN GO TO OK; X=3; COUNT+1; OK: SUMX+X; CARDS; 3 5 7 9 2.7 3.8 59 10 ； PROC PRINT; Run;;4.3 RETURN语句 ;DATA RECORD; INPUT X Y @@; IF 1=X=5 THEN GOTO OK; X=3; COUNT+1; RETURN; OK: SUMX+X; CARDS; 3 5 7 9 2.7 3.8 59 10 PROC PRINT;;DATA RECORD; INPUT X Y @@; IF X1 OR X5 THEN DO; X=3; COUNT+1; END; ELSE SUMX+X; CARDS; 3 5 7 9 2.7 3.8 59 10 PROC PRINT;;DATA RECORD; INPUT X Y @@; IF X1 OR X5 THEN DO; X=3; COUNT+1; END; SUMX+X; CARDS; 3 5 7 9 2.7 3.8 59 10 PROC PRINT;;4.4 循环(Cycling program)设计;格式:DO 指针变量=初值 TO 终值 BY 增量; END ; 说明： DO语句组第一次执行时，指针变量等于初值。 每执行到END语句时，指针变量+增量作为新的指针变量，并与终值作比较，直到指针变量的值变化超过终值时才停止。 最后一次执行完后，指针变量值超过终值。 如果仅有初值，则直到一个语句指示跳出循环体才停止循环。 如果初值终值均未规定，语句组执行一次。 如果未规定增量，增量的缺省值为1。;例：打印乘法九九表 DATA _NULL_; DO I=1 TO 9; DO J=1 TO I;