Lista Exercícios Fortran 01

Prévia do material em texto

UNIOESTE - Campus de Toledo 
1ª Série de Engenharia Química 
Exercício de Computação 
 
Toledo, 19 de junho de 2012 
 
1) Resolva os seguintes programas: 
PROGRAM UM 
 IMPLICIT NONE 
 
 INTEGER A,B,C 
 
 A=5 
 B=3 
 C=6 
 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 
C=2 
 
IF (A<B .AND. A<=C) THEN 
 A=A-1 
 B=B+C 
ENDIF 
C=3 
IF (C<A .OR. B>A) THEN 
 B=B+2 
 A=A*C 
ENDIF 
 
WRITE(*,*) 'A=',A,' B=',B 
PAUSE 
END 
 
A=___ B=___ 
 
 
2) Faça um programa em FORTRAN que leia as quatro notas bimestrais e o número de faltas de 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 ou o número de faltas foi superior a 26, ele está 
reprovado; 
b) Se o aluno ficou com média bimestral igual ou superior a 70 e o número de faltas foi igual ou 
inferior a 26, ele está aprovado. 
c) Se o aluno ficou com média bimestral igual ou superior a 40 e inferior a 70 e o número de faltas foi 
igual ou inferior a 26, ele ficou para exame. Se ele ficou para exame, leia a nota do exame a 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. 
(Este é o exercício feito em sala. Tentem fazê-lo de novo.) 
 
3) Faça um programa em FORTRAN que leia o salário (em reais) de um funcionário de uma empresa. 
Após a leitura, calcule e escreva o novo salário de acordo com as seguintes regras de reajuste: 
a) Se o salário for igual ou inferior a R$ 1000,00, o reajuste será de 20%; 
b) Se o salário for superior a R$ 1000,00 e igual ou inferior a R$ 2000,00 o reajuste será de 
15%; 
c) Se o salário for superior a R$ 2000,00 o reajuste será de 10%. 
 
4) Faça um programa em FORTRAN que leia seis números, calcule a média aritmética deles, depois 
escreva qual o menor número lido, qual o maior e quantos números ficaram acima da média.