Re: [問題] 迴圈問題
※ 引述《Wstyle (DaVie)》之銘言：
: 最近剛接觸fortran
: 遇到迴圈以後因為邏輯還沒建立起來所以有點頭痛
: 像下面的例題:
: 讓使用者輸入長寬後利用星號產生一個空心矩形
: 例如10*10跑出來要是
: **********
: * *
: * *
: * *
: * *
: * *
: * *
: * *
: * *
: **********
: 而我目前只能做到上面跟右邊有星號而已
: integer :: length,width
: integer :: liml,limw
: write(*,*) "輸入長度及寬度"
: read(*,*) length,width
: liml=1
: limw=1
: do while (liml<=length)
: write(*,"('*',$)")
: liml=liml+1
: end do
: do while (limw<width)
: write(*,"('*')")
: limw=limw+1
: end do
: stop
: end
: 想請問我該怎麼改才能跑出完美地矩形呢?
: 可以的話能否連寫的邏輯也一起告訴我
: 感激不盡TAT
program funny
implicit none
integer i
write(*,*) "**********"
do i=1,8
write(*,*) "* *"
end do
write(*,*) "**********"
end program
簡單寫了一下= =...你是要這樣嗎?
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.116.78.63
→
05/29 17:45, , 1F
05/29 17:45, 1F
推
05/29 18:52, , 2F
05/29 18:52, 2F
討論串 (同標題文章)
Fortran 近期熱門文章
PTT數位生活區 即時熱門文章
