作者jaredlui (庆生)
看板Fortran
标题Re: [问题] 回圈问题
时间Tue May 29 17:42:32 2012
※ 引述《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
1F：→ Cypresslin:XD 05/29 17:45
2F：推 Wstyle:XD 我是想说还要能自订长宽然後再显示图形 05/29 18:52