Bom dia pessoal, preparados para as provas?
Bom, boa prova para todos, e não esqueçam que a prova vai ser realizada no prédio central, no anfiteatro D1.
Até mais

Exercício triângulo pascal

Segue (na linguagem do fortran) o exercício feito em sala de aula do triângulo de pascal (aquele do guarda-chuva)

program pascal2

integer N, A(100,100), i, j

read*, N

do j=1, N, 1

a(1,j) = 2*j

enddo

do i=2, N-1, 1

a(i,1) = 2

enddo

do i=2, N, 1

do j=1, N-1, 1

if (i+j ==N+1) then

A(i,j) = A(1,N)

Endif

enddo

enddo

do i=2, N-1, 1

do j=2, N-1, 1

if (i+j<N+1) then

A(i,j) = A(i,j-1) + A(i-1,j-1) + A(i-1,j)

endif

enddo

enddo

Do i=1, N, 1

print*, (A(i,j), j=1, N-i+1)

enddo

END

Exercícios Matrizes

Boa tarde pessoal, estão estudando bastante para prova?
Segue dois exercícios de matrizes, na forma de algoritmo.
Espero que contribuem para os estudos.

1-)
Algoritmo matriz1
 inteiro F(2,2), i
Início
  F(1,1) ← 54
  F(1,2) ← 10
  F(2,1) ←20
  F(2,2) ← 30
para i de 1 ate 2 passo 1 faca
 imprimir F(i,1), F(i,2)
fimpara
fim

2-)
Algoritmo matriz2
 inteiro x(3,3), i, j
Inicio
 para i de 1 ate 3 passo 1 faca
  para j de 1 ate 3 passo 1 faca
   ler x(i,j)
 fimpara
fimpara
 para i de 1 ate 3 passo 1 faca
  para j de 1 ate 3 passo 1 faca
imprimir x(i,j)
fimpara
fimpara
fim

Exercício de Vetor

Bom galera, segue um exercício de vetor, feito em sala de aula, esta na forma de algoritmo.
Espero que ajude vocês nos estudos.

1- Dado N e os vetores A e B de N elementos. Calcule e imprima o vetor C, dado por C=A+B

Algoritmo exercicio_vetor
inteiro N, A(100),B(100), C(100), i
início
 ler N
  para i de 1 ate N passo 1 faca
   ler A(i)
 fimpara
 para i de 1 ate N passo1 faca
  ler B(i)
fimpara
 para i de 1 ate N passo 1 faca
  C(i) ← A(i) + B(i)
fimpara
 para i de 1 ate N passo 1 faca
  imprimir C(i)
 fimpara
fim


Não esqueçam que a prova do dia 06/12 vaiser no anfiteatro da D1, no prédio central.

Exercício Triângulo de Pascal

Prova

Olá galera, lembrar vocês que a provado dia 06/12 vai ser no anfiteatro da D1, no prédio Central

Exercício soma de matrizes quadráticas

Fazer um algoritmo para somar duas matrizes quadradas (NxN) dadas, N também é dado.
Segue a resolução, já com a linguagem do Fortran



program soma_matrizes
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 elementos da matriz A"
Do i=1, N, 1
Read*, (A(i,j), j=1, N, 1)
Enddo
Print*, "entre com os elementos da matriz B"
Do i=1, N, 1
Read*, (B(i,j), j=1, N, 1)
Enddo
Print*, "soma da matriz 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