data yhsj1;
array x[7] ;
array m[7] ;
do i=1 to 7;
x1=1; x2=lag(i);
do j=2 to 6;
m[j]+x[j]; x[j+1]=lag(m[j]);
end; output;
end;
proc print;
title 'yhsj';
var x1-x7;
run;

%MACRO t(_text,_opt);
OPTIONS NOSOURCE NONOTES;
%IF &_opt = n %THEN %LET _opt = new;
DATA _NULL_;
LENGTH _text $5000.;
_text = SYMGET('_text') ;
_text = COMPRESS(_text,"'");
_text = TRANSLATE(_text,"'",&quoterep);
CALL SYMPUT('_text',_text);
RUN;
PROC PRINTTO LOG = """&outpath\&texfile..tex""" &_opt;
RUN;
%PUT &_text;
PROC PRINTTO;RUN;
OPTIONS SOURCE NOTES;
%MEND;

%MACRO pt(n);
%t('\begin{center}');
%DO i=0 %TO %EVAL(&n-1);
%DO j=0 %TO &i;
%t('$%SYSEVALF(%SYSFUNC(FACT(&i))/(%SYSFUNC(FACT(&j))*%SYSFUNC(FACT(&i-&j))))$');
%IF &i=&j %THEN %DO;
%t('\\');
%END;
%END;
%END;
%t('\end{center}');
%MEND;
%pt(15);



1
1 1
1 2 1
1 3 3 1
1 4 6 4 1
1 5 10 10 5 1
1 6 15 20 15 6 1
1 7 21 35 35 21 7 1
1 8 28 56 70 56 28 8 1
1 9 36 84 126 126 84 36 9 1
1 10 45 120 210 252 210 120 45 10 1
1 11 55 165 330 462 462 330 165 55 11 1
1 12 66 220 495 792 924 792 495 220 66 12 1
1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1
1 14 91 364 1001 2002 3003 3432 3003 2002 1001 364 91 14 1

data test;
do i=1 to 10;
do j=0 to i;
n=fact(i)/(fact(j)*fact(i-j));
output;
end;
end;
run;

data _null_;
set aa(firstobs=2);
if i=1 then  put #i @40 n @;
else put #i @(40-2*i+4*j) n @;
run;

data test;
do i=1 to 10;
do j=0 to i;
n=fact(i)/(fact(j)*fact(i-j));
output;
end;
end;
run;

data _null_;
set aa(firstobs=2);
if i=1 then  put #i @40 n @;
else put #i @(40-2*i+4*j) n @;
run;

谢谢啦，我想用的是宏程序打印