Introdução às Linguagens de Programação/Fortran: diferenças entre revisões
Conteúdo apagado Conteúdo adicionado
Linha 37:
O Fortran roda em todos os sistemas operacionais (Windows, Linux, Mac os x), basta o usuário baixar a versão exata do compilador para seu sistema e instalá-lo, existe duas formas disponíveis no mercado, a forma livre, uma versão com código aberto, (open Soure) para sistemas operacionais linux, e a versão paga (com licença proprietário).
=='''Exemplos de Código'''==
{{details | Wikibooks: Fortran / Fortran exemplos}}
O programa a seguir ilustra a alocação de memória dinâmica e baseada em array operações, duas características introduzidas com Fortran 90. Particularmente notável é a ausência de <code> DO </ code> loops e <code> IF </ code> / <code> ENTÃO </ code> declarações em manipular a matriz; operações matemáticas são aplicados para a matriz como um todo. Também evidente é o uso de nomes de variáveis descritivos e formatação de código geral que estejam em conformidade com o estilo de programação contemporânea. Esse exemplo calcula uma média ao longo dados inseridos de forma interativa.
<source lang="fortran">
média do programa
! Lido em alguns números e tirar a média
! Como está escrito, se não houver pontos de dados, uma média de zero é retornado
! Enquanto isto pode não ser desejado comportamento, ele mantém este exemplo simples
nenhum implícita
dimensão, real (:), allocatable:: pontos
integer:: number_of_points
real::.. average_points = 0, positive_average = 0, negative_average = 0.
write (*,*) "número de pontos de entrada para calcular a média:"
ler number_of_points (*,*)
alocar (pontos (number_of_points))
write (*,*) "Entre os pontos a média:"
pontos de leitura (*,*)
! Tomar a média somando pontos e dividindo por number_of_points
if (number_of_points> 0) average_points = sum (pontos) / number_of_points
! Agora formam média de pontos positivos e negativos só
if (count (pontos> 0.)> 0) então
positive_average = soma (pontos, pontos> 0.) / count (pontos> 0).
fim se
if (count (pontos <0.)> 0) então
negative_average = soma (pontos, pontos <0.) / count (pontos <0).
fim se
desalocar (pontos)
! Resultado de impressão para terminal
(*,'( escrever um g12.4) ')' Média = ', average_points
(*,'( escrever um g12.4) ')' Média de pontos positivos = ', positive_average
(*,'( escrever um g12.4) ')' Média de pontos negativos = ', negative_average
média do programa final
</ source>
== '''Definições da linguagem''' ==
| |||