SHARE FILE AND INTERNET EASY TO OTHER COMPUTER WITHOUT ANY DEVICES OTHER THAN YOUR COMPUTER DEVICES

CREATING WIRELESS AD HOC NETWORK AND SHARED FILE AND INTERNET.

 What is an Ad Hoc Network ?
An Ad Hoc network is essentially a local area network that can be set up very easily and spontaneously in no time whatsoever which makes it possible for computers and devices to communicate directly with each other within a limited range. Microsoft Windows XP laid the way of creating this Ad Hoc network and since then it has become possible to share data and internet connection between other wireless devices. To be successful in this operation of ours we need the host computer to be hardwired and have wireless capabilities.

HOW TO CREATE A WIRELESS AD HOC NETWORK

THIS IS THE THEORY ASPECT THE PRACTICAL ASPECT IS BELOW

To set up an ad hoc network:

1. On the Start menu, click Connect To.

2. In the Connect to a network window, click the Set up a connection or network task.

3. On the Choose a connection option page, click Set up a wireless ad hoc (computer-to-computer) network, and then click Next. (This option only appears on computers that have wireless adapters.)

4. Read the ad hoc network information, and then click Next.

5. Provide a network name, select whether the network is open or requires authentication, provide a security phrase if necessary, and then click Next.

After Windows sets up the ad hoc network, you have the option of sharing your Internet connection.

To disconnect from an ad hoc network, display the Connect To A Network window, click the ad hoc network, and then click Disconnect.

THIS IS PRACTICAL ASPECT

1.   The first and foremost step in this regard is to go to the search box of the start menu and type “wireless”. Once you have done that you should see a list above and from that select “Manage Wireless Networks”.




A new window opens up. In this window navigate to the “Add” button and click on it.

FORTRAN PROGRAM TO FIND THE CONVERSION OF PENCE AND FORTRAN PROGRAM TO SWAP VALUE

1.    FORTRAN PROGRAM TO FIND THE CONVERSION OF PENCE TO POUNDS AND   PENCE

        program convert

        !This example convert pence to pounds and pence.

        implicit none

        integer::pounds,pence,total

        character::name*14

        print*,'what is your name?'

        read*,name

        print*,'hi',name,'enter your value in pence here'

        read*,total

        !total=100*pounds+pence

        pence=mod(total,100)

        pounds=(total-pence)/100

        print*,'the total money is',pounds,'pounds :',pence,'pence'

        end program convert

2.    FORTRAN PROGRAM TO SWAP VALUE

program swap   

implicit none

integer ::a,b,c

print *,'enter two numbers a and b'

read *, a,b

print *, ' a is ',a, ' and b is  ',b

c=a

a=b

b=c

print *, 'I have swapped them - a is now ',a, ' and b is now ',b

end program swap

FORTRAN PROGRAM TO FIND QUADRATIC ROOTS AND AVERAGE

FORTRAN PROGRAM EXERCISE

1.      1.    Fortran programme to find the average of five numbers

program keska

!program to find average scores of five students

implicit none

real::student1,student2,student3,student4,student5,average,total

print*,'Enter the first student score';read*,student1;print*,'  '

print*,'Enter the second student score';read*,student2;print*,'  '

print*,'Enter the third student score';read*,student3;print*,'  '

print*,'Enter the fourt student score';read*,student4;print*,'  '

print*,'Enter the fifth student score';read*,student5;print*,'  '

total=student1+student2+student3+student4+student5

print*,'Total students scores = ',total;print*,' '

average=total/5

print*,'The Average scores is',average

end program keska

2.      2.   Fortran program to find the root of quadratic equation

program KENNY

!program to find roots of quadratic equation

implicit none

real ::a,b,c,t,u

print*,'Enter the value for a here';read*,a;print*,' '

print*,'Enter the value for b here';read*,b;print*,' '

print*,'Enter the value for c here';read*,c;print*,' '

t=(b*b-4*a*c)

if (t>0) then

  u=sqrt(t)

  print*,'First root = ',(-b-u)/(2*a);print*,' '

  print*,'Second root = ',(-b+u)/(2*a)

  elseif (t<0) then

    u=sqrt(-t)

    print*,'Real part is',-b/(2*a);print*,' '

    print*,'Imaginary part is',u/(2*a)

    elseif (t==0) then

    print*,'Double root',-b/(2*a)

   endif

  end program KENNY

Note: you can copy the code and paste them on your compiler, please try to study the code and ask anything that is not clear..