TrabalhosGratuitos.com - Trabalhos, Monografias, Artigos, Exames, Resumos de livros, Dissertações
Pesquisar

Prog respostas lista

Por:   •  2/12/2015  •  Trabalho acadêmico  •  7.718 Palavras (31 Páginas)  •  370 Visualizações

Página 1 de 31
  1. 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

       

...

Baixar como (para membros premium)  txt (18.9 Kb)   pdf (81.4 Kb)   docx (19.4 Kb)  
Continuar por mais 30 páginas »
Disponível apenas no TrabalhosGratuitos.com