ClubEnsayos.com - Ensayos de Calidad, Tareas y Monografias
Buscar

Distancia entre 2 puntos (prog. fortran)


Enviado por   •  23 de Octubre de 2015  •  Práctica o problema  •  359 Palabras (2 Páginas)  •  1.052 Visitas

Página 1 de 2

Distancia ente 2 puntos en fortran

En la computación se llegan a generar diversos tipos de programas que ayudan a la vida cotidiana, en este caso lo haremos concentrados en las matemáticas.

Primero tenemos que ver un problema en el cual se tenga que buscar una solución eficaz y que pueda ayudar a más de 1 persona, pues hacer programas de manera aleatoria sin importar el sector de personas al que va dirigido, solo ocasionaría generar soluciones de manera innecesaria. En nuestro caso veremos la distancia entre dos puntos que es uno de los temas  que se llega a enseñar a los estudiantes de diversos niveles, cabe destacar que en las áreas de las físico matemáticas es de suma importancia.

Primero abrimos el programa y le damos un nombre

program 7

Luego declaramos las variables que se utilizaran (es recomendable primero analizar el problema y hacer un diagrama de flujo al igual que el pseudocódigo)

        real:: p1x,p1y,p2x,p2y,D

Le pedimos las coordenadas del primer punto al usuario

        write(*,*) 'Dame la X y Y del primer punto'

Guardamos en las variables

        read p1x

        read p1y

Le pedimos las coordenadas del segundo punto al usuario

        write(*,*) 'Dame el segundo punto

Guardamos en las variables

        read p2x

        read p2y

Colocamos la operación que se debe de utilizar para calcular la distancia (primero se coloca la variable en la que se va a almacenar, posteriormente colocamos un igual para que el resultado de la operación se guarde en la variable)

        D= SQRT(((p1x-p2x)**2)+((p1y-p2y)**2))

Finalmente mostramos el resultado al usuario

        write(*,*) 'la distancia es: ', D

(el stop es opcional)

        Stop

Y cerramos el programa

        END PROGRAM 7

Bueno, espero que les haya servido y recuerden siempre visualizar los problemas antes de resolverlos y/o programarlos, eso les ara el trabajo mas sencillo.

...

Descargar como (para miembros actualizados) txt (2 Kb) pdf (28 Kb) docx (10 Kb)
Leer 1 página más »
Disponible sólo en Clubensayos.com