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

Να γραφεί πρόγραμμα που να υπολογίζει τις διατάξεις (P) και τους συνδυασμούς (C), Ν αντικειμένων ανά Κ . Οι τύποι υπολογισμού είναι αντίστοιχα:

Κώδικας:

PROGRAM syndyasmoi
IMPLICIT NONE
 INTEGER:: N, K, i, Perm, Comb
 WRITE(*,*) 'Dwse Ta N & K (N ana K):'
 READ(*,*) N, K
!
 Perm = 1
 Comb = 1
 DO i = 1, K
  Perm = Perm * (N-i+1)
  Comb = Comb * (N-i+1)/i
 END DO
!
 WRITE(*,*) 'Oles oi Dynates Diatajeis '
 WRITE(*,'(3(A,I4))') ' twn',N,' Ana',K,' einai:',Perm
 WRITE(*,*) 'Oloi oi Dynatoi Syndiasmoi '
 WRITE(*,'(3(A,I4))') ' twn',N,' Ana',K,' einai:',Comb
END

Εκτέλεση:

 Dwse Ta N & K (N ana K):
6 3

 Oles oi Dynates Diatajeis
 twn 6 Ana 3 einai: 120
 Oloi oi Dynatoi Syndiasmoi
 twn 6 Ana 3 einai: 20