LISTA 7 - SEGUNDO ESTÁGIO

Lista 7 – Segundo Estágio

1.	Escrever um declarador explícito para os seguintes conjuntos (utilize a convenção predefinida):
a)	Conjunto unidimensional de nome M2, cujos índices podem variar de -3 a 3;

INTEGER M2(-3,3)

b)	Conjunto unidimensional de nome XX1, cujos índices podem variar de 0 a 5;

REAL XX1(0:5)

c)	Conjunto bidimensional de nome TAB com 10 colunas e 3 linhas;

REAL TAB(3,10)
REAL TAB(1:3,1:10)

d)	Conjunto bidimensional de nome NEUTRO com 4 colunas e 4 linhas;

INTEGER NEUTRO(4,4)
INTEGER NEUTRO(1:4,1:4)
e)	Conjunto tridimensional de nome CAR com 10 colunas e 5 linhas e 3 planos;

REAL CAR(5,10,3)
REAL CAR(1:5,1:10,1:3)

2.	Para cada um dos comandos de especificação, quantos elementos são armazenados no conjunto? Responda, também, o tipo de valores armazenados?
a)	REAL, DIMENSION(-64:64, 0:4) :: Entrada_Dados

REAL Entrada_Dados(-64:64,0:4)
1ª Dimensão: s – 1 +1
64 – (-64) + 1 = 129
2ª Dimensão: s – 1 +1
4 – (0) + 1 = 5

ELEMENTOS ARMAZENADOS: 129*05 = 645

b)	INTEGER, PARAMETER :: Min = 1, Max = 70
                  INTEGER, PARAMETER :: Max_File = 3
                  CHARACTER(LEN = 24), DIMENSION(Max_File, Min, Max) :: Alunos

		CARACTER(24) ALUNOS(3,1,70)
		1ª DIMENSÃO : 3
		2ª DIMENSÃO : 1
		3ª DIMENSÃO : 70

		ELEMENTOS ARMAZENADOS : 30*1*70=210

c)	INTEGER, DIMENSION(-3:3, -3:3, 6) :: IN

INTEGER IN(-3:3,-3:3,6)
1ª Dimensão: s – 1 +1
3 – (-3) + 1 = 7
2ª Dimensão: s – 1 +1
3 – (-3) + 1 = 7
2ª Dimensão: s – 1 +1
6 – (1) + 1 = 6

ELEMENTOS ARMAZENADOS : 7*7*6=49*6=294


3.	Seguindo o programa FORTRAN descrito na tabela, quais os valores impressos pelo comando WRITE?
PROGRAM Vetor
REAL, DIMENSION(0:11, 2) :: Dist
DATA Dist / 0.00,   0.25,   1.00,   2.25,    4.00,   6.25,    9.00,  12.25,   16.00,  20.25,   25.00,  30.00,     &
	        0.00,  -0.25,  -1.00,  -2.25,  -4.00,  -6.25,  -9.00, -12.25,  -16.00, -20.25, -25.00, -30.00   /
WRITE(*, *) Dist(6, 2)
WRITE(*, *) Dist(3, 2)
WRITE(*, *) Dist(7, 1)
WRITE(*, *) Dist(0, 2)
WRITE(*, *) Dist(5, 1)
WRITE(*, *) Dist(0, 1)
END PROGRAM

-9.000000
-2,250000
12,250000
0,000000
6,250000
0,000000