- 60 名前：デフォルトの名無しさん [2006/01/30(月) 10:41:15 ]
- 2006年の1月から3月までのカレンダーを作れという課題がでました。
・・・・・・・・・・・
do 20 t=1,3
if(t.eq.2)then
b=28
else
b=31
end if
・・・・・・・・・
・・・・・・・・・
write(6,*)" ",t,"月 "
write(6,*)" 日 月 火 水 木 金 土 "
・・・・・・・・・・
・・・・・・・・・・
write(6,100)(a(i),i=6,b)
100 format(7i5)
・・・・・・・・・・
・・・・・・・・・・
・・・・の部分がわかりません。よろしくお願いします。
