Exercicios resolvidos de fortran

(Parte 1 de 2)

Prof. José Augusto Lucas Matos Pág. 1 de 7

1. Dados os valores de vendas (S), calcular e imprimir o lucro (M), a comissão (C) E o lucro bruto (G). As fórmulas a serem empregadas são:

O valor de S deverá ser lido. Se o valor de S for igual ou inferior a zero, parar o programa. Caso contrário imprimir os valores de S, C, G e N.

2. Escrever um programa para calcular os juros simples de um capital durante certo número de anos.

Usar a fórmula:

J = C * i * t onde :

C = capital i = taxa t= tempo Deverão ser lidos de “n” registros os valores de C, i e T.

A saída deverá ser:

CONT = 0 LER N REPEAT LER C,I,T J = C*I*T IMPRIMA “ Capital = “,C ,” Taxa = “,I“ Tempo = “,T,’ Juros = ‘,j CONT=CONT+1 UNTIL (CONT = N)

3. A resistência total é de "n" resistores R1, R2,	Rn, em paralelo é dada pôr :
1/R = 1/R1 + 1/R2 +	+ 1/Rn
Escrever um programa para calcular R. Os valores de R1, R2,	, Rn e "n", deverão

Prof. José Augusto Lucas Matos Pág. 2 de 7 ser lidos.

I=1 LER=N REPEAT LER R(I) INV=1/R(I) + INV I=I+1 UNTIL(I=N) IMPRIMA INV

4. Escrever um programa que leia vários valores de A, B e C e verifique se os números formam um triângulo.

ESCREVA A,B,C,” Formam triangulo” ELSE

ESCREVA A,B,C,” Não formam triangulo” END IF CONT=CONT+1 UNTIL (CONT=N)

Prof. José Augusto Lucas Matos Pág. 3 de 7

5. Escrever um programa que leia os valores de A, B e C e:

a) Verifique se formam triângulo. b) Se formarem, classifica-los quanto aos lados, identificando também se são retângulos ou não.

IMPRIMA A,B,C,” Não formam um triangulo Eqüilátero” ELSE IF ((A=B) .AND. (B=C) THEN

IMRIMA A,B,C,” Formam um triângulo Eqüilátero” ELSE IF((A=B).OR.(B=C).OR(A=C)) THEN

IMPRIMA A,B,C, “ Formam triangulo Isósceles” ELSE

IMPRIMA A,B,C, “ Formam triângulo Escaleno” END IF END IF END IF UNTIL (CONT = N)

6. A altura vertical de um projétil e dada pôr:

V0 é a velocidade inicial do projétil G é a aceleração da gravidade (9.82 m/s2)

T é o tempo em segundos.

Lendo-se V(0) calcular a altura do projétil para cada 0.1 de segundo.

Solução:

LER V0,T TEMPO=0 REPEAT TEMPO + TEMPO + 0,1 S=V0*T – ((9,82*T**2)/2) IMPRIMA S UNTIL TEMPO + T

Prof. José Augusto Lucas Matos Pág. 4 de 7

7. Fazer um programa para calcular o fatorial de "n" números X.

LER N CONT = 0 REPEAT FAT = 1 LER X AUX = 1 REPEAT FAT = FAT * AUX AUX = AUX + 1 UNTIL (AUX =X) IMPRIMA FAT COT=CONT+1’ UNTIL (CONT=N)

8. Escrever um programa para calcular o número de N objetos tomados R a R, onde:

lidos.ser

devemR e N que sendo )(!!

rnr nCr n

LER N,R DEN=N-R NUM=0 FATN=1 REPEAT NUM=NUM+1 FATN=FATN*NUM UNTIL (NUM=N) NUM=0 FATR=1 REPEAT NUM=NUM+1 FATR=FATR*NUM UNTIL (NUM=R) NUM=0 FATDEN=1 REPEAT NUM=NUM+1 FATDEN=FATDEN*NUM UNTIL (NUM=DEN) C=FATN/(FATR*FATDEN) IMPRIMA C

Prof. José Augusto Lucas Matos Pág. 5 de 7

1. Os deslocamentos horizontal e vertical de um corpo projetado num ângulo θ (teta) com o eixo dos Xs são dados pôr:

)2 GT T x sen(xVY xT)(cosxVX 2

Escrever um programa que leia os valores de V(0), e O e imprima a tabela abaixo para o tem po variando de 1 em 1 segundo.

LER V0,T,TETA G=9,81 TEMPO=0 IMPRIMA “V0= “,V0,” TETA= “,TETA,” TEMPO= “,T REPEAT TENPO=TENPO+1 X=V0*Cós(TETA)*TEMPO Y=V0*(Sem(TETA)*TEMPO-(G*T**2)/2) IMPRIMA TEMPO,X,Y UNTIL (TEMPO=T)

10. O aumento da população de uma cultura de bactérias em função do tempo é diretamente proporcional ao tamanho da população. Matematicamente, a população a qualquer momento poderá ser expressa pôr:

onde :

T = tempo em horas P(0) = população de bactérias no tempo de referência P = população de bactérias num instante de tempo T

Calcular o fator de multiplicação da população P/P(0), depois de decorridos 2, 5, 10, e 50 horas, considerando-se os 10 primeiros termos da série.

Prof. José Augusto Lucas Matos Pág. 6 de 7

Solução:

LER P0,T CONT=0

REPEAT CONT = CONT+1 TERMO=0 FAT=1 FATOR=1 REPEAT TERMO=TERMO+1 FAT=FAT*TERMO UNTIL (TERMO=T)

FATOR=P/P0 IMPRIMIR FATOR

1. Calcular a soma dos 100 primeiros números ímpares (sem a utilização de fórmulas). SOLUÇÃO:

SOMA=0 QUANT=0 A=1 REPEAT SOMA=SOMA+A A=A+2 QUANT=QUANT+1 UNTIL (QUANT=100) IMPRIMA SOMA

12. Escrever o algoritmo e um programa FORTRAN que calcule os elementos de um conjunto numérico contendo 8 linhas e 10 colunas através da expressão :

(Parte 1 de 2)