Please note, this is a STATIC archive of website www.tutorialspoint.com from 11 May 2019, cach3.com does not collect or store any user information, there is no "phishing" involved.
program ex17
! this program calculates values of the variables
real::m,n,c
m=67
m=m+13
n=(m/4)+(m/2)
c=m*n
print*,'m=',m
print*,'n=',n
Print *, "c=",c
end program ex17
program ex12
! this program calculates determination
real::a,b,c,d
read*,a,b
c=a-b
d=a/b
print*,'a=',a
print*,'b=',b
print*,'determination a-b=',c
Print *, 'determination a/b=',d
end program ex12
program ex11
! this program calculates length of thrid side of triangle
real::a,b,c,p
read*,a,b,p
c=p-(a+b)
print*,'a=',a
print*,'b=',b
print*,'p=',p
Print *, "length of third side of tringle=",c
end program ex11
program ex7
! this program calculates the perimeter of rectangle
real::l,b,perimeter
read*,l,b
perimeter=2*(l+b)
print*,'l=',l
print*,'b=',b
Print *, "perimeter of rectangle=",perimeter
end program ex7
program ex3
! this program calculates the perimeter of triangle
real::a,b,c,perimeter
read*,a,b,c
perimeter=a+b+c
print*,'a=',a
print*,'b=',b
print*,'c=',c
Print *,'total perimeter=',perimeter
end program ex3
program ex2
! this program calculates arithmetic average of 5 numbers
real::a,b,c,d,e,mean
read*,a,b,c,d,e
mean=(a+b+c+d+e)/5
print*,'a=',a
print*,'b=',b
print*,'c=',c
print*,'d=',d
print*,'e=',e
Print*,'the total arithmetic mean=',mean
end program ex2
