急！请高手帮帮忙呀－－一道sas编程题！

shiyiming

<!-- s:?: --><img src="{SMILIES_PATH}/icon_question.gif" alt=":?:" title="Question" /><!-- s:?: -->
下面这道题我试了好些时间，总是得不出应有的结果，请高手帮帮忙呀！
编制程序：
六个变量id d1-d5，数据节选如下：
1   2    7      23  100  1000
2   3    33    54  56    1000
3   .     4      6     44   100
要求：如果相邻数据之差小于等于7，则置为缺失，数据结果应如下：
1    .     .      23  100 1000
2   3    33    .     .      1000
3   .     .       .     44   100
注：最前面一列的1　2　3是id号，不用处理的数据。
请各位多多指教呀！

shiyiming

[code:41f69]
data ahuige&#40;drop=del&#58; id i&#41;;
  array v&#40;5&#41; a b c d e;
  array del&#40;5&#41; ;
  input id v&#40;*&#41;;
  do i=1 to 5;
    if i-1&gt;=1 then del&#40;i&#41;=&#40;abs&#40;v&#40;i&#41;-v&#40;i-1&#41;&#41;&lt;=7 or del&#40;i&#41;&#41;;
    if i+1&lt;=5 then del&#40;i&#41;=&#40;abs&#40;v&#40;i&#41;-v&#40;i+1&#41;&#41;&lt;=7 or del&#40;i&#41;&#41;;
  end;
  do i=1 to 5;
    if del&#40;i&#41; then v&#40;i&#41;=&#46;;
  end;
  cards;
1 2 7 23 100 1000
2 3 33 54 56 1000
3 &#46; 4 6 44 100
;
run;

proc print;run;[/code:41f69] <!-- s:oops: --><img src="{SMILIES_PATH}/icon_redface.gif" alt=":oops:" title="Embarassed" /><!-- s:oops: -->

shiyiming

尽管程序有点复杂，不过很好哦！非常感谢！ <!-- s:P --><img src="{SMILIES_PATH}/icon_razz.gif" alt=":P" title="Razz" /><!-- s:P -->  <!-- s:lol: --><img src="{SMILIES_PATH}/icon_lol.gif" alt=":lol:" title="Laughing" /><!-- s:lol: -->  <!-- s:D --><img src="{SMILIES_PATH}/icon_biggrin.gif" alt=":D" title="Very Happy" /><!-- s:D -->