Material de base para exposição do professor para aula do dia 18-06-2015
|
Figura: Representação de Matrizes – 1, 2 e 3 Dimensões |
| Codigo Fonte Fortran | Resultado |
program generico
integer :: a
dimension :: a(-3:2,3)
1 format(1x,sp,a,i3.2,a,i3.2,a,i3.2)
print '(A,/,25("_"))','Elementos da matriz a'
do i=-3,2
do j=1,3
(i,j)=i**j
print 1,'a(',i,',',j,')=', a(i,j)
end do
end do
end program generico
|
Elementos da matriz a _________________________ a(-03,+01)=-03 a(-03,+02)=+09 a(-03,+03)=-27 a(-02,+01)=-02 a(-02,+02)=+04 a(-02,+03)=-08 a(-01,+01)=-01 a(-01,+02)=+01 a(-01,+03)=-01 a(+00,+01)=+00 a(+00,+02)=+00 a(+00,+03)=+00 a(+01,+01)=+01 a(+01,+02)=+01 a(+01,+03)=+01 a(+02,+01)=+02 a(+02,+02)=+04 a(+02,+03)=+08 |
Elementos de discussao:
- Declaracao e estrutura de variaveis do tipo Matricial (indexadas, multidimensionais)
- Formatos (inteiros de tamanho fixo i3.2, caracteres e espacos)
Atividade:
A partir do exemplo (Atividade Matriz 3×3), faça um programa semelhante, contudo, para uma matrix 2×2.
| program matriz_3x3 | |
| ! Matriz | |
| ! | |
| ! | 3 -7 4 | | a11 a12 a13 | | A(1,1) A(1,2) A(1,3) | | |
| ! A = | 0 1 5 | = | a21 a22 a23 | = | A(2,1) A(2,2) A(2,3) | | |
| ! | 4 2 2 | | a31 a32 a33 | | A(3,1) A(3,2) A(3,3) | | |
| ! | |
| integer A(3,3) | |
| data A /3,0,4,–7,1,2,4,5,2/ | |
| print *," Matriz A " | |
| print *,"==========" | |
| print 100, ((A(i,j),j=1,3),i=1,3) | |
| 100 format(3(i2,1X),/) | |
| 101 format("A(",i1,",",i1,") = ",i2) | |
| ! Imprimindo elemento por elemento | |
| print *,"_______________________" | |
| print *," Elementos da Matriz A " | |
| print *,"———————–" | |
| do i=1,3 | |
| do j=1,3 | |
| print 101,i,j,A(i,j) | |
| enddo | |
| enddo | |
| stop '>>> Programa finalizado!' | |
| end program matriz_3x3 |
