Program to find average of N Numbers

#include<stdio.h>

int main()
{
    printf("\n\n\t\tStudytonight - Best place to learn\n\n\n");

    int n, i;
    float sum = 0, x;

    printf("Enter number of elements:  ");
    scanf("%d", &n);
    printf("\n\n\nEnter %d elements\n\n", n);
    for(i = 0; i < n; i++)
    {
        scanf("%f", &x);
        sum += x;
    }
    printf("\n\n\nAverage of the entered numbers is =  %f", (sum/n));
    printf("\n\n\n\n\t\t\tCoding is Fun !\n\n\n");
    return 0;
}

Program to find Armstrong Number between 1 to 500

#include<stdio.h>
#include<math.h>

int main()
{
    printf("\n\n\t\tStudytonight - Best place to learn\n\n\n");
    int n,sum,i,t,a;
    printf("\n\n\nThe Armstrong numbers in between 1 to 500 are : \n\n\n");

    for(i = 1; i <= 500; i++)
    {
        t = i;  // as we need to retain the original number
        sum = 0;
        while(t != 0)
        {
            a = t%10;
            sum += a*a*a;
            t = t/10;
        }

        if(sum == i)
        printf("\n\t\t\t%d", i);
    }

    printf("\n\n\n\n\t\t\tCoding is Fun !\n\n\n");
    return 0;
}

Checking for Odd and Even Numbers using Bitwise Operator

#include<stdio.h>

int main()
{
    printf("\n\n\t\tStudytonight - Best place to learn\n\n\n");
    int x;
    for(x = 0; x <= 10; x++)
    {
        if(x&1) // if number is odd
            printf("\t\t\t%d is odd\n",x);
        else if(!(x&1)) // ! is used inside if to reverse the boolean value
            printf("\t\t\t%d is even\n",x);
    }

    printf("\n\n\n\n\t\t\tCoding is Fun !\n\n\n");
    return 0;
}

GAUSS-QUADRATURE METHOD programe in FORTRAN77

!          GAUSS-QUADRATURE METHOD

           DIMENSION W(10),Z(10)

           WRITE(*,*)'GIVE THE LIMITS OF INTEGRATION'

           READ(*,*)TL,TU

           WRITE(*,*)'THE NUMBER POINTS USED FOR CALCULATION'

           READ(*,*)N

           P=(TU-TL)/2

           Q=(TU+TL)/2

           IF(N.EQ.2)THEN

           OPEN(2,FILE='GQUAD2.DAT',STATUS='OLD')

           DO I=1,N

           READ(2,10)W(I),Z(I)

10         FORMAT(5X,F7.5,5X,F8.5)

           WRITE(*,*)W(I),Z(I)

           END DO

           ELSE

            IF(N.EQ.3)THEN

            OPEN(3,FILE='GQUAD3.DAT',STATUS='OLD')

            DO I=1,N

            READ(3,10)W(I),Z(I)

            WRITE(*,*)W(I),Z(I)

            END DO

            ELSE

             IF(N.EQ.4)THEN

             OPEN(4,FILE='GQUAD4.DAT',STATUS='OLD')

             DO I=1,N

             READ(4,10)W(I),Z(I)

             WRITE(*,*)W(I),Z(I)

             END DO

             ELSE

              IF(N.EQ.5)THEN

              OPEN(5,FILE='GQUAD5.DAT',STATUS='OLD')

              DO I=1,N

              READ(5,10)W(I),Z(I)

              WRITE(*,*)W(I),Z(I)

              END DO

              ELSE

               IF(N.EQ.6)THEN

               OPEN(6,FILE='GQUAD6.DAT',STATUS='OLD')

               DO I=1,N

              READ(6,10)W(I),Z(I)

              WRITE(*,*)W(I),Z(I)

              END DO

              ELSE

              END IF

              END IF

              END IF

              END IF

              END IF

           SUM=0

           DO I=1,N

           SUM=SUM+W(I)*F(P*Z(I)+Q)

           WRITE(*,*)SUM

           END DO

           VALUE=(TU-TL)*SUM/2

           WRITE(*,*)TU,TL,VALUE

           STOP

           END

           

           

           FUNCTION F(X)

           F=X*EXP(2*X)

           RETURN

           END