→ Cypresslin:XD 05/29 17:45
推 Wstyle:XD 我是想說還要能自訂長寬然後再顯示圖形 05/29 18:52
※ 引述《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