UNIVERSIDADE FEDERAL DA BAHIA Prof. Abel Costa - MAT045 - PROCESSAMENTO DE DADOS - 2004

Lista de exercícios Fortran1) Crie um programa em Fortran que solicite a digitação de quatro números inteiros e exiba no vídeo:

1.1 A soma resultante deste quatro números1.2 O resultado da multiplicação destes quatro números entre si1.3 A raiz quarta do resultado desta multiplicação dos quatro números no formato de variável REAL 1.4 Se a raiz quarta calculada for maior ou igual a 10 exibir mensagem no vídeo “NUMEROS OK!”

2) Elabore 2 (dois) programas, um usando o comando o comando “DO WHILE” e outro usando o comando “GOTO” que solicitem a digitação do raio de 1 círculo e apos digitação, calcular a área e mostrar a mesma no video

3) Elabore um programa que calcule e mostre a soma de todos os números pares de 0 a 2000 e mostre o resultado ao final.

4) Elabore um programa que calcule e mostre a soma de todos os números impares de 0 a 1000.

5) Elabore programas em Fortran para calcular a área e o volume das seguintes figuras geométricas: Triângulo (A=1/2 b.a); Círculo

(A=πR2); Quadrado (A=b . h); Esfera (V=4/3. πR3); Cubo (V=b.h.l); Cilindro circular reto (V= πR2h);

6) Sabendo que PI=3.1415926 (precisão de 7 decimais), elabore um PROGRAMA em linguagem Fortran que calcule o valor de “X”, na série mostrada abaixo de forma que possa se obter um valor de PI com precisão maior ou igual ao apresentado.

7) Sabendo que o numero “e” dos logarítimos naturais neperianos e=2,718281 e sabendo que este numero e fruto da série abaixo, crie um programa em Fortran que calcule o valor de X que nos dará quantas vezes a série será somada para que se obtenha um valor de “e” maior ou igual ao apresentado n=X

e = ∑ (1 + 1/n )n n=1 8) F(x) = X2 é a equação de uma parábola, crie um programa em fortran para calcular a integral desta parábola no intervalo de (0 a 10). Faça um programa similar para calcular a integral de F(x) = Sen (x) no intervalo de (0 a 2π) e no intervalo de (0 a π).

9) Num triângulo retângulo, segundo Pitágoras, o quadrado da hipotenusa (a) é igual a soma dos quadrados dos catetos (b e c), isto é, a2 = b2 + c2. Crie um programa em Fortran que leia os valores dos catetos e imprima (ou escreva) o valor da hipotenusa. Como programador, lembre-se de não permitir que o usuário do seu programa informe valores inválidos para os lados do seu triângulo.

10) Elabore um programa em linguagem Fortran que solicite a digitação de um numero inteiro entre 0 e 50 (Não permitir que usuário digite qualquer numero fora deste intervalo). A condição de finalização do programa é o valor ser igual a zero, após isto calcule o FATORIAL DESTE NUMERO digitado e mostre o resultado no vídeo.

11) Um determinado material radioativo, perde metade de sua massa a cada 50 segundos. Elabore um programa em linguagem Fortran que solicite a massa inicial, em gramas, deste material radioativo e após isto determine o tempo necessário para que a massa se torne menor do que 0,5 gramas. Escreva a massa inicial, a massa final e o tempo calculado em horas, minutos e segundos.

12) Elabore um programa em linguagem Fortran que solicite a digitação de um numero “N” de termos da série de Fibonacci. Apos informado este numero, calcular e mostrar no vídeo todos os números desta série. Lembrar que o comportamento da série de Fibonacci é o seguinte: A partir do terceiro (Inclusive) cada termo é obtido somando-se os dois antecessores. Inicie com o numero 1.Ex: 1,1,2,3,5,8,13,21,34…

13) Usando o recurso de vetores (variável unidimensional) Elabore um programa que solicite a digitação dos números de um CPF (cadastro de pessoas físicas) completo, incluindo os dois últimos dígitos verificadores módulo 11 e que, conforme mostrado em sala de aula, calcule estes dois dígitos verificadores e faca a validação deste CPF. Se os dígitos estiverem OK, apresentar mensagem “NUMERO DE CPF OK!”, se dígitos não coincidirem emitir mensagem “NUMERO DE CPF INVALIDO! INFORME OUTRO”.

14) Usando o recurso de vetores (variável BIDIMENSIONAL) Elabore um programa que solicite a digitação de uma matriz de ordem 4 (4 linhas e 4 colunas). Entrar com os elementos linha a linha. Apresente o resultado formatado na tela e calcule o determinante desta matriz mostrando o resultado.

15) Do exercício anterior, entre com a matriz COLUNA a COLUNA, calcule e mostre a matriz transposta da matriz digitada.

16) Usando o recurso de vetores (variável BIDIMENSIONAL) Elabore um programa que solicite a digitação de duas matrizes, a primeira matriz 2X3 e a segunda 3x2. Calcule o produto destas 2 matrizes e mostre resultado no video

17) Aproveitando a lógica do programa anterior (Criar uma matriz 4 x 4 elementos) Crie a lógica que some todos os temos da matriz e ao final apresente o resultado. Crie outra rotina que pegue esta matriz e a transponha linha a linha para outra matriz unidimensional (vetor) de 16 elementos. 18) Aproveitando a lógica do programa anterior, cria uma rotina para digitar uma matriz de 5 linhas por 6 colunas mostrando a mesma formatada no vídeo. Cria no algoritimo uma lógica para calcular a soma dos itens da 3ª e 5ª linha da matriz, Calcular a soma dos itens da 4ª coluna, multiplique os dois resultados encontrados e mostre no vídeo.

n=X

π= 6( ∑ (1/n2 ) ) n=1