User:Madhusudan Maji

A program to test the given number "n" divisible by 7 or not
C  PROGRAM TO TEST THE NUMBER C  IS DIVISIBLE BY 7 OR NOT READ*,N R=MOD(N,7) IF(R.EQ.0)THEN PRINT*,'THE NUMBER IS   C DIVISIBLE BY 7' ELSE PRINT*,'THE NUMBER IS    C NOT DIVISIBLE BY 7' ENDIF STOP END

A program to find maximum among 3 numbers
C    PROGRAM TO FIND MAXIMUM C    AMONG 3 NUMBERS READ*,A,B,C BIG=A IF(BIG.LT.B)BIG=B IF(BIG.LT.C)BIG=c PRINT*,'BIG=',BIG STOP END

A program to calculate and print sum of the series 1^2+2^2+3^2+.....+n^2
C   SUM OF THE SERIES READ*,N ISUM=0 DO 30 I=1,N,1 ISUM=ISUM+I**2 30 CONTINUE PRINT*,'ISUM=',ISUM STOP END

Program to find the area of a circle
C  AREA OF A CIRCLE READ*,R PI=3.142857 A=PI*R*R PRINT*,"AREA=",A STOP END

Program to find the area of a triangle
C  AREA OF A TRIANGLE READ*,A,B,C S=(A+B+C)/2 A=SQRT (S*(S-A)*(S-B)*(S-C)) PRINT*,"AREA=",A STOP END