SAS作业02

1.下面是一组销售数据
Wanhua 96645 east sm 11/30/1965
Liming 22969 east sm 1/10/1973
Wangying 27253 east sm 3/8/1977
Wuying 99210 east c 12/18/1980
Liulan 38928 east c 10/9/1978
Zhaohua 21531 west c 4/1/1969
Liuxiao 79345 west c 5/21/1970
Mali 18523 west sm 8/9/1977
Dinghi 32915 west sm 2/10/1983
Yuzhen 42109 west sm 6/6/1972
Andong 94320 west c 9/29/1978
Chenyi 25718 south sm 8/23/1972
Limei 64700 south c 7/20/1981
Chenmin 24634 south sm 6/15/1976
Lili 32719 north sm 3/13/1982
Wanzhi 38712 north sm 5/1/1975
Yanghui 97214 north c 6/19/1977
1)使用固定格式（包括列标识方式和格式输入法）
创建SAS数据集sas.sale，变量名分别为name（字符型），sale，region，type（字符型）和dob，其中逻辑库sas指向文件夹'd:\mysas'
2)分别用drop和keep在逻辑库sas中将sale数据集分成两个数据集sale1和sale2，其中数据集sale1中有变量name，sale 和 region，数据集sale2中有变量name 和dob
3)在逻辑库sas中将sale数据集分成两个数据集sale3和sale4，数据集sale3中只有region为east的记录，数据集sale4中只有region为west的记录
4)在逻辑库sas中建立新的数据集sale5,其为数据集sale1和sale2的合并
5)在逻辑库sas中建立新的数据集sale6,其为数据集sale3和sale4的合并
6)将该数据集中销售额大于30000的记录生成新数据集sas.sale7,同时生成排列整齐的外部数据文件sale1.txt并存入 'd:\mysas’下, 并使dob的格式为mmddyy10.

2.某班学生的姓名、性别、语文、数学以及英语成绩现依次存放在文本文件data.txt中，请将该文件转换成SAS文件，并计算各位学生的平均成绩及总分。

3.用SAS数据步列出1000以下的素数。


4.先不运行程序，写出下面SAS程序的运行结果。然后再运行程序，比较自己预期的结果与电脑运行的结果有何不同，了解SAS语言的运行规则。
data t3;
do i=1 to 2;
input n;
do j=1 to n;
input x@@;
output;
end;
end;
cards;
8
0.225 0.262 0.217 0.240 0.230 0.229 0.235 0.217
10
0.209 0.205 0.196 0.210 0.202
0.207 0.224 0.223 0.220 0.201
;
RUN;

5.下面的数据文件是不同水果的不同品种的价格，请将其输入成SAS数据集fruit.
F Apples
V Gala $2.50
V Golden Delicious $1.99
V Rome $2.35
F Oranges
V Navel $2.79
V Temple $2.



销售
data sas.sale7;
file 'd:\sale1.txt';
set sas.sale;
informat dob mmddyy10.;
where sale>30000;
put name$1-8 sale 10-14 region$16-20 type$21-23 dob mmddyy10.;
format dob mmddyy10.;
run;

素数
data sas.ss;
x=2;
output;
do x=3 to 1000 by 2;
do i=2 to x;
if mod(x,i)=0 and i^=x then leave;
if i=x then output;
end;
end;
drop i;
run;
proc print;
run;

学生成绩
data sas.b1;
infile 'c:\

test\data.txt';
input name$ sex$ chinese math english;
avg=(chinese+math+english)/3;
total=chinese+math+english;
run;


水果
data sas.fruit(drop=type);
retain fruit;
input @1 type$1. @;
if type='F' then input @3 fruit$;
if type='V' then input @3 species$16. @19 price dollar5.2;
if type='V';
format price dollar5.2;
cards;
F Apples
V Gala $2.50
V Golden Delicious $1.99
V Rome $2.35
F Oranges
V Navel $2.79
V Temple $2.
;
run;
proc print;
run;