Programa que calcula o fatorial de um número em Fortran

Fatorial de um número em Fortran

Neste artigo vamos criar um pequeno programa que permite calcular o fatorial de um número usando a linguagem Fortran.

O programa irá solicitar ao usuário que entre com um número inteiro, calculará o fatorial desse número usando um loop DO e, em seguida, exibirá o resultado. O fatorial será então calculado multiplicando o número pelo número anterior, repetidamente, até que o loop termine.

Código do programa a seguir.

Código: Fatorial em Fortran

PROGRAM fatorial
  IMPLICIT NONE
  INTEGER::n,i,fat=1
  PRINT *, 'Programa que calcula o fatorial de um número'
  PRINT *, 'Digite um número para calcular seu fatorial:'
  READ(*,*) n
  DO i=1,n
    fat=fat*i
  END DO
  WRITE(*, '(A, I0)') 'O fatorial é ', fat
END PROGRAM

Testando

Programa que calcula o fatorial de um número
Digite um número para calcular seu fatorial:
7
O fatorial é 5040

Funcionamento

Vejamos o funcionamento do código linha a linha:

• PROGRAM fatorial: Definimos um programa Fortran de nome “fatorial”.
• IMPLICIT NONE: Esta linha declara que todas as variáveis devem ser explicitamente definidas com seus tipos de dados. Essa é uma boa prática para evitar erros de tipo.
• INTEGER::n,i,fat=1: Aqui, são declaradas três variáveis:
  • n: número inteiro para o qual calcularemos o fatorial.
  • i: variável de controle que será usada em um loop.
  • fat: variável que armazenará o resultado do fatorial, inicializada com 1.
• PRINT *, ‘Programa que calcula o fatorial de um número’: Mensagem informativa para o usuário, indicando a finalidade do programa.
• PRINT *, ‘Digite um número para calcular seu fatorial’: Mensagem que solicita ao usuário que insira o número para o qual deseja calcular o fatorial.
• READ(*,*) n: Esta linha lê o valor inserido pelo usuário e o armazena na variável n.
• DO i=1,n: Inicia um loop DO que irá executar as instruções dentro dele repetidamente. O loop começa com o valor da variável i igual a 1 e continua até chegar em n.
• fat=fat*i: Dentro do loop, o valor atual de fat (que começa em 1) é multiplicado por i e o resultado é armazenado em fat. Isso efetivamente calcula o fatorial.
• END DO: Encerra o laço DO.
  • Após a conclusão do loop, o programa exibe a mensagem “O fatorial é” seguida pelo valor calculado em fat, que é o fatorial do número inserido pelo usuário. Para tal usamos a instrução WRITE:
• WRITE(*, ‘(A, I0)’): instrução WRITE que formata a saída. Ela diz para escrever para a saída padrão (*) uma string de texto (‘A’) seguida de um inteiro (‘I0’).
  • ‘O fatorial é ‘: Esta é a string de texto que será impressa.
  • fat: E este é o valor do fatorial calculado, que será impresso como um valor inteiro.
• END PROGRAM: Finaliza o programa FORTRAN.

É isso aí! No próximo artigo veremos como escrever um programa em Fortran que permite gerar uma sequência de Fibonacci. Até!