1 থেকে 99 পর্যন্ত বিজোড় সংখ্যাগুলোর যোগফল; ফোরট্রান

program sum1to99
implicit none
integer::i,sum=0
do i=1,99,2
  sum=sum+i
  enddo
  write(*,*)'1+3+5+...+99=',sum
  endprogram sum1to99

Counting loop দিয়ে নির্দিষ্ট সংখ্যক অঙ্ক যোগ করা।

program sumdefnumb
implicit none
real::x=0,sum=0
integer::index,n
write(*,*)'put no. values u wanna add'
read(*,*)n
if (n<2)then
  write(*,*)'only one number??!!!'
  else
    do index=1,n
      write(*,*)'enter number to add'
      read(*,*)x
      sum=sum+x
      enddo
      write(*,*)'Sum=',sum
      endif
      endprogram sumdefnumb

While Loop দিয়ে অনির্দিষ্ট সংখ্যাক অঙ্কের একটি সরল যোগ;

program sumnumb
implicit none
real::x=0,sum=0
integer::n=0
do
  write(*,*)'put number'
  read(*,*)x
  write(*,*)'no. is',x
  if(x<1) exit  !to end do condition press <1
    n=n+1
    sum=sum+x
    enddo
    if(n<2) then
      write(*,*)'put more no.'
      else
        write(*,*)'Sum=',sum
        endif
        endprogram
     
 

Counting Loop দিয়ে গড় ও Standard Deviation নির্ণয়

program sdcnt
implicit none
real::i,sd,a,x=0,sumx=0,sumx2=0
integer::n=0
write(*,*)'wnter no. of points'
read(*,*)n
if (n<2) then
  write(*,*)'minimum 2 values needed'
  else
    do i=1,n
      write(*,*)'enter number'
      read(*,*)x
      write(*,*)'the no. is',x
      sumx=sumx+x
      sumx2=sumx2+x**2
      enddo
      a=sumx/real(n)
      sd=sqrt((real(n)*sumx2-sumx**2)/(real(n)*real(n-1)))
      write(*,*)'mean=',a,'SD=',sd,'n=',n
      endif
      endprogram sdcnt

Do While Loop দিয়ে গড় ও Standard Deviation নির্ণয়

program stdd
implicit none
real::x=0.,sumx=0.,sumx2=0.,x_bar,sd
integer::n=0
do
  write(*,*)'enter'
  read(*,*)x
  write(*,*)'entered',x
  if(x<0) exit
    n=n+1
    sumx=sumx+x
    sumx2=sumx2+x**2
    enddo
    if(n<2) then
      write(*,*)'put minimum three no.'
      else
        x_bar=sumx/real(n)
        sd=sqrt((real(n)*sumx2-sumx**2)/(real(n)*real(n-1)))
        write(*,*)'mean=',x_bar,'SD=',sd,'n=',n
        endif
        endprogram stdd

DO WHILE LOOP এর একটি সরল উদাহরণ:যোগফল নির্ণয়

program simpsum
implicit none
real::sum=0.,x=0.
integer::n=0
do
  write(*,*)'enter'
  read(*,*)x
  write(*,*)'u entered',x
  if(x<0.) exit
    n=n+1
    sum=sum+x
    enddo
    write(*,*)'Sum=',sum
    endprogram simpsum