Lista Exercícios Fortran Programas Prontos

Prévia do material em texto

UNIOESTE - Campus de Toledo 
1ª Série de Engenharia Química 
Exercícios de Computação 
1) Resolva os seguintes programas: 
PROGRAM UM 
 IMPLICIT NONE 
 
 INTEGER A,B,C 
 
 A=2 
 B=3 
 C=6 
 IF (A<B) THEN 
 A=B*C 
 ENDIF 
 IF (C>A) THEN 
 A=A+C 
 ENDIF 
 IF (A>B) 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=3 
B=6 
C=3 
IF (A<B) THEN 
 A=A-1 
 B=B+C 
ENDIF 
IF (C<A) THEN 
 B=B+2 
 A=A*C 
ENDIF 
 
WRITE(*,*) 'A=',A,' B=',B 
PAUSE 
END 
 
A=___ B=___ 
 
 
PROGRAM TRES 
IMPLICIT NONE 
 
INTEGER A,B,C 
 
A=3 
B=6 
C=B/2 
IF (A<=C) THEN 
 A=A-1 
 B=B+C 
 ELSE 
 A=A*2 
ENDIF 
IF (C<A) THEN 
 B=B+2 
 A=A*C 
ENDIF 
 
WRITE(*,*) 'A=',A,' B=',B 
PAUSE 
END 
 
A=___ B=___ 
 
PROGRAM TRES 
IMPLICIT NONE 
 
INTEGER A,B,C 
 
A=3 
B=6 
C=B/2 
IF(A<=C)THEN 
 A=A-1 
 B=B+C 
 ELSE 
 A=A*2 
ENDIF 
IF(C<A)THEN 
 B=B+2 
 A=A*C 
 ELSE 
 IF(B>5)THEN 
 A=B*10 
 ENDIF 
ENDIF 
 
WRITE(*,*) 'A=',A,' B=',B 
PAUSE 
END 
A=___ B=___ 
 
 
2) Faça um programa em FORTRAN que leia as quatro notas bimestrais um aluno da Unioeste. Após a 
leitura, calcule a média bimestral (média aritmética das quatro notas) e escreva se o aluno foi reprovado ou 
aprovado de acordo com as seguintes regras: 
a) Se o aluno ficou com média bimestral inferior a 40 ele está reprovado; 
b) Se o aluno ficou com média bimestral igual ou superior a 70 ele está aprovado. 
c) Se o aluno ficou com média bimestral igual ou superior a 40 e inferior a 70 ele ficou para exame. Se 
ele ficou para exame, leia a nota do exame e calcule a média final de acordo com a seguinte fórmula: 
Média Final = (média bimestral * 0.6) + (nota exame * 0.4) 
Se a Média Final for igual ou superior a 60 o aluno está aprovado, senão ele está reprovado.