Fortran Programming Examples

Excercise 20

fortran

program ex20
integer::a,b,c,d
read*,a,b
print *, 'a=',a
print *,'b=',b
if (a<b) then
c=2*a*b
print *, '2*product =',c
else 
d=2*(a+b)
print *,'2 sum =',d
end if 
end program ex20

Excercise 19

fortran

program ex19
real::a,b
read*, a,b
print *, 'a=' ,a, 'b=',b
if (a>b) then
print*, 'max number =',a
end if 
print *, 'max number =',b
end program ex19

Excercie 18b

fortran

program ex18b
!mathematical operation
real:: x,y 
read*,x
if (x<3)then
y=6*x**2+1
print *, 'the value of y is=' ,y
else 
y=-5*x
print*, 'the value of y is=',y
end if 
end program ex18b

pro8

fortran

program pro8
!factorial of n
integer::i,n,f
read*,n
f=1
do i=1,n
f=f*i
end do
print*, f
end program pro8

prob8

fortran

program prob8
!factorial of the number n
integer :: i,n,f
read *,n
f=1
do i=1,n
f=f*i
end do
print *, f
end program prob8

problem 1

fortran

program prob21
! square of all numbers 1 to 10
integer::i,x
do i=1,10
x=i**2
print * ,x
end do
end program prob21

ex6

fortran

program ex6
!this program calcu;lates multiplication table for 6
integer::i,p
do i=1,12
p=i*6
print*,i,'x 6=',p
end do
end program ex6

program ex20

fortran

program ex20
integer ::a,b,c,d
read*,a,b 
print*,"a=",a,"b=",b
if (a<b)then 
c=2*a*b
print *,"2*product=",c
else 
d=2*(a+b)
print *, "2 sum =",d 
end if 
end program ex20

program ex19

fortran

program ex19
real::a,b
read *, a,b 
print *,"a=", a ,"b =", b 
if (a>b)then 
print *, "max number =", a 
end if 
print *,"max number=", b 
end program ex19

prob5

fortran

program prob5
!  print all numbers from LOW to HIGH by steps of STEPS
integer ::i,low,high,step
read *,low,high,step
do i=low,high,step
print *,i
end do
end program prob5

Follow

Newsletter