Programacion. Laboratorios de computación salas A y B
Enviado por pedro caca • 3 de Marzo de 2016 • Práctica o problema • 951 Palabras (4 Páginas) • 458 Visitas
[pic 1] | Carátula para entrega de prácticas | Código | FODO-42 |
Versión | 01 | ||
Página | 1/1 | ||
Sección ISO | |||
Fecha de emisión | 25 de junio de 2014 | ||
Secretaría/División: División de Ingeniería Eléctrica | Área/Departamento: Laboratorios de computación salas A y B |
Profesor: | Lomas Barrie Victor Manuel |
Asignatura: | Programación Básica. |
Grupo: | 1105 |
No de Práctica(s): | #10 |
Integrante(s): | Ayala Degollado Alfredo |
Semestre: | 2016-1 |
Fecha de entrega: | 21/10/2015 |
Observaciones: | |
Laboratorios de computación salas A y B
CALIFICACIÓN: ________________
INTRODUCCIÓN.
Una variable puede verse simplemente como un hueco en el que se almacena un objeto de un cierto tipo al que se le da un nombre en específico. Par utilizarla solo hay que saber cuál es su nombre y cuál es el dato que podrá almacenar. Hay veces que es necesario utilizar matrices y algunos vectores a través de una literal (constante que se representa por una letra, a , b , c , d , etc. Que casi siempre es fija.)
Un arreglo consta del nombre de la variable, el tipo de dato y la dimensión que posee. Un arreglo unidimensional es un tipo de datos estructurado que está formado de una colección finita y ordenada de datos del mismo tipo, y el arreglo multidimensional es simplemente una extensión de un arreglo unidimensional. Más que almacenar una sola lista de elementos, es como el almacenamiento de múltiples listas de elementos.
OBJETIVO
Que el alumno comprenda como hacer arreglos unidimensionales u multidimensionales. También aprender a hacer una declaración, inicialización y mapeo de arreglos.
. Sume todos los elementos del siguiente arreglo x = [52, -3.15, 1000, 2E10, e, pi, -1,000,000]
program suma
implicit none
integer i, j, k
real, dimension(7) :: x = (25,15)
real pi, e !! Definimos las constantes pi y e
real sum, absoluto
pi = 3.15
e = 2.718281
write(*,*) ' pi= ', pi
write(*,*) ' e= ', e
i = 0
j = 0
k = 0
sum = 0
absoluto = 0
write(*,*) 'Ejercicio 1'
write(*,*) ''
x(1) = 52.
x(2) = -3.15
x(3) = 1000.
...