Resolução de exercícios de estrutura sequencial e estrutura de seleção no Fortran 90

Estrutura Sequencial

1. Faca um programa que receba três notas, calcule e mostre a média aritmética entre elas.
2. Faca programa que receba o salário de um funcionário e o percentual de aumento e calcule e mostre o valor do aumento e o novo salário.
3. Faca um programa que calcule e mostre a área de um circulo. Sabe-se que:Área=ΠR2.

Estrutura de seleção

4. Faça um programa que receba dois números e execute uma das operações listadas a seguir e acordo com a escolha do usuário. Se for digitada uma opção inválida mostrar uma mensagem de erro e terminar a execução do programa. As opções são:
• Média entre dois números
• Diferença entre dois números
• Produto entre dois números.
5. Uma empresa deseja dar um aumento de 30% aos funcionários com salários inferiores a R$
500,00. Faça um programa que recebe o salário do funcionário e mostre o valor do salário reajustado ou uma mensagem caso o funcionário não tenha direito ao aumento.
6. Faça um programa que verifique a validade de uma senha fornecida pelo usuário. A senha é
4531. O programa deve mostrar uma mensagem de permissão de acesso ou não.

Resolução no Fortran 90

1- program soma integer a,b,c,d,sum print*,'digite os quatros numeros inteiros' read(*,*)a,b,c,d sum=a+b+c+d print*,'resultado', sum stop end

2- program area_do_circulo real r,area,pi print*, 'digite o raio' read(*,*)r pi=3.14 area=pi*r**2 print*,'area',area stop end

3- program novo_salario real sal,pau,va,sum
Print*,'digite o salario' read(*,*)sal print*,'digite o percentual do aumento' read(*,*) pau va=(sal*pau)/100 print*,'valor do aumento',va sum=va+sal print*,'novo salario',sum stop end

4- program operacao real a,b character OP print*,'digite dois numeros' read(*,*)a,b print*,'Qual e a operacao que voce deseja?Se for media digite M,se for diferenca digite D, se for produto digite P' read(*,*) OP if(OP.eq.'M')then M=(a+b)/2 print*,'resultado',M else if(OP.eq.'D')then