@akash07

program main read(*,*)n sum=0.0 k=1 100 sum=sum+(-1.0)**(k+1)/float(k) k=k+1 if (k<n) go to 100 WRITE(6,200) sum 200 format(1x,'sum=',f10.2) stop

program main integer :: n,r,nfac,rfac,nrfac,ncr,fac write(*,*)" enter n & r" read(*,*)n,r ncr=fac(n)/fac(r)*fac(n-r)

program stat real::x(100),sumx,sumx2,avgx,stdevx integer::n read(*,*)n write(*,*)"Enter",n,"numbers" read(*,*)(x(i),i=1,n) sumx=0 sumx2=0 do i=1,n

program average ! this program calculate the average ! of 10 numbers real::x(10),sumx,avg write(*,*)'enter 10 numbers' read(*,*)(x(i),i=1,10) sumx=0 do i=1,10

program main real::a,b,c,disc write(*,*)'enter the coefficient of the quardratic equation ' read(*,*)a,b,c disc=b**2-4*a*c if(disc>0) then write(*,*)'roots are unequal & real' else if(disc==0)then write(*,*)'roots are equal & real' else

program sphere real::rad,pi,area,vol pi=3.1416 write(*,*)'Enter the radius' read(*,*)rad area=4*pi*rad**2 vol=(4./3)*pi*rad**3

program main character::name*10 write(*,*) "What is your name?" read(*,*)name write(*,*)"Hello ",name end program main

program sphere real::rad,pi,area,vol pi=3.1416 write(*,*)'Enter the radius' read(*,*)rad area=4*pi*rad**2 vol=(4./3)*pi*rad**3