くだすれFORTRAN（超初心者用）その4

くだすれFORTRAN（超初心者用）その4at TECH

くだすれFORTRAN（超初心者用）その4 - 暇つぶし2ch746:デフォルトの名無しさん
09/12/01 06:14:43
do i = 1, 4
do n = 1, 7
if (n .GE. (5-i)) .AND. (n .LE. (3+i))
write(*,'(A,$)') '*'
else
write(*,'(A,$)') ' '
enddo
enddo
write(*,'(A)') ''
enddo

かな？

次ページ

続きを表示

1を表示