SAS上机练习题(全部,含参考答案)

重庆医科大学--卫生统计学统计软件包SAS上机练习题（一）1、SAS常用的窗口有哪三个？请在三个基本窗口之间切换并记住这些命令或功能键。2、请在PGM窗口中输入如下几行程序，提交系统执行，并查看OUTPUT窗和LOG窗中内容，注意不同颜色的含义；并根据日志窗中的信息修改完善程序。DATSEX0101;INPUTTNAME$AGESEX;CARDS;XIAOMIN191LIDONG201NANA182;PRODPRONTDATS=EX1;RUN;PROCPRINTDATA=EX1;VARNAMEAGE;RUN;3、将第2题的程序、结果及日志保存到磁盘。4、试根据如下例1的程序完成后面的问题：表1某班16名学生3门功课成绩表如下问题：1）建立数据集；2）打印至少有1门功课不及格同学的信息；(提示，使用if语句)参考程序：dataa;inputidshwlbl;cards;083687165084746168085737546086798079087757168084858587085787975086807679087858082088777175089677371080758170118705475083706684084627365099827079;run;datab;seta;ifsh60orwl60orbl60thenoutput;run;procprintdata=b;varidshwlbl;run;5、根据下列数据建立数据集表2销售数据开始时间终止时间费用2005/04/2825MAY2009$123,345,0002005091805OCT2009$33,234,5002007/08/1222SEP2009$345,6002004050830JUN2009$432,334,500提示：(格式化输入；数据之间以空格分隔，数据对齐；注意格式后面的长度应以前一个位置结束开始计算，如果读入错误，可试着调整格式的宽度；显示日期需要使用输出格式)开始时间，输入格式yymmdd10.终止时间，输入格式date10.费用，输入格式dollar12.参考程序：dataa;inputx1yymmdd10.x2date10.x3dollar13.;cards;2005/04/2825MAY2009$123,345,0002005091805OCT2009$33,234,5002007/08/1222SEP2009$345,6002004050830JUN2009$432,334,500;run;procprint;run;procprint;formatx1yymmdd10.x2date9.x3dollar13.;run;6、手机号码一编码规则一般是：YYY-XXXX-ZZZZ，其YYY为号段；XXXX一般为所在地区编码；ZZZZ为对应的个人识别编号。下面有一组电话号码（来源于网络，末位以X替换），请用程序完成下列要求：（1）分别列出属于联通、移动、电信的号码；（2）分别提取地区编号及个人识别编号。（提示：列输入方式或者字符串操作）说明：移动：134-139、150、151、152、157、158、159、188联通：130、131、132、155、156电信：133、153、180、189手机号码手机号码1508320464X1313654836X1510291126X1351425709X1339644156X1303612231X1532464828X1383824855X1365721647X1522322763X1523105754X1357851051X1592624347X1508311759X1331237668X1327313520X1370048578X1556443719X1507244457X1804346016X1321246707X1513441713X1368464734X1308279203X1394913242X1897876466X参考程序：dataa;inputy1-3x$4-7z$8-11;if134=y=139oryin(150,151,152,157,158,159,188)thenygrp='移动';ifyin(130,131,132,155,156)thenygrp='联通';ifyin(133,153,180,189)thenygrp='电信';cards;1508320464X1510291126X1339644156X。。。。。。1513441713X1308279203X1897876466X;procprint;run;7、下表是某班学生几门功课的成绩，其中形势课是考查课，其它均为考试课。请完成以下处理并且保存程序、结果和日志：（注意函数在DATASTEP中使用的位置）（1）用Mean()函数求出每位同学的平均分，将其保存在变量中；（2）用sum()函数或者表达式求出每位同学的总分，将其保存在变量中；（3）如果每门考试课权重是0.75，每门考查课权重为0.25，试求每位同学的加权平均分；（4）将数据集保存为永久数据集，保存位置为“D:\mydata\”；（5）调用上面的永久数据集，并将男、女生的成绩分别保存在数据集Dmale和Dfemale中。表3某班同学几门功课的成绩学号性别(0=女，1=男)高数生理人解数理统计形势(考查)008317373647475041419079718578056419787899180077414060616575087316865607675087417468566075087517346656687087617979748987087717568556070087817660647180088018173607582088117681848978088317760606675088408587848590088507875626680088608079777383088708582818480088807775746780088906771716990089007570756980089106976767990089206671606078089317084758085089416265656981089519178616678089615160424478089816773677385089917972786880090017668638490090108170708279参考程序：libnamepbD:\mydata\;datapb.score;inputid$xbgsslrjsltjxs;mscore=mean(ofgsslrjsltjxs);tscore=sum(ofgsslrjsltjxs);wmscore=((gs+sl+rj+sltj)*0.75+xs*0.25)/(0.75*4+0.25);cards;008317373647475041419079718578056419787899180077414060616575087316865607675087417468566075087517346656687087617979748987087717568556070087817660647180088018173607582088117681848978088317760606675088408587848590088507875626680088608079777383088708582818480088807775746780088906771716990089007570756980089106976767990089206671606078089317084758085089416265656981089519178616678089615160424478089816773677385089917972786880090017668638490090108170708279;datadmaledfemale;setpb.score;ifxb=1thenoutputdmale;ifxb=0thenoutputdfemale;run;8、下面是3个大类疾病的ICD-10编码及对应的疾病名。请完成以下任务：（1）建立数据集；（2）提取每种疾病的大类编码；（3）分别将3个大类的疾病存入3个数据集。（提示：ICD10编码中小数点前面的三位表示大类；length语句定义字符变量长度；字符串取子串函数）表44类疾病的ICD10编码及对应疾病名ICD10DiseaseA01.001伤寒A01.002伤寒杆菌性败血症A01.003+伤寒性脑膜炎A01.101甲型副伤寒A01.201乙型副伤寒A01.301丙型副伤寒A01.401副伤寒A02.001B群沙门氏菌肠炎A02.002C群沙门氏菌肠炎A02.004沙门氏菌性肠炎A02.006沙门氏菌胃肠炎A02.007鼠伤寒沙门氏菌性肠炎A02.008婴儿沙门氏菌肠炎A02.101沙门氏菌败血症A02.201+沙门氏菌性肺炎A02.202+沙门氏菌性关节炎A02.203+沙门氏菌性脑膜炎A02.901沙门氏菌感染A02.902鼠伤寒沙门氏菌感染A02.903沙门氏菌属食物中毒A03.001什密氏志贺菌痢疾A03.101弗氏志贺菌痢疾A03.201鲍氏志贺菌痢疾A03.301宋内氏志贺菌痢疾A03.802菌痢混合感染A03.901细菌性痢疾A03.902慢性细菌性痢疾急性发作A03.903慢性细菌性痢疾A03.905慢性迁延型细菌性痢疾A03.906中毒性痢疾参考程序：dataa;inputICD10$Disease:$24.;cat=substr(ICD10,1,3);cards;A01.001伤寒A01.002伤寒杆菌性败血症A01.003+伤寒性脑膜炎A01.101甲型副伤寒A01.201乙型副伤寒A01.301丙型副伤寒A01.401副伤寒A02.001B群沙门氏菌肠炎A02.002C群沙门氏菌肠炎A02.004沙门氏菌性肠炎A02.006沙门氏菌胃肠炎A02.007鼠伤寒沙门氏菌性肠炎A02.008婴儿沙门氏菌肠炎A02.101沙门氏菌败血症A02.201+沙门氏菌性肺炎A02.202+沙门氏菌性关节炎A02.203+沙门氏菌性脑膜炎A02.901沙门氏菌感染A02.902鼠伤寒沙门氏菌感染A02.903沙门氏菌属食物中毒A03.001什密氏志贺菌痢疾A03.101弗氏志贺菌痢疾A03.201鲍氏志贺菌痢疾A03.301宋内氏志贺菌痢疾A03.802菌痢混合感染A03.901细菌性痢疾A03.902慢性细菌性痢疾急性发作A03.903慢性细菌性痢疾A03.905慢性迁延型细菌性痢疾A03.906中毒性痢疾;datacat01cat02cat03;seta;ifcat='A01'thenoutputcat01;ifcat='A02'thenoutputcat02;ifcat='A03'thenoutputcat03;run;9、现有两个文件，内容如下：A文件学号统计体育年龄0187832302569622039375190477842405885518B文件学号性别班级01男102女103男304男205女208女3要求：打印至少有一门功课不及格的同学的年龄、性别和班级。参考程序：datafileA;inputno$tjtyage;cards;0187832302569622039375190477842405885518;datafileB;inputno$sex$bj;cards;01男102女103男304男205女208女3;procsortdata=fileA;byno;procsortdata=fileB;byno;datafileAB;mergefileAfileB;byno;ifmin(tj,ty)60andmin(tj,ty).;run;procprint;run;10、显示100到200以内的素数。（提示：素数即只能被1和本身整除的数，