[MIPS] 巴斯卡三角形 pascal\'s triangle＠Morris' Blog｜PChome Online 人新台
24h物| | PChome| 登入
2013-03-26 09:26:57| 人14,904| 回1 | 上一篇 | 下一篇

[MIPS] 巴斯卡三角形 pascal\'s triangle

推 0 收藏 0 0 站台

目容：印出巴斯卡三角形
使用找出巴斯卡三角形中第(n,k)值填入特定位置。




改的 C/C++ 代 如下。

#include <stdio.h>
int pascal(int n, int k) {
    if(k == 0 || n == k)
        return 1;
    return pascal(n-1, k-1) + pascal(n-1, k);
}
int main() {
    int i, j, n = 16;
    puts("Row  Column");
    for(i = 0; i <= n; i++) {
        printf("%d", i+1);
        if(i+1 >= 10)   goto pspace;
        printf(" ");
        pspace:
            printf("   ");
        for(j = 0; j <= i; j++)
            printf("%d ", pascal(i, j));
        puts("");
    }
    return 0;
}

次有挑的地方。
1. 使用求解
2. 入格式要，先定不有三位的情，
用解也不太可能 100 ，因跑的次等於其值，用 tab 字符也是可以，
不相的隔可能太大？


#print pascall triangle using recursion
#int pascal(int n, int k)
#    if(k == 0 || n == k)    return 1;
#    return pascal(n-1, k-1) + pascal(n-1, k);
        .text
        .globl main
main:   #start process        
        addi    $sp, $sp, -12
        sw      $ra, 0($sp)
        sw      $s0, 4($sp)
        sw      $s1, 8($sp)
        
        li      $v0, 4         # printString("Number of levels:")
        la      $a0, inmsg
        syscall
        li      $v0, 5         # readInt
        syscall                # return $v0
        move    $t0, $v0       # $t0 = input levels
        
        li      $v0, 4         # printString("Row  Column")
        la      $a0, outmsg
        syscall
        
        li      $s0, 0         # $s0 = i = 0
for1tst:
        slt     $t1, $s0, $t0  # $t1 = ($s0 < $t0);while(i < n)
        beq     $t1, $zero, exit1
        #process print("%-5d", i+1);
        li      $v0, 1
        addi    $t2, $s0, 1    # $t2 = i+1
        move    $a0, $t2
        syscall
        li      $t3, 10
        slt     $t1, $t2, $t3
        beq     $t1, $zero, pspace# $t2 < 10 print 4 space
        li      $v0, 4         # printString(" ")
        la      $a0, space        syscall
pspace: #print 3 space
        li      $v0, 4         # printString("   ")
        la      $a0, space3
        syscall
        li      $s1, 0         # $s1 = j = 0
for2tst:
        move    $a0, $s0
        move    $a1, $s1
        jal     pascal         # call pascal($a0, $a1)
        move    $s2, $v0       # move result to $s2
        
        li      $v0, 1         # printInt(&a0)
        move    $a0, $s2
        syscall        
        li      $v0, 4         # printString(" ")
        la      $a0, space
        syscall
        
        addi    $s1, $s1, 1    # j++
        
        slt     $t1, $s0, $s1  # $t1 = (i < j)
        beq     $t1, $zero, for2tst # j <= i goto for2tst
        #for2tst end
        
        li      $v0, 4         # printString("\n")
        la      $a0, nl
        syscall
        
        addi    $s0, $s0, 1   # i++        
        j       for1tst
        #for1tst end
exit1:
        lw      $s1, 8($sp)
        lw      $s0, 4($sp)
        lw      $ra, 0($sp)
        addi    $sp, $sp, 12
        jr      $ra
        #end process
#function pascal(int n, int k)=>($a0, $a1)
pascal: addi    $sp, $sp, -16
        sw      $ra, 0($sp)
        sw      $s0, 4($sp)    
        sw      $t0, 8($sp)
        sw      $t1, 12($sp)
        
        li      $v0, 1           # default result
        beq     $a1, $zero, pexit
        beq     $a0, $a1, pexit  # (k == 0 || n == k) return 1
        
        move    $t0, $a0         # copy argv in function
        move    $t1, $a1         # copy argv in function
        addi    $a0, $t0, -1
        addi    $a1, $t1, -1
        jal     pascal
        move    $s0, $v0         # $s0 = C(n-1, k-1)
        
        addi    $a0, $t0, -1
        move    $a1, $t1
        jal     pascal
        add     $v0, $s0, $v0    # $v0 = $s0 + C(n-1, k)  
pexit:
        lw      $t1, 12($sp)
        lw      $t0, 8($sp)
        lw      $s0, 4($sp)
        lw      $ra, 0($sp)
        addi    $sp, $sp, 16
        jr      $ra
#function pascal end
        .data
inmsg:  .asciiz "Number of levels:"
outmsg: .asciiz "Row  Column\n"
nl:     .asciiz "\n"
space:  .asciiz " "
space3: .asciiz "   "

我要
#MIPS#巴斯卡三角形#pascal's triangle
台： Morris

您可能以下文章有趣

人(14,904) | 回(1)| 推 (0)| 收藏 (0)| 寄
全站分: 不分 | 人分: []合言 |
此分下一篇:[合言] File Ouput
此分上一篇:[MIPS] 泡泡排序 Bubble Sort

我要回
黑白
多你啊~Mo大~
你又再次拯救了我QAQ
巴斯卡我只用JAVA~"~
C++我就起^^
便.......那我摸不著的程式~'"~
2013-04-11 12:30:15
版主回
不的，有需要增加的明可以提出。
2013-04-12 17:01:40
否 是 (若未登入"人新台"看不到回覆唷!)
* 入：
入片中算式的果(可能0) 
(有*必填)
TOP
全文
ubao snddm index pchome yahoo rakuten mypaper meadowduck bidyahoo youbao zxmzxm asda bnvcg cvbfg dfscv mmhjk xxddc yybgb zznbn ccubao uaitu acv GXCV ET GDG YH FG BCVB FJFH CBRE CBC GDG ET54 WRWR RWER WREW WRWER RWER SDG EW SF DSFSF fbbs ubao fhd dfg ewr dg df ewwr ewwr et ruyut utut dfg fgd gdfgt etg dfgt dfgd ert4 gd fgg wr 235 wer3 we vsdf sdf gdf ert xcv sdf rwer hfd dfg cvb rwf afb dfh jgh bmn lgh rty gfds cxv xcv xcs vdas fdf fgd cv sdf tert sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf sdf shasha9178 shasha9178 shasha9178 shasha9178 shasha9178 liflif2 liflif2 liflif2 liflif2 liflif2 liblib3 liblib3 liblib3 liblib3 liblib3 zhazha444 zhazha444 zhazha444 zhazha444 zhazha444 dende5 dende denden denden2 denden21 fenfen9 fenf619 fen619 fenfe9 fe619 sdf sdf sdf sdf sdf zhazh90 zhazh0 zhaa50 zha90 zh590 zho zhoz zhozh zhozho zhozho2 lislis lls95 lili95 lils5 liss9 sdf0ty987 sdft876 sdft9876 sdf09876 sd0t9876 sdf0ty98 sdf0976 sdf0ty986 sdf0ty96 sdf0t76 sdf0876 df0ty98 sf0t876 sd0ty76 sdy76 sdf76 sdf0t76 sdf0ty9 sdf0ty98 sdf0ty987 sdf0ty98 sdf6676 sdf876 sd876 sd876 sdf6 sdf6 sdf9876 sdf0t sdf06 sdf0ty9776 sdf0ty9776 sdf0ty76 sdf8876 sdf0t sd6 sdf06 s688876 sd688 sdf86