Programas em fortrana

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (672 palavras )
  • Download(s) : 0
  • Publicado : 23 de março de 2012
Ler documento completo
Amostra do texto
Programas em Fortran – Versão1 e Versão2
1- Fazer um programa para calcular as raízes de uma equação do segundo grau.
Program Raizes_de_uma_equacao_do_segundo_grau_V1
Implicit NomeReal::a,b,c,Raiz1,Raiz2
WRITE(*,*)”Digite o valor de a”
READ(*,*)a
WRITE(*,*)”Digite o valor de b”
READ(*,*)b
WRITE(*,*)”Digite o valor de c”
READ(*,*)c
Delta=Δ=b²-4.a.c
Raiz1=x’=-b+√Δ/2.aRaiz2=x’=-b-√Δ/2.a
WRITE(*,*)”Raizes=”,Raiz1,Raiz2
STOP
End Program Raizes_de_uma_equacao_do_segundo_grau_V1
Program Raizes_de_uma_equacao_do_segundo_grau_V2
Implicit Nome
Real::a,b,c,Raiz1,Raiz2WRITE(*,*)”Digite o valor de a”
READ(*,*)a
WRITE(*,*)”Digite o valor de b”
READ(*,*)b
WRITE(*,*)”Digite o valor de c”
READ(*,*)c
Delta=Δ=b²-4.a.c
Raiz1=x’=-b+√Δ/2.a
Raiz2=x’=-b-√Δ/2.aWRITE(*,*)”Raizes=”,Raiz1,Raiz2
WRITE(*,*)a,b,c,Raiz1,Raiz2
OPEN(Raizes,File=”dados.txt”)
WRITE(20,*)a,b,c,Raiz1,Raiz2
STOP
End Program Raizes_de_uma_equacao_do_segundo_grau_V2

2- Fazer um programa para calcular ovolume de uma esfera.
Program Volume_de_uma_esfera_V1
Implicit Nome
Real::r,Volume
π=3,14
WRITE(*,*)”Digite o valor de r”
READ(*,*)r
Volume=3/4(π)r³
WRITE(*,*)”Volume da esfera=” Volume
STOPEnd Program Volume_de_uma_esfera_V1
Program Volume_de_uma_esfera_V2
Implicit Nome
Real::r,Volume
π=3,14
WRITE(*,*)”Digite o valor de r”
READ(*,*)r
Volume=3/4(π)r³
WRITE(*,*)”Volume da esfera=”Volume
WRITE(*,*)r,Volume
OPEN(Volume,File=”dados.txt”)
WRITE(20,*)r,Volume
STOP
End Program Volume_de_uma_esfera_V2

3- Fazer um programa para calcular a média de quatro notas de um aluno.Program Media_V1
Implicit Nome
Real::media1,media2,media3,media4,Media
WRITE(*,*)”Digite o valor da media1”
READ(*,*)media1
WRITE(*,*)”Digite o valor da media2”
READ(*,*)media2WRITE(*,*)”Digite o valor da media3”
READ(*,*)media3
WRITE(*,*)”Digite o valor da media4”
READ(*,*)media4
Media=(media1+media2+media3+media4)/4
WRITE(*,*)”Média=”Media
Stop
End Program Media_V1...
tracking img