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.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 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 |
Portal Física 
Deixe um comentário