Trabalho fortran

Disponível somente no TrabalhosFeitos
  • Páginas : 9 (2130 palavras )
  • Download(s) : 0
  • Publicado : 26 de abril de 2012
Ler documento completo
Amostra do texto
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=”,pmEND 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 conjuntofoi=”,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 dosN 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”READ(*,*) NOTA1, NOTA2, NOTA3
MEDIA(*,*) (NOTA1+NOTA2+NOTA3)/3.0
WRITE(*,*)”MEDIA=”,MEDIA
END DO
STOP
END PROGRAM questão_5

6) Fazer um programa para informar os números que existem em um determinado intervalo fechado.
PROGRAM questão_6
IMPLICIT NONE
INTEGER::I,IF,F
WRITE(*,*) “DIEGITE O NUMERO EM QUE COMEÇA O INTERVALO”
READ(*,*)IF
WRITE(*,*) “DIGITE O NUMERO EM QUE ACABA O INTERVALO”DO I=IN,F,1
WRITE(*,*) “ NUMEROS DENTRO DO INTERVALO”,I
END DO
STOP
END PROGRAM questão_6
7) Fazer um programa para obter o nome e a idade de N pessoa e informar a media das idades.
PROGRAM questao_7
IMPLICIT NONE
INTEGER::I,N,P,SOMA=0,MEDIA
CHARACTER(LEN=20)::NOME
WRITE(*,*) “DIGITE O NUMERO DE PESSOAS”
READ(*,*)N
DO P=1,N,1
WRITE(*,*) “DIGITE O NOME DA “,P, “PESSOA”READ(*,*)NOME
WRITE(*,*)”DIGITE A IDADE”
READ(*,*)I
SOMA=SOMA+I
WRITE(*,*)”NOME DA”,P,”PESSOA,”,NOME
WRITE(*,*) “IDADE DA “,P,”PESSOA”,I
END DO
MEDIA+SOMA/NWRITE(*,*)”MEDIA DAS IDADES=”,MEDIA
STOP
END PROGRAM questao_7
8) Fazer um programa para calcular o valor total de uma lista de compras. O programa deve obter o nome do produto, o tipo (A=alimento, B=bebida, H=higiene, L=limpeza, U=utilidade),a quantidade a ser comprada e o preço unitário. O programa deve informar quanto custará cada item da lista.
PROGRAM questão_8
IMPLICIT NONE
REAL::VALOR,VALOR_T,VALOR_TOTAL
INTEGER::N,P,Q
CHARACTER(LEN=20)::NOME
CHARACTER(LEN=1)::TIPO
VALOR_TOTAL=0
WRITE(*,*) “DIGITEO NUMERO DE PRODUTOS”
READ(*,*)N
DO P=1,N,1
WRITE(*,*) “DIGITE O NOME DO “,P,“PRODUTO”
READ(*,*)NOME
WRITE(*,*)””WRITE(*,*) “TIPO DE PRODUTOS:A=ALIMENTO,B=BEBIDA,H=HIGIENE,L=LIMPEZA,U-UTILIDADE”
WRITE(*,*)””
WRITE(*,*) “DIGITE O TIPO DE PRODUTO”
READ(*,*)TIPO
WRITE(*,*) “DIGITE O PREÇO DO”,P, “PRODUTO”
READ(*,*)Q
VALOR_T=VALOR*Q
VALOR_TOTAL=VALOR_TOTAL+VALOR_T
WRITE(*,*) “NOME DO”,P, “PRODUTO:”,NOME
WRITE(*,*) “TIPO DO”,P,”PRODUTO:”,TIPO
WRITE(*,*) “VALOR DO”, P, “PRODUTO”=”,VALOR
WRITE(*,*) “ PREÇO...
tracking img