作者Wstyle (DaVie)
看板Fortran
标题[问题] 回圈问题
时间Mon May 28 20:30:34 2012
最近刚接触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
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 114.198.179.200
1F：→ george1224:请问里面有要写东西吗? 05/28 23:16
2F：推 kkarthur:你需要IF 05/29 08:10
3F：→ Wstyle:g大 里面只要空白就好不要有东西 但这样我就不会了... 05/29 09:36
4F：→ Wstyle:k大 意思是我要在do while里面加入IF同时跑出两边吗? 05/29 09:40
5F：→ onezillion:integer:: i=5,j=11,m,n 05/29 22:34
6F：→ onezillion:print '(<j>(A),\)', ('*',n=1,j) 05/29 22:34
7F：→ onezillion:print '(<i-2>(/,<j>A))', (('*', (' ',n=1,j-2),'*'), 05/29 22:34
8F：→ onezillion:m=1,i-2) 05/29 22:34
9F：→ onezillion:print '(<j>(A))', ('*',n=1,j) 05/29 22:35
10F：→ onezillion:pause 05/29 22:35
11F：→ onezillion:中间有两行要连着 05/29 22:35