Codepen

Exemplo de uso ferramentas integradas ao WP como recurso didático de programação:

Exemplos:

https://pastebin.com/tuhyBKi7

https://bitbucket.org/snippets/fsc1004/o6gG4/rendimento

program tanque_cilindrico
implicit none
!Declaração de vars e constantes
real , parameter :: pi = 3.14159
real :: diametro = 16.0 ! 16 metros
real :: raio = 0.0
real :: altura = 15.0 ! 15 metros
real :: volume, volume_20
! Calculando Volume original
! V = pi.r^2.h <- volume de um cilindro reto
! Encontrando o raio
raio = diametro / 2.0
volume = altura * pi * raio**2
! Definindo um volume 20% maior
! V20 = V + (V * 20.0/100.)
! volume_20 = volume * 1.2
! volume_20 = Volume + volume * 0.2
volume_20 = volume + (volume * (1000.0/100.0))
! Calculando Raio do Volume 20% maior
! V20 = pi.r20^2.h <- volume de um cilindro reto
! r20 = sqrt( V20 / (pi * h) )
! r20 = ( V20 / (pi * h) )**(1.0/2.0)
raio = ( volume_20 / (pi * altura) )**(1.0/2.0)
write(*,200), raio
print *, "O raio do tanque com volume 20% maior vale: ", raio
! Formatação
! Caractere aw onde w é o tamanho
! Real fw.d onde f = flutuante( numeros reais) w é o tamanho e d o numero de casas decimais
! Escrevendo com especificação de formato
write(*, 100), "O raio do tanque com volume 20% maior vale: ", raio
write(*, 101), "O raio do tanque com volume 20% maior vale: ", raio
write(*, 102), raio, volume_20
!DEfinindo o rotulo 100
! Descritopres do formato (a,f10.3)
100 format(1x,a, f15.3)
101 format(1x,a, f6.3)
102 format(50(''),/,2x,'Raio [m]',8x,'Volume [m^3]',/,50(''),/,f8.3,5x,f10.3,/)
200 format(1x, 'O raio do tanque com volume 20% maior vale:',1x, f8.3)
end program tanque_cilindrico
! —————————————–
! Resultados após compilado e executado
! —————————————–
!
! cabox@box-codeanywhere:~/workspace$ gfortran tanque_cilindrico.f90
! cabox@box-codeanywhere:~/workspace$ ./a.out
! O raio do tanque com volume 20% maior vale: 26.533
! O raio do tanque com volume 20% maior vale: 26.5329990
! O raio do tanque com volume 20% maior vale: 26.533
! O raio do tanque com volume 20% maior vale: 26.533
! ————————————————–
! Raio [m] Volume [m^3]
! ————————————————–
! 26.533 33175.191
!
! cabox@box-codeanywhere:~/workspace$
!

 

Deixe um comentário

Faça o login usando um destes métodos para comentar:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair /  Alterar )

Foto do Google

Você está comentando utilizando sua conta Google. Sair /  Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair /  Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair /  Alterar )

Conectando a %s

Este site utiliza o Akismet para reduzir spam. Saiba como seus dados em comentários são processados.