quinta-feira, 2 de dezembro de 2010
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
Assinar:
Postagens (Atom)


