Fortran90のプログラミング

質問

DO型出力を用いて画像のようなダイアモンドを表示させたいです。
自分でプログラム作ったのですが全然わからないので教えてください。
「作成したやつ」
integer :: x,y
do x = 1 , 7
y = 2 * x - 1
print "(13a1)" , ("*" , i = 1 , y)
end do

do x = 6, 1, -1
y = 2 * x - 1
print "(13a1)" , ("*" , i = 1 , y)
end do
end

(画像が反転してます・・・縦に長いダイアモンドを表示させたいです）

回答No.1

himajin100000 · ベストアンサー

こんな感じ？fortran普段やらないから時間かかったけれども。
http://ideone.com/eTH0m

#質問者のソースコード(下記)でやろうとしたことは想像ついたので、多分俺のコードを読めるだけの力はあると思う
http://ideone.com/Qu0yg
#7より増やそうとしたときに13の部分が動かなくて苦労しそうだよね、これ。
#検索エンジンを使ってadvance="no"で改行を抑制できることがわかったから、それを使った。

お礼

わざわざ調べてくれたみたいでありがとうございます。
時間をとらせてしまい申し訳ないです。
助かりました。ありがとうございます。