Lista Exercícios Fortran 02

Prévia do material em texto

UNIOESTE - Campus de Toledo 
1ª Série de Engenharia Química 
Prova de Computação 
 
Nome:____________________________________________________________________ 
 
Toledo, 24 de julho de 2012 
 
1) Resolva os seguintes programas: 
PROGRAM UM 
 IMPLICIT NONE 
 
 INTEGER A,B,C 
 
 A=5 
 B=3 
 C=2 
 IF (A<B .OR. A>C) THEN 
 A=B*C 
 ENDIF 
 IF (C>A .OR. B>A) THEN 
 A=A+C 
 ENDIF 
 IF (A>B .AND. B>C) THEN 
 B=B+A-C 
 C=A+B+C 
 ENDIF 
 
 WRITE(*,*) 'A=',A,' B=',B,' C=',C 
 PAUSE 
END 
A=___ B=___ C=___ 
 
PROGRAM DOIS 
IMPLICIT NONE 
 
INTEGER A,B,C 
 
A=1 
B=4 
 
DO C=1,3 
 IF (A<B .AND. A<=C) THEN 
 A=A-1 
 B=B+C 
 ENDIF 
 IF (C<A .OR. B>A) THEN 
 B=B+2 
 A=A*C 
 ENDIF 
ENDDO 
 
WRITE(*,*) 'A=',A,' B=',B 
PAUSE 
END 
 
A=___ B=___ 
 
 
PROGRAM TRES 
IMPLICIT NONE 
 
INTEGER A,B,C 
 
C=3 
 
DO A=1,3 
 DO B=1,4 
 C=A-B+1 
 ENDDO 
ENDDO 
 
WRITE(*,*) 'C=',C 
PAUSE 
END 
 
 
 
C=____ 
PROGRAM QUATRO 
IMPLICIT NONE 
 
INTEGER A,B,C 
 
C=10 
DO A=1,3 
 C=C+A 
 DO B=1,2 
 IF (B<A .AND. C>A) THEN 
 C=C+B 
 ENDIF 
 ENDDO 
ENDDO 
 
WRITE(*,*) 'C=',C 
PAUSE 
END 
 
C=____ 
 
2) Escrever um algoritmo que leia o número N e calcule o valor de E usando a série abaixo. 
E = 1 + (1/1!) + (1/2!) + (1/3!) +...+ (1/N!) 
 
3) Faça um algoritmo que leia a idade de uma pessoa expressa em anos, meses e dias e mostre-a expressa 
apenas em dias. 
(1 ANO = 365 DIAS e 1 MÊS = 30 DIAS) 
 
4) Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, 
meses e dias. 
(1 ANO = 365 DIAS e 1 MÊS = 30 DIAS) 
 
5) Faça um programa em fortran que leia um número inteiro N e depois escreva os N primeiros números 
da seqüência de Fibonacci que é a seguinte: 
O primeiro elemento é zero(0), o segundo elemento é um(1). Os demais elementos são a soma dos 
dois anteriores. 
Ex: 0 1 1 2 3 5 8 13 21 ...