Question

打印输出下列*号的图案（必须使用循环实现，不能用5条简单的输出语句实现） * *** ***** *** *

用fortran做，我实在是不会了，请各位帮帮忙啊……
图形是这样的
*
***
*****
***
*

Answer 1

程序中用了续行符号$， 你可以试试。

program main
implicit none
integer num,m,i,j,k
num=5
k=num/2+1
Do i = 1, num
m = k-ABS(k-i)
write(*,'(A,$)') ('*', j=1,m)
write(*,'(A)') ''
enddo
end

Answer 2

for i := 0 to 2 do
begin
for j := 1 to i * 2 + 1 do write('*');
writeln;
end;
for i := 1 donwto 0 do
begin
for j := 1 to i *2 + 1 do write('*');
writeln;
end;