练习题（图形打印和杨辉三角）

klainogn

我也来看看答案

runintostar

第二个效率较低，又不想改了。:wink:

1. #!/usr/bin/ksh
   
2. 
   
3. function star
   
4. {
   
5.         if [ $1 -gt 1 -a \( $3 = "above" -o $3 = "middle" \) ];then
   
6.                 star `expr $1 - 2` $2 "above"
   
7.         fi
   
8.         i=0
   
9.         while [ $i -lt `expr $2 - $1 / 2` ]
   
10.         do
    
11.                 echo " \c"
    
12.                 i=`expr $i + 1`
    
13.         done
    
14.         i=0
    
15.         while [ $i -lt $1 ]
    
16.         do
    
17.                 echo "*\c"
    
18.                 i=`expr $i + 1`
    
19.         done
    
20.         echo
    
21.         if [ $1 -gt 1 -a \( $3 = "below" -o $3 = "middle" \) ];then
    
22.                 star `expr $1 - 2` $2 "below"
    
23.         fi
    
24. }
    
25. 
    
26. 
    
27. function yhvalue
    
28. {
    
29.         if [ $1 -eq 1 -o $2 -eq 1 -o $1 -eq $2 ];then
    
30.                 return 1;
    
31.         fi
    
32.         typeset x y left right
    
33.         x=`expr $1 - 1`
    
34.         y=`expr $2 - 1`
    
35.         yhvalue $x $y
    
36.         left=$?
    
37.         yhvalue $x `expr $y + 1 `
    
38.         right=$?
    
39.         return `expr $left + $right`
    
40. }
    
41. 
    
42. function yh
    
43. {
    
44.         if [ $1 -gt 1 ];then
    
45.                 yh `expr $1 - 1` $2
    
46.         fi
    
47.         i=0
    
48.         while [ $i -lt `expr $2 - $1` ]
    
49.         do
    
50.                 echo " \c"
    
51.                 i=`expr $i + 1`
    
52.         done
    
53.         i=1
    
54.         while [ $i -le $1 ]
    
55.         do
    
56.                 yhvalue $1 $i
    
57.                 echo "$? \c"
    
58.                 i=`expr $i + 1`
    
59.         done
    
60.         echo
    
61. }
    
62. 
    
63. if [ $# -ne 1 ];then
    
64.         echo "Usage:xxx positive-odd-number"
    
65.         exit 1
    
66. fi
    
67. 
    
68. if [ `expr $1 % 2` -eq 0 ];then
    
69.         echo "Usage:xxx positive-odd-number"
    
70.         exit 1
    
71. fi
    
72. 
    
73. star $1 `expr $1 / 2` "middle"
    
74. yh $1 $1

复制代码

ly5066113

先来第一题，用的perl：

1. $ perl -le '$n=3;for($i=1;$i<=$n;$i++){$m=abs((int($n/2)+1-$i));print " "x$m."*"x($n-$m*2)}'
   
2. *
   
3. ***
   
4. *
   
5. $ perl -le '$n=5;for($i=1;$i<=$n;$i++){$m=abs((int($n/2)+1-$i));print " "x$m."*"x($n-$m*2)}'
   
6.   *
   
7. ***
   
8. *****
   
9. ***
   
10.   *
    
11. $ perl -le '$n=7;for($i=1;$i<=$n;$i++){$m=abs((int($n/2)+1-$i));print " "x$m."*"x($n-$m*2)}'
    
12.    *
    
13.   ***
    
14. *****
    
15. *******
    
16. *****
    
17.   ***
    
18.    *

复制代码

dn833

回复 10# yestreenstars


    xiandedanteng

yestreenstars

回复 15# dn833


   

开着Q7去西藏

看答案

WilliBhamlll

学习学习

HH106

第一题如果输入了1怎么办?

ly5066113

第二题：

1. $ awk -v n=4 'BEGIN{a[0]=1;for(i=0;i<=n;i++){for(j=i;j>0;j--)a[j]+=a[j-1];for(j=0;j<n-i;j++)printf " ";for(j=0;j<=n;j++)printf a[j]" ";print ""}}'
   
2.     1     
   
3.    1 1   
   
4.   1 2 1   
   
5. 1 3 3 1  
   
6. 1 4 6 4 1
   
7. $ awk -v n=3 'BEGIN{a[0]=1;for(i=0;i<=n;i++){for(j=i;j>0;j--)a[j]+=a[j-1];for(j=0;j<n-i;j++)printf " ";for(j=0;j<=n;j++)printf a[j]" ";print ""}}'
   
8.    1   
   
9.   1 1   
   
10. 1 2 1  
    
11. 1 3 3 1

复制代码

baoyu05

1. awk 'BEGIN{n=17;c=(n+1)/2;m=c;xi=-1;for(i=1;i<=n;i++){bx="";x="";m=(i<=c)?--m:++m;for(bi=m;bi>0;bi--)bx=bx" ";xi=(i<=c)?xi+=2:xi-=2;for(u=1;u<=xi;u+=1)x=x"*";print bx""x};print ""}'

复制代码