SAS编写九九乘法表,四种形式,上三角形、下三角形、上次三角形、下次三角形。
data _NULL_;
file print;
do i=1 to 9;
do j=1 to i;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (8*j) str @;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=i to 9;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (8*j) str @ ;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=1 to i;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (80-8*j) str @ ;
end;
end;
run;
data _NULL_;
file print;
do i=1 to 9;
do j=9 to i by -1;
k=i*j;
str=trim(left(i)) || '*' || trim(left(j)) || '=' || left(k);
put #i @ (80-8*j) str @ ;
end;
end;
run;