Programas em fortrana

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 Nome
Real::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.a
Raiz2=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,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.a
Raiz2=x’=-b-√Δ/2.a
WRITE(*,*)”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 o volume 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
STOP
End 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(*,*)media2
WRITE(*,*)”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