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é!

Sobre Fábio dos Reis (1206 Artigos)
Fábio dos Reis trabalha com tecnologias variadas há mais de 30 anos, tendo atuado nos campos de Eletrônica, Telecomunicações, Programação de Computadores e Redes de Dados. É um entusiasta de Ciência e Tecnologia em geral, adora Viagens e Música, e estuda idiomas, além de ministrar cursos e palestras sobre diversas tecnologias em São Paulo e outras cidades do Brasil.

Escreva um comentário

Seu e-mail não será divulgado


*