（使用Fortran95）

寫一個Fortran程式，將1到100內所有3的倍數之數與5的倍數之數相加，顯示出結果。

program example
  implicit none
  integer::a,i
  integer,parameter::number=100
  a=0
  do i=1, number, 1  ！迴圈使所有數字動相加
    if(mod(i,3)==0 .or. mod(i,5)==0)then ！判斷倍數
      a=a+i
    end if
  end do
  write(*,*)a
  stop 
end

arrow
arrow
    文章標籤
    FORTRAN 倍數的判斷 倍數 迴圈 程式語言 loop
    全站熱搜

    billy 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄