看板 [ Fortran ]
討論串[問題] 迴圈問題
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[問題] 迴圈問題
推噓1(1推 0噓 10→)留言11則，0人參與, 最新作者Wstyle (DaVie)時間12年前 (2012/05/28 20:30), 編輯資訊
1
0
0
內容預覽:
最近剛接觸fortran. 遇到迴圈以後因為邏輯還沒建立起來所以有點頭痛. 像下面的例題:. 讓使用者輸入長寬後利用星號產生一個空心矩形. 例如10*10跑出來要是. **********. * *. * *. * *. * *. * *. * *. * *. * *. **********. 而我
(還有235個字)
#2
Re: [問題] 迴圈問題
推噓1(1推 0噓 1→)留言2則，0人參與, 最新作者jaredlui (慶生)時間12年前 (2012/05/29 17:42), 編輯資訊
0
0
0
內容預覽:
program funny. implicit none. integer i. write(*,*) "**********". do i=1,8. write(*,*) "* *". end do. write(*,*) "**********". end program. 簡單寫了一下= =.
#3
Re: [問題] 迴圈問題
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者kkarthur (aa)時間12年前 (2012/05/29 21:00), 編輯資訊
0
0
0
內容預覽:
program test. INTEGER :: X,Y,I,J. X = 10. Y = 10. DO I = 1, X. DO J= 1, Y. IF(I==1 .OR. J==1 .OR. I==X .OR. J==X) THEN. WRITE(*,"(A)",ADVANCE="NO") "*
(還有58個字)
#4
Re: [問題] 迴圈問題
推噓4(4推 0噓 3→)留言7則，0人參與, 最新作者onezillion (寶貝)時間12年前 (2012/05/29 22:43), 編輯資訊
0
0
0
內容預覽:
program test. integer:: i=7,j=15,m,n. print '(<j>A,/,<i-2>(<j>A,/),<j>A)', ('*',n=1,j) , (('*', (' '. ,n=1,j-2),'*'),m=1,i-2) , ('*',n=1,j). pause. en
(還有101個字)
首頁
上一頁
1
下一頁
尾頁