Trabalho fortran

Universidade Federal de Campina Grande
Aluno: ******************************

EXERCICIO

1) Fazer um programa para o peso médio de um grupo de pessoas.
PROGRAM questão_1
IMPLICIT NONE
REAL:: p,n,pm
WRITE(*,*)”Digite o peso das pessoas do grupo”
READ(*,*) n
WRITE(*,*)”Digite o numero de pessoas do grupo”
READ(*,*) n
Pm= p/n
WRITE(*,*) “O peso médio das n pessoas do grupo foi=”,pm
END PRORAM questão_1

2) Fazer um programa soma os números de um conjunto.
PROGRAM questão_2
IMPLICIT NONE
REAL:: total,numero
INTEGER::I,N
TOTAL= 0
WRITE(*,*)”Digite a quantia de números do conjunto”
READ(*,*) N
DO I=1,N,1
WRITE(*,*)” “Digite o primeiro numero”
READ(*,*) numero
Total= total+numero
QRITE(*,*) “numero=”,numero
END DO
WRITE(*,*) “ A soma dos números do conjunto foi=”,total
END PROGRAM questão_2

3) Fazer um programa para obter em arquivo o nome e a quantidade de votos que cada um dos N candidatos obtiveram em cada uma das M urnas de votação e informar qual o percentual de votos de cada candidato no total de votos. Fazer uma relação em arquivo com os nomes dos candidatos e os votos em cada urna.

4) Fazer um programa para obter a velocidade dos N veículos que passam por uma determinada via e informar a velocidade média dos veículo naquela via.
PROGRAM questão_4
IMPLICIT NONE
REAL:: Vm,deltaS,deltaT,N
WRITE(*,*)”Digite a quantidade de veiculos”
READ(*,*) N
WRITE(*,*)”Digite o tamanho da via em Km”
READ(*,*) delta S
WRITE(*,*) Digite o tempo gasto pelos N veículos para percorrer a vida de S Km”
READ(*,*) delta T
Vm= deltaS/deltaT
WRITE(*,*) “A velocidade media dos N veículos na via foi=”,Vm
END PROGRAM questao_4

5) Fazer um programa para obter as três notas de todos os alunos de uma turma e informar a média geral da turma.
PROGRAM questão_5
IMPLICIT NONE
REAL:: NOTA1,NOTA2,NOTA3,MEDIA
INTEGER::1,N
DO I= 1,N,1
WRITE(*,*)”Digite o numero de alunos da turma”
READ(*,*) N
WRITE(*,*)”Digite as notas”