最近剛接觸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

請問裡面有要寫東西嗎?

你需要IF

g大 裡面只要空白就好不要有東西 但這樣我就不會了...k大 意思是我要在do while裡面加入IF同時跑出兩邊嗎?

integer:: i=5,j=11,m,nprint '(<j>(A),\)', ('*',n=1,j)print '(<i-2>(/,<j>A))', (('*', (' ',n=1,j-2),'*'),m=1,i-2)print '(<j>(A))', ('*',n=1,j)pause中間有兩行要連著