quarta-feira, 1 de dezembro de 2010

Soma de 2 Matrizes

Program Matriz_3
Integer N, A(10,10), B(10,10), S(10,10), i, j
Print*, "ENTRE COM O VALOR DE N"
Read*, N
PRINT*, "ENTRE COM OS VALORES DE A"
do i=1,N,1
Read*, (A(i,j), j=1,N,1)
enddo
PRINT*, "ENTRE COM OS VALORES DE B"
do i=1,N,1
Read*, (B(i,j),j=1,N,1)
enddo
PRINT*, "A SOMA DE A+B"
do i=1,N,1
   do j=1,N,1
   S(i,j)=A(i,j)+B(i,j)
   enddo
enddo

do i=1,N,1
Print*,(S(i,j), j=1,N,1)
enddo
end

Matriz 2

Program Matriz_2

Integer X(3,3), i, j
do i=1,3,1
            do j=1,3,1
            Read*, X(i,j)
            enddo
enddo
do i=1,3,1
   do j=1,3,1
   print*,"X(",i,",",j,")", X(i,j)
   enddo
enddo
End

Matriz

Program Matriz_1

Integer F(2,2), i

F(1,1)=54
F(1,2)=10
F(2,1)=30
F(2,2)=30

do i=1,2

Print*,F(i,1), F(i,2)

Enddo
End

Exercício da matriz da abobrinha

PROGRAM ABOBRINHA
REAL N,P(50),S,M,i
READ*,N
S=0
DO i=1,N,1
READ*,P(i)
S=S+P(i)
ENDDO
M=S/N
PRINT*,S
PRINT*, M
END

DOWHILE

PROGRAM AULA
INTEGER N,A(100),B(100),C(100),i
PRINT*,"ENTRE COM O VALOR DE N"
READ*,N
i=1
DO WHILE (i<=N)
PRINT*,"ENTRE COM O VALOR DE A"
READ*,A(i)
PRINT*,"ENTRE COM O VALOR DE B"
READ*,B(i)
C(i)=A(i)+B(i)
PRINT*,C(i)
i=i+1
ENDDO
END

Soma A+B

PROGRAM AULA
INTEGER N,A(100),B(100),C(100),i
READ*, N
do i=1,N,1
READ*, A(i)
ENDDO
do i=1,N,1
READ*,B(i)
ENDDO
do i=1,N,1
C(i) =A(i)+B(i)
PRINT*,C(i)
ENDDO
END

Matéria da segunda prova

As postagens a seguir são relativas a segunda parte da matéria