R

@rifat5

Fortran-9 (combination-nCr)

Fortran
11 hours ago
program comb integer::n,r,nfac,rfac,nrfac,ncr write(*,*)"Enter n and r" read(*,*)n,r nfac=1 do i=1,n nfac=nfac*i end do rfac=1 do i=1,r

Fortran-8 (Factorial)

Fortran
12 hours ago
program factorial integer::i,n,fac write(*,*)"Enter the number" read(*,*)n fac=1 if(n<0)then write(*,*) "Factorial is not defined" else do i=1,n fac=fac*i

Fortran-7 (average)

Fortran
13 hours ago
program average real:: x(10),sumx,avg integer::i write(*,*)"Enter x(10) numbers" read(*,*)(x(i),i=1,10) sumx=0 do i=1,10 sumx=sumx+x(i) end do avg=sumx/10

Fortran-6 (sinetheta)--do while

Fortran
15 hours ago
program sinetheta real::thd,thr,disc,tol ! tolerance in percentage tol=0.1 thd=0.1 do while(disc<tol) thr=thd*3.1416/180 disc=((thr-sin(thr))/thr)*100 write(*,100)thd,sin(thr),disc thd=thd+0.1

fortran--5 (advanced sum) do loop

Fortran
1 day ago
program main integer::i,n,sum write(*,*)"Enter the value of n:" read(*,*)n sum=0 do i=1,n sum=sum+i**4 write(*,*)i,sum end do write(*,*)"The sum is;",sum

Fortran-5(a) (sum)--do loop

Fortran
1 day ago
program main integer::i,n,sum write(*,*)"Enter the value of n:" read(*,*)n sum=0 do i=1,n sum=sum+i end do write(*,*)"The sum is;",sum end program main

fortran-4 (type of roots,disc)

Fortran
1 day ago
program main real::a,b,c,disc write(*,*)"Enter the coefficiants of the quadratic equation:" read(*,*)a,b,c disc=b**2-4*a*c if(disc>0)then write(*,*)"Roots are real & unequal" else if(disc==0)then write(*,*)"roots are real & equal" else

fortran-3( sphere area & volume)

Fortran
1 day ago
program sphere real:: pi,rad,area,volume pi=3.1416 write(*,*)"Enter the radius:" read(*,*) rad write(*,'(F6.1)')rad area=4*pi*rad**2 volume=(4./3)*pi*rad**3 write(*,*)"The area & Volume=",area,volume end program sphere

fortran-2 (write name)

Fortran
1 day ago
program name character::kamrul*10 write(*,*)'What is your name?' read(*,*) kamrul write(*,*) "Hello,kamrul" end program name

fortran-1

Fortran
1 day ago
program hello write(*,*) 'Hello Kamrul!' end program hello

sinetheta

Fortran
1 month ago
program sinetheta real:: thd,thr,disc,tol ! tolerance in percentage tol=0.1 thd=0.1 do while(disc<tol) thr=thd*3.1416/180 disc=((thr-sin(thr))/thr)*100 write(*,*)thd,sin(thr),disc thd=thd+0.1

do loop(sum)

Fortran
1 month ago
program main integer::i,n,sum write(*,*)"Enter the value of n" read(*,*)n sum=0 do i=1,n sum=sum+i**2 write(*,*)i,sum end do write(*,*)"The sum is:",sum

Area & Volume Calculate

Fortran
1 month ago
program sphere real::pi,rad,area,volume pi=3.1416 write(*,*)"Entrer the radius" read(*,*)rad area=4*pi*rad**2 volume=(4./3)*pi*rad**3 write(*,*)"The area and volume=",area,volume end program sphere

Write name

Fortran
1 month ago
program main character::name*10 write(*,*)"What's your name?" read(*,*)name write(*,*)"Hello ",name end program main

Roots Iddentify

Fortran
1 month ago
program main real::a,b,c,disc write(*,*)"Enter the coefficient of the quadratic equation" read(*,*)a,b,c disc=b**2-4*a*c if(disc>0)then write(*,*)"=>roots are real & unequal" else if(disc==0)then write(*,*)"=>roots are real & equal" else