promotion image of download ymail app
Promoted

fortran 九九乘法表

我需要在螢幕上顯示出

1*1=1 2*1=2 3*1=3

1*2=2 2*2=4 3*2=6

1*3=3 2*3=6 3*3=9

. . .

. . .

. . .

. . .

目前 已經知道程式怎寫了

但是顯示成這樣 我不會

所以請求幫忙謝謝^^

Update:

回樓下的大大

不好意思

我要的不是這種的

你所給的程式

他是從

1*1

1*2

.

.

.

.

9*9

一直往下顯示

但我所要的是

1*1 2*1

. .

. .

. .

1*9 2*9

九個九個這樣顯示 但不是一整排下來

Update 2:

不能直接用 兩個 DO迴圈 再用 format 做嗎??

Update 3:

謝謝你的回答唷~^^

受益良多~

1 Answer

Rating
  • 1 decade ago
    Favorite Answer

    implicit none

    integer i,j,k

    do i=1,9

    do j=1,9

    k=i*j

    write(*,'(1x,i1,a1,i1,a1,i2)') i,'*',j,'=',k

    end do

    end do

    pause

    end

    看看是你要的嗎?

    2008-05-12 23:50:10 補充:

    write(*,'(1x,i1,a1,i1,a1,i2)') i,'*',j,'=',k

    2008-05-13 21:13:16 補充:

    implicit none

    integer i,k

    do i=1,9

    k=i

    write(*,'(9(1x,i1,a1,i1,a1,i2))')i,'*',1,'=',k,i,'*',2,'=',k*2,i,'*',3,'=',k*3,i,'*',4,'=',k*4,i,'*',5,'=',k*5,i,'*',6,'=',k*6,i,'*',7,'=',k*7,i,'*',8,'=',k*8,i,'*',9,'=',k*9

    end do

    pause

    end

    2008-05-13 21:44:03 補充:

    implicit none

    integer i

    do i=1,9

    write(*,'(9(2x,i1,a1,i1,a1,i2))')1,'*',i,'=',i,2,'*',i,'=',i*2,3,'*',i,'=',i*3,4,'*',i,'=',i*4,5,'*',i,'=',i*5,6,'*',i,'=',i*6,7,'*',i,'=',i*7,8,'*',i,'=',i*8,9,'*',i,'=',i*9

    end do

    pause

    end

    我發現我K白設了......哈哈

    2008-05-14 20:30:08 補充:

    方法很多種吧......

    2個迴圈做下去乘出來的積是有了但是會變成有81行那write的位子就要考慮了

    放外面的話乘積值也是要用自己乘的啊,應該是我不才吧,你可以思考看看,但我覺得這並不是一個值得思考的問題說@@。

    p.s:你可以用矩陣的方式寫看看,然後用取代的方式寫,應該就可以達到你想要的了,取代的方式就是我幫你寫的那個金字塔那種。

    Source(s): , do it
    • Commenter avatarLogin to reply the answers
Still have questions? Get your answers by asking now.