菊帝吧 关注:2贴子:110
  • 3回复贴,共1

为考试,开新贴,嗷嗷!

收藏回复

  • 58.242.129.*


1楼2010-07-04 14:18回复
    • 58.242.129.*
    1.data house;
    input STYLE$ SQFEET BEDROOMS BATHS STREET$16. PRICE;
    cards;
    ;
    proc print data=house;run;
    2.data house;
    input STYLE$ SQFEET BEDROOMS BATHS STREET$16. PRICE@@;
    cards;
    ;
    proc print data=house;run;
    data new;set work.house;run;
    


    2楼2010-07-04 14:21
    回复
      • 58.242.129.*
      1. 试用产生标准正态分布的随机函数normal(seed)产生参数为10的 分布随机数100个。
      data a (drop=i j z);
      do i=1 to 100 by 1;y=0;
      do j=1 to 10;
      z=normal(0);
      y=y+z*z;
      end;
      output;
      end;
      proc transpose out=transa;run;
      proc print noobs;run;
      3. 以下数据来自7位同学的高考语文、数学和英语成绩,试用编程的方法计算出平均成绩在75以上男同学的人数。
      data a;
      input sex$ chinese maths english@@;
      total=chinese+maths+english;
      ave=sum (chinese+maths+english)/3;
      if ave>75 then
      if sex='m' then output ;
      else delete;
      cards;
      m 82 78 69 f 90 78 89
      m 79 86 98 m 76 56 80
      f 72 76 81 f 69 78 91 m 92 71 85
      ;
      proc print;run;
      


      3楼2010-07-04 14:27
      回复
        • 58.242.129.*
        1. 把以下程序改为:(1)输出中总成绩没有缺省值;(2)把while改为until,并解释输出结果。
        data class ;
        input sex$ chinese maths english @@;
        do i=1 to 10 by 2   while(n lt 2);
        total=chinese+maths+english;
        n+1;
        end;
        ave=sum(chinese+maths+english)/3;
        cards;
        m 82 78 69 f 90 78 89 m 79 86 98 m 76 56 80
        f 72 76 81 f 69 78 91 m 92 71 85
        ;proc print;run;
        1(1)
        data class;
        input sex$ chinese maths english @@;
        do i=1 to 10 by 2 while (n lt 2);
        n+1;
        end;
        total=chinese+maths+english;
        ave=sum(chinese+maths+english)/3;
        cards;
        ;proc print;run;
        (2)
        data class;
        input sex$ chinese maths english @@;
        do i=1 to 10 by 2 until (n lt 2);
        n+1;
        end;
        total=chinese+maths+english;
        ave=sum(chinese+maths+english)/3;
        cards;
        ;proc print;run;
        


        4楼2010-07-04 14:28
        回复