Προγραμματισμός FORTRAN > Παραδείγματα > Παραγοντικό

Να γραφεί πρόγραμμα που να υπολογίζει το γινόμενο (Par) των ακεραίων αριθμών από το 1 έως έναν ακέραιο Ν (1x2x3x...xΝ). Το γινόμενο αυτό λέγεται Ν! παραγοντικό. Ο τύπος υπολογισμού είναι:

Κώδικας:

PROGRAM paragontiko
IMPLICIT NONE
 INTEGER:: N, i, Par
 WRITE(*,*) 'Dwse Ton Akeraio (N):'
 READ(*,*) N
!
 Par = 1
 DO i = 1, N
 Par = Par * i
 END DO
!
 WRITE(*,*) 'To',N,'! (Paragontiko) einai:', Par
END

Εκτέλεση:

 Dwse Ton Akeraio (N):
10

 To 10! (Paragontiko) einai: 3628800