主题：编程求教，紧急求助
yanglei2006
[专家分：0] 发布于 2010-03-30 21:27:00
fortran语言编程打印以下图形：
1
121
12321
1234321
123454321
非常感谢！请朋友给出程序，拜求。
如果方便，请把程序回复或者发往邮箱：yanglei2006@gmail.com
回复列表 （共5个回复）
沙发
yanglei2006 [专家分：0] 发布于 2010-03-30 21:52:00
不要使用数组，用fortran循环语句编程
板凳
asymptotic [专家分：16630] 发布于 2010-03-30 23:15:00
program main
implicit none
character(len = 30):: fmt_str
character(len = 30):: Int_str
integer, parameter:: N = 9 ! 1 =< N =< 9
integer:: i, j ! for loop
fmt_str = "(T*, A)"
do i = 1, N, 1
write(fmt_str(3 : 3), "(I1)") N - i + 1
do j = 1, i - 1, 1
write(Int_str(j : j), "(I1)") j
write(Int_str(i + j : i + j), "(I1)") i - j
end do ! j
write(Int_str(i : i), "(I1)") i
write(*, fmt_str) Int_str
end do ! i
stop
end program
3 楼
trimtrim [专家分：1640] 发布于 2010-03-31 00:17:00
还真有人给回阿
4 楼
yrliu [专家分：750] 发布于 2010-03-31 01:07:00
program forfun
implicit none
integer,parameter:: con=26,n=9
integer:: i,j
double precision::tm1,tm2
write(*,'(I<con>)')1
do i=2,n
tm1=0.0; tm2=0.0
do j=1,i
tm1=tm1+j*10**(i-j)
tm2=tm2+(i-j+1)*10**(i-j)
enddo
write(*,'(I<con>,I<i-1>)')int(tm1),int(tm2-i*10**(i-1))
enddo
end program
just for fun
5 楼
yanglei2006 [专家分：0] 发布于 2010-03-31 21:10:00
非常感谢楼上的二位给出程序的高手！
我来回复
您所在位置：