Prog respostas lista
Por: eric_epa • 2/12/2015 • Trabalho acadêmico • 7.718 Palavras (31 Páginas) • 425 Visualizações
- 1) Faça um programa em Fortran que leia um conjunto de 100 elementos numéricos e os armazene em um vetor. Em seguida, o programa deverá verificar se existem no vetor elementos iguais a um dado valor também informado pelo usuário e imprimir o índice das posições em que estes são encontrados.
program vetor100
integer tam
parameter (tam = 100)
integer v(tam)
do i = 1, tam
print*, "Dˆ o elemento v(",i,") do vetor"
read*, v(i)
end do
print*, "Digite o valor"
read*, valor
do i = 1, tam
if (v(i).EQ.valor) then
print*, "O ¡ndice do elemento do vetor v igual ao valor dado ‚", i
end if
end do
pause
end program vetor100
2) Escreva um programa que leia dois vetores de 100 posições e faça a multiplicação dos elementos de mesmo índice, colocando o resultado em um terceiro vetor. Mostre o vetor resultante.
program multi
integer tam, i
parameter (tam = 20)
integer v1(tam), v2(tam), v3(tam)
read*, (v1(i), i = 1, tam)
read*, (v2(i), i = 1, tam)
do i = 1, tam
v3(i) = v1(i) * v2(i)
end do
do i = 1, tam
print*, "v3(", i, ") =", v3(i)
end do
pause
end program multi
3) Escreva um programa que leia e mostre um vetor de 20 números. A seguir, conte quantos valores pares existem no vetor.
program vetor
integer tam, countPar
parameter (tam = 7)
integer v(tam)
countPar = 0
print*, "Digite os elementos do vetor"
read*, (v(i), i = 1, tam)
print*, (v(i), i = 1, tam)
do i = 1, tam
if (MOD(v(i), 2).EQ.0) then
countPar = countPar + 1
end if
end do
print*, "O n£mero de elementos pares do vetor ‚", countPar
pause
end program vetor
4) Faça um programa que leia um vetor de 100 posições de números inteiros e divida todos os seus elementos pelo maior valor do vetor. Mostre o vetor antes e depois dos cálculos.
program posicoes
integer tam, i, k
real maior
parameter (tam = 5)
integer v(tam)
print*, "Dˆ o elemento 1 do vetor"
read*, v(1)
maior = v(1)
do i = 2, tam
print*, "Dˆ o elemento", i, "do vetor"
read*, v(i)
if (v(i).GT.maior) then
maior = v(i)
end if
end do
print*, "O maior elemento do vetor ‚", maior
do i = 1, tam
v(i) = v(i) / maior
end do
print*, "O novo vetor ‚:"
print*, (v(i), i = 1, tam)
pause
end
5) Faça um programa em Lógica/Fortran onde o usuário informe os valores e você deverá inserir estes valores de forma ordenada num vetor. O usuário deve ser capaz de inserir até 100 valores do tipo real. Após acabar a inserção, apresente os valores inseridos que estão ordenados.
program ordenados
integer max, n, i, j
parameter (max = 100)
real v(max)
n = max + 1
do while (n.GT.max)
print*, "Digite o tamanho do vetor:"
read*, n
if (n.GT.max) then
print*, "Digite um tamanho v lido. Tamanho m ximo: 100."
end if
end do
print*, "Digite os valores do vetor"
read*, (v(i), i = 1, n)
do i = 1, n
do j = i, n
if (v(i).GT.v(j)) then
aux = v(i)
v(i) = v(j)
v(j) = aux
end if
end do
end do
print*, (v(i), i = 1, n)
pause
end
6) Faça um algortimo que leia dois vetores (A e B) de 50 números cada. O algoritmo deve então, subtrair o primeiro elemento de A do último elemento de B, acumulando o valor, subtrair o segundo elemento de A do penúltimo de B, acumulando o valor e assim por diante. Mostre o resultado da soma final.
program ab
integer tam
parameter (tam = 50)
real a(tam), b(tam), dif, soma
...